文字だけを消去したい

質問

大変困っております・・・

エクセルで顧客管理をしているのですが、先日クライアント様より、
『地域の絞込みをしたいので○○県○○市○○町○丁目まで細分かされたファイルを作成して下さい』と依頼されました。

データの項目の住所のセルには住所が全て記入してあるので、検索方法によっては可能だと思うのですが、方法がわかりません。

データの中には『群馬県伊勢崎市今泉町1-□-△』というタイプの住所と、『群馬県伊勢崎市東本町3○○※○の中には数字が記入されています』という住所があります。

最初はオートフィルターで『【1-】を含む』などで検索をかければいいのでは？と考え、試してみたのですが、それですと『2-1-3』などの住所も検索にひっかっかてきてしまうので無理でした。

別セルに丸々コピーをして、文字を全て消去し、『【1-】で始まる』で検索をかければアナログ作業も含めば抽出できると思うのですが、数字を残して文字だけを消す自製関数を作ることは可能でしょうか？
※以前数字だけを消すVBAをｇｏｏ質問で教えて頂いたことがございます。

文字のみを消す方法か、上記の条件でもっと効率良く『○丁目』で抽出する方法はございますでしょうか？

本当に困っております。どなた様かよろしくお願い致します。

回答No.7

n-jun · ベストアンサー

>１件１件クリックして、ダイアログボックスを出すタイプのものなのでしょうか？
クライアントは住所の全ては必要なく、既存のデータから”丁目”までに
データの変換を希望されているのかな？と判断しての変換サンプルです。
実際のデータには触れてないです。

お礼

ご返信遅くなりまして申し訳ございません。
業務は無事終えることができました。

色々とご協力頂きありがとうございました。

回答No.6

n-jun

ユーザー定義関数なら、
Function　try(ByVal　v　As　String )　As　String
　　　　With　CreateObject("VBScript.RegExp")
　　　　　　　　.Pattern　=　"^(\D*\d*)\-\S*"
　　　　　　　　.Global　=　True
　　　　　　　　　　　　If　.TEST(v)　Then
　　　　　　　　　　　　　　　try　=　.Replace(v,　"$1"　&　"丁目")
　　　　　　　　　　　　Else
　　　　　　　　　　　　　　　try　=　""
　　　　　　　　　　　　End　If
　　　　End　With
End　Function
セルＡ１に住所があってＢ１に書き出したいのなら
B1 =try(A1)
try:好きなネーミングつけて下さい。

回答No.5

n-jun

>どのように使えばいいのでしょうか・・・？
>エディタを開いてモジュールにペーストはしたのですが・・・
標準モジュールに貼り付けたら、エディタの実行＞マクロの実行＞
tryを選択して実行。

と言うより、メッセージが表示されるだけのサンプルですけど。

実際にはシート構成が不明ですし、上記で良いのかわかりません。

補足

『伊勢崎市今泉町1丁目』というダイアログボックスが出てきました。

１件１件クリックして、ダイアログボックスを出すタイプのものなのでしょうか？

回答No.4

n-jun

>群馬県伊勢崎市今泉町1-□-△　というデータを
>群馬県伊勢崎市今泉町１丁目　というデータだけを抜き出したいということです。
何となく抜き出すというか、変換したいように感じたのですが。

Sub　try()
　　Dim　c,　v

　　v　=　Array("群馬県伊勢崎市今泉町1-1-1",　_
　　　　　　　　　"群馬県伊勢崎市東本町3111")

　　With　CreateObject("VBScript.RegExp")
　　　　.Pattern　=　"^(\D*\d*)\-\S*"
　　　　.Global　=　True
　　　　For　Each　c　In　v
　　　　　　If　.TEST(c)　Then
　　　　　　MsgBox　.Replace(c,　"$1"　&　"丁目")
　　　　　　End　If
　　　　Next
　　End　With
End　Sub
こうゆう事ではないのですか？

補足

どのように使えばいいのでしょうか・・・？

エディタを開いてモジュールにペーストはしたのですが・・・

回答No.3

bin-chan

まず、丁目をアラビア数字から漢数字に変換しておく。
その上でASC関数で全角→半角変換した際に「文字がどこで変化したか」を検出すれば、

変換前）○○県○○市○○町三丁目１－２－３
変換後）○○県○○市○○町三丁目1-2-3

と差が生じます。そこで区切る

でも「丁目」で区切ろうにも和歌山市では「丁」ですからねぇ。
住所に「甲乙丙丁」と十干の名称を付けてるところもありますし。

＃２さんのおっしゃるとおり、仕様を詰めた方が良いと思います。

回答No.2

n-jun

クライアントが求めているのは、
群馬県伊勢崎市今泉町1-□-△　から
1-□-△　を残すことなのですか？

群馬県伊勢崎市今泉町１丁目　と言う条件から
群馬県伊勢崎市今泉町1-□-△　を抽出する事ではないのでしょうか？

そのあたりが不明に思います。

補足

説明不足で申し訳ございません。

今回の抽出データを元に自社の広告を配布している地域の選定のし直しを
するそうなのですが、現在のデータは住所が完全に入力されている状態のため、
余計なものを省き【○県○市○町○丁目※以下の番地やマンション名などは必要ない】という形にして、
現在広告を配布している地域と、実際に購入してくださったお客様の数を比較したいそうなのです。

ですので、抽出したいデータは、Ｎｏ．2様のおっしゃっているのと逆で、
群馬県伊勢崎市今泉町1-□-△　というデータを
群馬県伊勢崎市今泉町１丁目　というデータだけを抜き出したいということです。

うまく説明できているか不安ですが、よろしくお願いいたします。

回答No.1

nebsoku

まずはVBA以外の方法を。
住所のデータに規則性があるのなら、データの分割ができるのではないでしょうか？

住所の番地が「数字-（ハイフン）数字-（ハイフン）数字」と、必ず「-（ハイフン）」で区切っている場合。

メニューバー[データ]-[区切り位置]から－（ハイフン）で区切ってデータをわければ、簡単に抽出できるようになるかと思います。

区切り位置を使うときは該当列の右に複数の列を挿入してから実施してください。
該当列の右側のデータが上書きされるおそれがあります。
（上書きされるときは、ちゃんと確認メッセージが表示されます）