空白なら入力、入力されていたら削除のマクロ

質問

A1セルに、B１セルに入力した文字をコピーするマクロを作りたいです。
ただし、常にB1セルに入力した文字をコピーするのではなく、A１セルに何も
入力されていなかった時だけ文字をコピーして、逆に何か入力されていた時はそれを
認識して、A１セルを空白にするマクロです。マクロの記録でうまくいかなかったので、お知恵を貸していただければ幸いです。。

（例）　A１セルは空白　B１セルに　あいうえお　とかかれているとする
　　　マクロボタンを押すと、　A１セルにあいうえお　と入力される
　　　もう一度同じマクロボタンを押すと、A1セルが空白になる（あいうえおが削除される）
　　　更にもう一度同じマクロボタンを押すとA１セルにあいうえお　と入力・
　　　これの繰り返しです。

回答No.2

ereserve67 · ベストアンサー

Sub macro()

If Range("A1").Value <> "" Then
Range("A1").ClearContents
Else
Range("A1").Value = Range("B1").Value
End If
End Sub

これを適当なオートシェイプに登録します．

お礼

ご回答ありがとうございます。

回答No.1

keithin

sub macro1()

　if range("A1") = "" then
　’空白ならコピーする
　　range("A1").value = range("B1").value

　else
　’そうでないならクリアする
　　range("A1").clearcontents
　end if
end sub

みたいな。

お礼

ご回答ありがとうございます。