接下来不用

我接下来没有错误：

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 

我试过改变variables，缩进，很多东西，但是我没有成功。

我想要做的就是统计AO列中Yes多less行包含Yes ，并在INCDB电子表格中添加多less行。

Answer 1

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

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

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

在你的情况下，你永远不会终止With语句。