マクロでExcelのセルに任意の文字列を追加するには？

Excel2003 を使用しています。

文字列の入ったセルに任意の文字列を追加するマクロを
作りたいのですが、どのように記述すればよいのでしょうか？

例えば、郵便番号に〒を文字列の頭に追加したい場合です。
元のセルに入力されている文字列が

111-1111

として、マクロで、

〒111-1111

と同じセルに追記したいのです。

ご助言の程、どうぞよろしくお願いします。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2008/01/26 11:45

With Range("A1")

　　.Value = "〒" & .Value
End With
みたいな事ですか？

この回答への補足

初歩的な質問なのですが、ネットで検索しても見つからなかったので
お願いします。

まず、「.Value」は、セル内の任意の文字列という解釈でよいのでしょうか？

「＆」は、＆の前にある文字列と後ろにある文字列を結合するという意味でしょうか？

お手数おかけしますが、ご助言お願いします。

補足日時：2008/01/26 12:34

No.3 回答者： n-jun 回答日時： 2008/01/26 14:01

>まず、「.Value」は、セル内の任意の文字列という解釈でよいのでしょうか？

任意ではなくWith Range("A1")にかかるものですから、セルＡ１に
限定してます。
アクティブなセルにと言うのであれば、
With ActiveCell
　　.Value = "〒" & .Value
End With
ですかね。

>「＆」は、＆の前にある文字列と後ろにある文字列を結合するという意味でしょうか？
前後の文字列を”連結”する事ですね。

この回答へのお礼

ご説明どうもありがとうございます。

いつも置換や、テキストエディタとExcelを行ったり来たりと
手間をかけていたのですが、アドバイスのおかげで、作業の
手間がかなりはぶけます。

とても助かりました！　<(＿ ＿)>

お礼日時：2008/01/26 14:35

No.2 回答者： himajin555 回答日時： 2008/01/26 12:41

セルの表示形式を"〒"@にすると、希望どおりの表示になります。

この回答へのお礼

アドバイスありがとうございます。

表示形式の使い方にそのような方法があったことは
知りませんでした。

お礼日時：2008/01/26 14:32