dポイントプレゼントキャンペーン実施中!

教えて下さい。
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 = "@"

A 回答 (2件)

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


...
Range("B1").Value = "0" & 電話番号
    • good
    • 1
この回答へのお礼

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

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

こんなのとか。

添付図参照。
固定電話の市外局番を真面目に判別させるには、もっと細かく場合分けをしないとダメですが。
「VBA初心者です。電話番号の数字の前に0」の回答画像1
    • good
    • 1
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています