Excel セルの内容入れ替え

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

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

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

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

No.2 回答者： imogasi 回答日時： 2011/04/19 19:31

関数でも出来るのではないか。

なぜＶＢＡでやるのかな。勉強のためにやりタイのかな。
Ｅ，Ｄ列を列挿入
例データ
Ａ列　　　Ｂ列　　　　Ｃ列　　　　Ｄ列　　　Ｅ列
0ABAB
1CDDC
0EFEF
1GHHG
0IJIJ
Ｄ２に　=IF($A2=0,B2,C2)　下方向に式を複写。
Ｅ２に　=IF($A2=0,C2,B2)　下方向に式を複写。
Ｄ，Ｅ列の値をだけを、Ｂ，Ｃ列に複写して、Ｄ，Ｅ列を抹消

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/04/19 19:05

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

この回答へのお礼

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

お礼日時：2011/04/21 10:49