Excel2000で置換＞全角数字を半角数字へ

質問

表記置換方法についてご教授ください。
ある列に文字列と全角数字が混在したセルが数百行あります
これを半角数字に置換したいのですが希望通りにできません。よい方法をご存知の方ご教授願います
変換した内容
(TEL)０３－９９９９－９９９９　　⇒　03-9999-9999
半角　全角数字（実際には電話番号）　　半角数字　

やったこと
置換機能にてまず行頭の(TEL) を削除
置換にて０（全角）→0（半角）
これを０～９まで１０回繰り返し

これを一度の置換で実行させたい
置換前の文字指定と置換後の文字を正しく指定する方法はないでしょうか？

回答No.2

hirumin · ベストアンサー

ASCという関数を使えば、全角を半角に変換できます。
先頭が「(TEL)」と5文字であるなら、
列を追加し、
=MID(ASC(対象セル),6,LEN(対象セル)-5)
を必要行数コピーして、出てきたものを元の列に値貼り付け。
関数を入れた列を削除。
この手順でいかがでしょうか。

お礼

ご教授ありがとうございます
この方法を使えば１度の指定で希望の値が得られました
ただ、機能としては「置換」機能を使って実行したかったのですが、でも希望通りの値が得られたのでよしとします
どうもありがとうございました

回答No.1

neKo_deux

> これを０～９まで１０回繰り返し

これは面倒かも。

半角文字への変換関数を利用してみては？
B1セルに、
=ASC(A1)

とすると、半角の文字が取得できます。
これをコピー、[編集]-[形式を指定して貼り付け]で値として貼り付けます。

お礼

早速の回答ありがとうございました
=ASC(対象セル)は使ったことがありませんでした
これを実行すれば一発で全角数字（ハイフン含む）が半角数字になりますね
あとは値だけを貼り付けるようにすればいいと
但し行頭の(TEL) はやっぱり残ってしまいますね
まあ、作業が２段階ですみますのでよしとします
どうもありがとうございました