Excel VBA 最終行まで範囲選択 / 最終行・最終列まで範囲選択

A2のセルから最終行まで範囲選択

Range(Range(“A2”), Cells(Rows.Count, 1).End(xlUp)).Select

 

A列の最終行までB2~B列を選択する

Range(“B2:B” & Range(“A” & Cells.Rows.Count).End(xlUp).Row).Select

 

 

Sheet1の選択した範囲の値をSeet2のA2に貼り付け

Sub 範囲コピー()

Worksheets(“Sheet1”).Select

Worksheets(“Sheet1”).Range(“A2:B” & Cells(Rows.Count, “A”).End(xlUp).Row).Copy
Worksheets(“Sheet2”).Range(“B2”).PasteSpecial Paste:=xlPasteValues
End Sub

 

 

タイトルとURLをコピーしました