选项显式宏的变量未定义问题

Question

我有下面的代码，它适用于一张简单的表格。如果我尝试将它合并到我的宏中，这是选项显式的，那么它会引发一个错误，即变量 x 未定义。

尝试了各种 Dim，但都没有成功。对此很陌生，所以我认为我遗漏了一些东西，对你们来说可能相当明显

Sub FillDuplicates()
Dim lastrow As Long

lastrow = Cells(Rows.Count, "A").End(xlUp).Row 'find last row in column A

For x = 1 To lastrow
    If Cells(x, 1).Value = 0 Then 'Find initial 0 value

            If Cells(x + 1, 1).Value = 0 Then 'Compares cell against previous cell
                Cells(x + 1, 1).Value = "" 'If matches, sets value as nothing
            End If

    End If
Next x

End Sub

这标识了列中存在多个连续 0 值的位置。然后它保留第一个并删除其他的，然后移动到下一个组，依此类推。

Answer 1

作为我之前的安德烈亚斯： 您必须定义x 变量：

Sub FillDuplicates()
Dim lastrow As Long

Dim x as Integer 'if you have more 32767 rows to check then use double which is good for 1.79769313486231570E+308

lastrow = Cells(Rows.Count, "A").End(xlUp).Row 'find last row in column A

For x = 1 To lastrow
    If Cells(x, 1).Value = 0 Then 'Find initial 0 value

            If Cells(x + 1, 1).Value = 0 Then 'Compares cell against previous cell
                Cells(x + 1, 1).Value = "" 'If matches, sets value as nothing
            End If

    End If
Next x

End Sub

这应该可以解决问题:)