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

Question

我有以下代码，不断出现运行时错误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

Answer 1

代码计算有多少个单元格的值低于活动单元格。尝试执行此操作以避免错误，并在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