Question

我收到下一个没有错误：

Sub CTLines()
Dim iVal As Integer
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim rng As Range

Set ws1 = Worksheets("INCIDENTS")
Set ws2 = Worksheets("INCDB")

iVal = Application.WorksheetFunction.CountIf(Range("AO5:AO999"), "Yes")

Dim i

For i = 1 To iVal
    With Sheets("INCDB")
        .Range("5:5").Insert Shift:=x1Down
Next i
End Sub

我尝试过改变变量，缩进，很多东西而且我没有成功。

我想要做的就是计算AO列中包含Yes的行数，并在INCDB电子表格中添加尽可能多的行。

Answer 1

将代码更改为底部附近的代码：

For i = 1 To iVal
    With Sheets("INCDB")
        .Range("5:5").Insert Shift:=x1Down
    End With
Next i

当遇到包含一条或多条缺少匹配终止线的代码时，VBA编译器不善于报告错误。

在您的情况下，您从未终止With声明。

接下来没有

1 个答案: