1004アプリケーション定義またはオブジェクト定義のエラー

Question

最後の行が計算された範囲を選択する正しい方法は何ですか。

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

以下のコードは、列「D」から列「AH」にのみLastRow内のすべてのセルを選択します。

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 

あなたは、 "AH" の列に列 "D" から、（行1からLastRowに）すべての行を選択したい場合

。

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を使用する理由はほとんどありません。