Excel セルの内容入れ替え

質問

以下のようなデータあり
【元データ】
　　A　　　　　　　　　B　　　　　　　　　C
１　０　　　　　　　　　A　　　　　　　　　B
２　１　　　　　　　　　B　　　　　　　　　A
３　０　　　　　　　　　A　　　　　　　　　B

A列が”１”の場合のみB列の値とC列の値を入れ替えたい。

【得たいデータ】
　　A　　　　　　　　　B　　　　　　　　　C
１　０　　　　　　　　　A　　　　　　　　　B
２　１　　　　　　　　　A　　　　　　　　　B
３　０　　　　　　　　　A　　　　　　　　　B

VBAで釦作成をし、クリックをすることで入れ替えができるようにと考えています。
ご教授よろしくお願いします。

回答No.1

keithin · ベストアンサー

sub macro1()
　dim h as range
　dim x as variant
　for each h in range("A1:A" & range("A65536").end(xlup).row)
　　if h = 1 then
　　　x = h.offset(0, 1)
　　　h.offset(0, 1) = h.offset(0, 2)
　　　h.offset(0, 2) = x
　　end if
　next
end sub

参考：
sub macro2()
　dim h as range
　for each h in range("A1:A" & range("A65536").end(xlup).row)
　　if h = 1 then
　　　h.offset(0, 2).cut
　　　h.offset(0, 1).insert shift:=xlshifttoright
　　end if
　next
end sub

お礼

回答ありがとうございます。
おかげさまで問題解決できました。

回答No.2

imogasi

関数でも出来るのではないか。なぜＶＢＡでやるのかな。勉強のためにやりタイのかな。
Ｅ，Ｄ列を列挿入
例データ
Ａ列　　　Ｂ列　　　　Ｃ列　　　　Ｄ列　　　Ｅ列
0 A B A B
1 C D D C
0 E F E F
1 G H H G
0 I J I J
Ｄ２に　=IF($A2=0,B2,C2)　下方向に式を複写。
Ｅ２に　=IF($A2=0,C2,B2)　下方向に式を複写。
Ｄ，Ｅ列の値をだけを、Ｂ，Ｃ列に複写して、Ｄ，Ｅ列を抹消