Excelでマクロを使いセルの内容をコピー貼り付け

A1セルに111と入力してあるとします。
この時B1にaaa111aaaと入力するマクロを作りたいです。
A1に222があるとB1はaaa222aaaと入力したいです。

これをマクロで作ったのですが、次のようになり、A1の内容にかかわらず常にaaa111aaaとなってしまいます。

Sub Macro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "111"
Range("B1").Select
ActiveCell.FormulaR1C1 = "aaa111aaa"
Range("B2").Select
Application.Goto Reference:="Macro2"
End Sub

これのいらない行を削除し、コピーはA1の内容となるように修正して次のようにしました。
Sub Macro1()
ActiveCell.FormulaR1C1 = Range("A1")
Range("B1").Select
ActiveCell.FormulaR1C1 = "aaa111aaa"
Application.Goto Reference:="Macro2"
End Sub

まだペーストするときにA1の内容とならず直接入力となっています。
これをどう変更すればいいでしょうか？

No.1 ベストアンサー 回答者： maruru01 回答日時： 2005/06/06 18:43

こんにちは。

maruru01です。

ご希望の動作は、基本的には、

Range("B1").Value = "aaa" & Range("A1").Value & "aaa"

の1行だけで出来ます。

この回答へのお礼

できました！
上級者の方にとっては常識なのですね・・・。

お礼日時：2005/06/06 23:03