【VBA】データの貼り付け(列ごとの場合)

列単位でコピー&ペースト(値の貼り付け)

’変数の定義
Dim wsSrc As Worksheet
Dim wsDest As Worksheet

Set wsSrc = Worksheets("sheet1")   ' コピー元のシート
Set wsDest = Worksheets("sheet2")  ' 貼り付け先のシート

wsSrc.Columns("B").Copy
wsDest.Columns("A").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False