エクセル 住所録の中に登録してある都道府県を全て消したいのですが

初めまして。

エクセルで住所録を作っているのですが、
住所欄の「広島県広島市○○○」という中の
「広島県」という部分だけを消したいのですが
何か良い方法はありませんでしょうか？

登録数が500件近くあり、個々に消していくのは可能なのですが、
一度に削除できる方法があると助かります。

ネットで調べてみたのですがいい解決法が見つからず、
明日までに仕事で提出しないといけないので困っています。
どなたかご存知の方がいましたらご教授下さい。
よろしくお願いします。

No.3 ベストアンサー 回答者： hidechan2004 回答日時： 2006/07/31 21:26

他で住所が書かれている部分はありませんか？

だったら、置換で、ある程度は出来ますよ。
編集ー＞置換で、
検索する文字列に「*県」として、
置換後の文字列は、何も入力せずに、全て置換ボタンを押してください。

府、道、都もあるなら同様にやってください。

ちなみに、「*」は任意の文字列を表しますので、
○○県という風に最後が県になる文字列を指します。

No.7 回答者： Wendy02 回答日時： 2006/07/31 22:06

こんばんは。

この「都道府県」には、数の規則があって、

=SUBSTITUTE(A1,IF(MID(A1,4,1)="県",LEFT(A1,4),LEFT(A1,3)),"")

数式ですと、このような方法で消えるはずです。(日経PC21より)

もちろん、置換コマンドで、「*県」とかで良いはずですが、万が一、「広島県」とか、県名などが、途中からというような場合は、以下のようなマクロで済ませてしまえばよいと思います。

'------------------------------------------------------

Sub DeleteKenNames()

Const PREFECT_LIST = "北海道,青森県,岩手県,秋田県,宮城県,山形県,福島県,新潟県,富山県,石川県,福井県, 長野県,茨城県, 栃木県, 群馬県, 埼玉県,千葉県, 神奈川県, 山梨県, 東京都,岐阜県,静岡県,愛知県,三重県," & _
"滋賀県,京都府,兵庫県,奈良県,和歌山県,大阪府,鳥取県,島根県,岡山県,広島県,山口県,徳島県,香川県,愛媛県,高知県, 福岡県, 佐賀県, 長崎県, 熊本県, 大分県, 宮崎県, 鹿児島県,沖縄県"
Dim PreFect_Lists As Variant
Dim sFind As Variant
PreFect_Lists = Split(PREFECT_LIST, ",")

Application.ScreenUpdating = False

For Each sFind In PreFect_Lists
With ActiveSheet.UsedRange
　　　.Replace _
　　　 What:=VBA.Trim(sFind), _
　　　 Replacement:="", _
　　　 LookAt:=xlPart, _
　　　 SearchOrder:=xlByRows
End With
Next

Application.ScreenUpdating = True

End Sub

'------------------------------------------------------

注意：マクロで実行すると、後戻りが利きませんので、予め保存するか、バックアップを取ってから行ってください。マクロの貼り付け場所は、標準モジュールか、シート（Sheet1)などのシートモジュールです。

No.6 回答者： zap35 回答日時： 2006/07/31 21:34

＞住所録の中に登録してある都道府県を全て消したいのですが

が質問タイトルですが、本文には「広島県」だけが記載されています。これはどちらですか？

もし全都道府県が対象なら、一回の操作で１００％対処はできませんがA1:A500に住所が入力されているとして、この範囲を選択し
　「データ」→「区切り文字」→「カンマやタブなど…」→「次へ」
として「その他」にチェックをつけて、区切り文字として「県」を入力してみてください。県名とそれ以下が分離されるはずです。ただし市町村以下に「県」という時があると更にセル分割されますから、後で修正して下さい

北海道、東京都、大阪府、京都府は＃０１さんの方法で一括置換しても手間はかからないでしょう

最後に、元データは必ずセーブしてから行ってくださいね。

No.5 回答者： Chimrin 回答日時： 2006/07/31 21:28

#2です。

回答した後で気付いたのですが、「広島県」だけではなく「岡山県」「山口県」もある、すべての県名を消したいという意味でしょうか？

その場合は置換で「*県」を空文字に置換すればいけそうな気がします。*（アスタリスク）は任意の文字列にマッチします。
「広島県」の前にさらに文字列がある場合はそれも消えてしまいますが……。

No.4 回答者： wonder99 回答日時： 2006/07/31 21:27

「*県」を「」（何もない）に置換したらどうでしょうか？

半角で「*」はワイルドカードですので
何県であっても反応しますよ。
この方法なら、都・道・府・県の4回で済みそうです。

No.2 回答者： Chimrin 回答日時： 2006/07/31 21:23

単純に置換ではだめなのでしょうか？

「広島県」を空文字（何も入力しない）に置換すればいいように思うのですが。

No.1 回答者： jane29 回答日時： 2006/07/31 21:19

セル１つの中に住所なら無理じゃ無いでしょうか？

もっと専門家の方いるかもしれないので～
私も一緒に回答見ています。