接下来没有

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

我试过改变变量,缩进,很多东西,但我没有成功.

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

Answer 1

在底部附近将代码更改为此:

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

当遇到具有一条或多条缺少匹配终止线的代码时,VBA编译器不擅长报告错误.

在您的情况下,您从未终止该With声明.