こんばんは。
この「都道府県」には、数の規則があって、
=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)などのシートモジュールです。
