Excel VBA中的运行时错误'1004'

Question

由于某些原因，当我尝试运行以下脚本时，我一直收到范围全局运行时错误。 任何帮助将不胜感激。

Sub crossUpdate()
Dim rng As Range

Set rng = Sheet1.Cells.Range("A2").End(xlDown)

Range(rng).Select



End Sub

Answer 1

尝试将代码更改为：

Sub crossUpdate()
   Dim rng As Range
   ActiveWorkbook.Sheets("Sheet1").Select
   Set rng = ActiveWorkbook.Sheets("Sheet1").Range("A2").End(xlDown)
   rng.Select
End Sub

Answer 2

无论何时选择范围，都必须已经选择了正确的图纸。 同时修复选择命令，请尝试：

Sub crossUpdate()
    Dim rng As Range
    Set rng = Sheet1.Cells.Range("A2").End(xlDown)
    Sheet1.Select
    rng.Select
End Sub

编辑＃1

此版本将选择单元格块：

Sub crossUpdate()
    Dim rng As Range, N As Long
    Sheet1.Select
    N = Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = Cells.Range("A2:A" & N)
    rng.Select
End Sub