全角で入力した電話番号を一括で半角にする方法を教えて下さい。

質問

全角で入力した電話番号を一括で半角にする方法を教えて下さい。

こんにちは。
素人です。ご教授下さい。

住所録を作成しておりまして、Ｅ列に電話番号を入力しました。
全角で入力した後に見にくいと思い、半角に直したいのですが、1,000件ほど打ち込んだ後で・・(^_^;)

電話番号は
080-○○○○－○○○○
03-○○○○－○○○○
など、ハイフンも入れて入力してあります。

Ｅ２，Ｅ３，Ｅ４・・・Ｅ５００と、Ｅ列に入力されている電話番号を一括で半角に直す方法をお教え下さい。

お手数お掛けしますが
よろしくお願い致します。

回答No.1

mshr1962 · ベストアンサー

F列に
F2 =ASC(E2)
のようにしてください。
これでF列に半角で表示されるので、コピーしてE列に「形式を選択して貼り付け」の「値」で貼り付けてください。

お礼

ありがとうございました。
出来ました！！

スッキリしました。
助かりました。

また何かございましたらご教授下さい。

回答No.3

mu2011

ＶＢＡで一括変換する方法は如何でしょうか。
（１）データシートタブ上で右クリック→コードの表示（ＶＢＥ画面が表示）
（２）右上欄に以下のコードを貼り付け→Ｆ５キー押下
（３）変換確認後、貼り付けたコードをクリア→ＶＢＥ画面終了
Sub 全角を半角()
For Each a In Range("E:E")
If a = "" Then Exit Sub
a.Value = StrConv(a, vbNarrow)
Next
End Sub

お礼

ありがとうございました。
下の方のご回答で出来ました！！

素人ですので、折角教え頂いたのですが理解できません。

また何かございましたらご教授下さい。

回答No.2

falcon9311

F2に、"=ASC(E2)"と入力してF500までコピー
F2～F500をコピーしてE列に値のみを貼り付け
で、どうでしょう

お礼

ありがとうございました。
出来ました！！

スッキリしました。
助かりました。

また何かございましたらご教授下さい。