如何修复 VBA 中的“编译错误：对于没有下一步”答案

【问题标题】：How do I Fix "Compile error: For without Next" in VBA如何修复 VBA 中的“编译错误：对于没有下一步”
【发布时间】：2021-07-12 17:27:54
【问题描述】：

所以我有一个相当大的数据集，其中一些值位于错误的位置。我发现这个脚本可以搜索 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

非常感谢任何帮助

【问题讨论】：

标签： excel vba datatable compiler-errors

【解决方案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

【讨论】：

谢谢！它似乎消除了错误。但是，它不会移动任何东西。非常感谢您的宝贵时间！