Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38799 / 76732

←次へ　｜　前へ→


	【43063】文字列から数字だけを半角数字で抜き出す...

無人島 - 06/10/1(日) 9:29 -


	引用なし

	パスワード

エクセルを初めて一週間程度でして、VBをちょこっとかじった程度なので申し訳ないですが詳しくお願いします。

文字列から数字だけ抜き出して半角数字にする方法を探しているのですが、どうしてもうまくいきません

例えば
A1 電話番号:012-345-6789
から
B1 0123456789

A1 郵便番号：　〒９９９－８８８８
から
B1 9998888"

A1 (000) 11-2222
から
B1 000112222

などです。

元の数字自体は半角か全角かは決まっておらず、数字の位置や数も完全ランダムで：の後に全角や半角のスペースがある場合もあったりします。また数字の間の「-」も「:」も全角か半角か決まっておらず、ない場合もあります。決まってる事は数字の最後の後には文字が入らないくらいです。

エクセルのSUBSTITUTE関数やASC関数である程度まではうまくいくのですが確実ではありませんでした。また過去ログ等を参照したり他サイトをあたってみましたが090だと最初の0が抜けてしまって90になったり完全にはうまくいきません。
どのようにすればよいかどうかご指導お願いします。

1 hits

▼

【43063】文字列から数字だけを半角数字で抜き出す... 無人島 06/10/1(日) 9:29

≪