1004應用程序定義的或對象定義的錯誤

Question

錯誤出現在end sub之前的行上，選擇最後一行計算的範圍的正確方法是什麼？

Sub My_Script() 
Dim LastRow As Long 
    With ActiveSheet 
     LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row 
    End With 
    ActiveSheet.Range(Cells(LastRow, Columns("D:AH"))).Select 
End Sub 

Answer 1

下面的代碼選擇在LastRow所有小區僅，從列「d」到列「AH」。

Sub My_Script() 

Dim LastRow As Long 

With ActiveSheet 
    LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row 
    .Range(.Range("D" & LastRow), .Range("AH" & LastRow)).Select 
End With 

End Sub 

如果您想選擇所有的行（從第1行至LastRow），從列 「d」 列 「AH」。

Sub My_Script() 

Dim LastRow As Long 

With ActiveSheet 
    LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row 
    .Range(.Range("D1"), .Range("AH" & LastRow)).Select 
End With 

End Sub 

注意：不知道你爲什麼要Select這個範圍？您可以將此Range設置爲Range類型的變量，然後再將其設置爲Copy或任何您想要使用的變量。幾乎沒有理由使用Select。