我正在执行以下代码,但出现错误 - 运行时错误 - 6 溢出。
像 rowcount 这样的接缝正在获得完美的价值,当我进入调试模式时我可以看到。但在那之后什么都没有发生。
有人可以帮我解决这个问题吗?
Private Sub CommandButton1_Click()
Dim i As Integer
Dim RowCount As Long
RowCount = Cells(Rows.Count, "A").End(xlUp).Row
For i = RowCount To 2 Step -1
If Cells(i, 4) = "7" Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End Sub