複数セルへコピーして貼り付ける

トップページ（目次）

003.複数セルへコピーして貼り付ける

＜実行前後＞

→

Sub コピーして複数セルへ貼り付ける()

    Range("C2").Copy Range("C2:C5")

End Sub

最終行が変動する場合は、最終行を毎度取得して、その範囲まで関数をコピーして貼り付ける

Sub 最終行までコピーして複数セルへ貼り付ける()

    最終行 = Cells(Rows.Count, "A").End(xlUp).Row
    
    Range("C2").Copy Range("C2:C" & 最終行)

End Sub