Question

在VBA Excel中，第二次运行代码时出现自动化错误。它如下：

Sheets("Panel Resumen").Select
Rows("55:69").Select
Selection.Copy
Rows("55:55").Select
Selection.Insert Shift:=xlDown
Range("D25").Select
Application.CutCopyMode = False

它会触发行

中的错误

Selection.Insert Shift:=xlDown

我研究了这个链接https://support.microsoft.com/en-us/help/178510/excel-automation-fails-second-time-code-runs 但我不知道哪个是我没有打电话的对象

Answer 1

不使用Select，我认为应该解决这个问题：

With Sheets("Panel Resumen")
    .Rows("55:69").Copy
    .Rows("55:55").Insert Shift:=xlDown
End With
Application.CutCopyMode = False

Excel VBA自动化错误第二次运行代码

1 个答案: