VBA初心者です。電話番号の数字の前に0を表示させたいです。

教えて下さい。
VBA初心者です。
CSVファイルから電話番号のセルをコピーしてエクセルに貼り付けました。
CSVファイルにも頭の0の表示がない状態です。
番号の最初に0をつけるにはどのように表記すればいいでしょうか。
電話番号は固定電話（0をつけて10桁にしたい）と携帯電話（0をつけて11桁にしたい）
があります。

CSVファイル名・・・しーえすぶい.csv
（電話番号が入っている）A1セルをコピー　➡　例　123456789
エクセルファイル名・・・エクセル.xlsm
B1セルに貼り付け

Windows("しーえすぶい.csv").Activate
Range("A1").Select
Selection.Copy
Windows("エクセル.xlsm").Activate
Range("B1").NumberFormatLocal = "@"

No.2 回答者： Ogre7077 回答日時： 2022/12/14 10:57

電話番号 = Range("A1").Value

...
Range("B1").Value = "0" & 電話番号

この回答へのお礼

ありがとうございます！
書き換えて試してみます。大変助かりました。

お礼日時：2022/12/15 07:47

No.1 回答者： osamuy 回答日時： 2022/12/14 09:51

こんなのとか。

添付図参照。
固定電話の市外局番を真面目に判別させるには、もっと細かく場合分けをしないとダメですが。

この回答へのお礼

ありがとうございます！書式設定でも可能なのですね。大変勉強になりました。

お礼日時：2022/12/15 07:43