excel運行時錯誤'1004'vba

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