Sub 都道府県を削除2()
'
' Macro1 Macro
' 県の前を削除
'
'
 結果 = MsgBox("まず列を選んでください。" & vbCrLf & "列を選択しましたか？", vbYesNo + vbQuestion, "どちらですか？")
 If 結果 = vbYes Then
 
    Selection.Replace What:="*県", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="北海道", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="大阪府", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="京都府", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
     Selection.Replace What:="東京都", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Else
MsgBox "処理を中止します。"
End If
End Sub

Sub 都道府県のみにする2()
'
' 都道府県のみにする Macro
'
'
 結果 = MsgBox("まず列を選んでください。" & vbCrLf & "列を選択しましたか？", vbYesNo + vbQuestion, "どちらですか？")
 If 結果 = vbYes Then
    'Columns("C:C").Select
    Selection.Replace What:="東京都*", Replacement:="東京都", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="県*", Replacement:="県", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="大阪府*", Replacement:="大阪府", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="京都府*", Replacement:="京都府", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="北海道*", Replacement:="北海道", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Else
MsgBox "処理を中止します。"
End If
End Sub