VBA セル範囲を最終行までコピー、貼付け

VBAのセル範囲を最終行まででコピー&貼り付けする方法

Sub CopyRangeToEnd()

‘ 変数の宣言
Dim ws As Worksheet
Dim LastRow As Long
Dim SourceRange As Range
Dim DestinationRange As Range

‘ ワークシートの設定
Set ws = ThisWorkbook.Worksheets(“Sheet1”) ‘ シート名を適切なものに変更してください

‘ 最終行を取得
LastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row

‘ コピー元範囲の設定
Set SourceRange = ws.Range(“A1:A” & LastRow)

‘ コピー先範囲の設定
Set DestinationRange = ws.Range(“B1:B” & LastRow)

‘ 範囲をコピー
SourceRange.Copy DestinationRange

End Sub