VBAでB列とD列を入れ替える

質問

VBAでA列に入力されてるをD列にしたりB列をE列に・・・など入れ替えたいのですが
どういう方法をとればいいのでしょうか。

両方空白じゃないのでコピー貼りつけだとできないです。

回答No.2

mt2008 · ベストアンサー

値だけで良いなら
Sub Sample1()
　　Dim vData1
　　Dim vData2
　　vData1 = Columns("B")
　　vData2 = Columns("D")
　　Columns("B") = vData2
　　Columns("D") = vData1
End Sub

式や書式も入れ替えたいなら
Sub Sample2()
　　Columns("B").Cut
　　Columns("D").Insert Shift:=xlToRight
　　Columns("D").Cut
　　Columns("B").Insert Shift:=xlToRight
End Sub

こんな感じかな

回答No.1

MARU4812

D列を切り取ってB列に挿入して1行ずらしたあと、
元B列のC列を切り取ってD列に挿入すればいいだけでは？
・・・手作業でもできる話ですよね。