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

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


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

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

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

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

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

No.1 ベストアンサー 回答者： mshr1962 回答日時： 2010/06/29 11:32

F列に

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

この回答へのお礼

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

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

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

お礼日時：2010/07/03 00:45

No.3 回答者： mu2011 回答日時： 2010/06/29 18:54

ＶＢＡで一括変換する方法は如何でしょうか。

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

この回答へのお礼

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

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


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

お礼日時：2010/07/03 00:48

No.2 回答者： falcon9311 回答日時： 2010/06/29 11:33

F2に、"=ASC(E2)"と入力してF500までコピー

F2～F500をコピーしてE列に値のみを貼り付け
で、どうでしょう

この回答へのお礼

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

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

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

お礼日時：2010/07/03 00:46