vba - 如何解决VBA中的 'Next without For'错误

Question

我收到一个 next without for 错误:

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:=xlDown
    End With
Next i

当 VBA 编译器遇到包含一行或多行缺少匹配终止行的代码时，它不擅长报告错误。

就您而言，您从未终止过 With 语句。