获取运行时错误1004如何停止错误

Posted 2021-03-27

我有以下代码，我一直得到运行时错误1004。您可以在以下代码中如何或者您可以建议在ActiveCell.Offset(1, 0).Select停止错误：

Sub RowCounter (count)

Counter = 1
Do Until ActiveCell = ""
Counter = counter + 1
ActiveCell.Offset(1, 0).Select
Loop

Count = Counter > 2000000

答案

该代码计算有多少单元格的值低于活动单元格。试试这个以避免错误，在MsgBox()中显示答案：

Sub RowCounter()

    Dim counter As Long
    counter = 1
    Do Until ActiveCell = "" Or ActiveCell.Row <> Rows
        counter = counter + 1
        ActiveCell.Offset(1, 0).Select
    Loop

    MsgBox counter

End Sub

如果Or ActiveCell.Row <> Rows位于Excel电子表格的最后一行，ActiveCell确保退出。

关于.Select和ActiveCell部分，请参阅本主题以及如何改进它的一些想法：

• How to avoid using Select in Excel VBA