エクセルでセルの中の指定した文字だけ一括削除する方法

例えば
旭町10番1号
旭町1番20号
宇賀浦町8-3
栄町13-8
栄町4番5号
榎本町22-14
榎本町31番9号
花園町42番15号　このようなものがＡ列に１000件くらい入ってまして。これらの番地以降をけしたいとき方法はありますか？
このようにしたいのですが。
旭町10番
旭町1番
宇賀浦町8
栄町13
栄町4番
榎本町22
榎本町31番
花園町42番

No.3 回答者： maron--5 回答日時： 2006/11/08 05:59

◆関数ならこんな方法もありますよ

=LEFT(A1,FIND("番",SUBSTITUTE(A1,"-","番"))-(COUNTIF(A1,"*-*")>0))

No.2 回答者： mu2011 回答日時： 2006/11/07 14:57

次の方法は如何でしょうか。

（１）編集→置換で、検索文字を番*、置換文字を番で全て置換
（２）同様に検索文字を-*、置換文字を空白で全て置換
但し、市町村名で「番」が含まれる場合、調整して下さい。

この回答への補足

返答ありがとうございます。この「＊」というのはなにをあらわしているのですか？「ー＊」もなんでしょうか？

補足日時：2006/11/07 22:48

No.1 回答者： mshr1962 回答日時： 2006/11/07 14:49

市区町村名に番の字が含まれてる場合はエラーしますが、それ以外なら

=LEFT(SUBSTITUTE(A1,"-","番"),FIND("番",SUBSTITUTE(A1,"-","番")&"番"))