How do I Fix "Compile error: For without Next" in VBA

Question

所以我有一个相当大的数据集，其中一些值位于错误的位置。我发现此脚本用于搜索 C 列中包含“0”的单元格。我想标记单元格和它右侧的单元格并将它们向右移动一个单元格，但我一直收到“编译错误：没有下一步”。

Sub Clean()
    Dim row As Long

    For row = 2 To LastRow
        If Range("C" & row).Value Like "0" Then
            Dim i As Integer
            For i = 1 To 2
                Range("C" & row).Insert Shift:=xlToRight
            Next
        End If
End Sub

非常感谢任何帮助

Answer 1

好像打错了，您需要在“End If”语句之后添加一个“next”。

Sub Clean()
    Dim row As Long

    For row = 2 To LastRow
        If Range("C" & row).Value Like "0" Then
            Dim i As Integer
            For i = 1 To 2
                Range("C" & row).Insert Shift:=xlToRight
            Next
        End If
    Next
End Sub

How do I Fix "Compile error: For without Next" in VBA

How do I Fix "Compile error: For without Next" in VBA

datatable

excel

vba

compiler-errors