住所から都道府県を削除した値を求めます。
リストの住所から都道府県を一括して削除したい場合に使ってください。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「 DelPrefecture」が使用できます。
使い方は
ワークシート上で = DelPrefecture(住所) の関数として使用することで、都道府県を削除した住所を取得できます。
【例】
DelPrefecture(住所)
DelPrefecture(“神奈川県横浜市神奈川区”)→ 横浜市神奈川区
DelPrefecture(“東京都新宿区西新宿”)→ 新宿区西新宿
住所から都道府県を取り除く
Function DelPrefecture(A As String)
'住所から県を消す関数
'DelPrefecture(住所)
'DelPrefecture("神奈川県横浜市神奈川区")→ 横浜市神奈川区
'DelPrefecture("東京都新宿区西新宿")→ 新宿区西新宿
On Error GoTo EXITFUN
Dim i As Long
Dim PRE(1 To 47, 1)
PRE(1, 1) = "北海道"
PRE(2, 1) = "青森県"
PRE(3, 1) = "岩手県"
PRE(4, 1) = "宮城県"
PRE(5, 1) = "秋田県"
PRE(6, 1) = "山形県"
PRE(7, 1) = "福島県"
PRE(8, 1) = "茨城県"
PRE(9, 1) = "栃木県"
PRE(10, 1) = "群馬県"
PRE(11, 1) = "埼玉県"
PRE(12, 1) = "千葉県"
PRE(13, 1) = "東京都"
PRE(14, 1) = "神奈川県"
PRE(15, 1) = "新潟県"
PRE(16, 1) = "富山県"
PRE(17, 1) = "石川県"
PRE(18, 1) = "福井県"
PRE(19, 1) = "山梨県"
PRE(20, 1) = "長野県"
PRE(21, 1) = "岐阜県"
PRE(22, 1) = "静岡県"
PRE(23, 1) = "愛知県"
PRE(24, 1) = "三重県"
PRE(25, 1) = "滋賀県"
PRE(26, 1) = "京都府"
PRE(27, 1) = "大阪府"
PRE(28, 1) = "兵庫県"
PRE(29, 1) = "奈良県"
PRE(30, 1) = "和歌山県"
PRE(31, 1) = "鳥取県"
PRE(32, 1) = "島根県"
PRE(33, 1) = "岡山県"
PRE(34, 1) = "広島県"
PRE(35, 1) = "山口県"
PRE(36, 1) = "徳島県"
PRE(37, 1) = "香川県"
PRE(38, 1) = "愛媛県"
PRE(39, 1) = "高知県"
PRE(40, 1) = "福岡県"
PRE(41, 1) = "佐賀県"
PRE(42, 1) = "長崎県"
PRE(43, 1) = "熊本県"
PRE(44, 1) = "大分県"
PRE(45, 1) = "宮崎県"
PRE(46, 1) = "鹿児島県"
PRE(47, 1) = "沖縄県"
For i = 1 To 47
A = Replace(A, PRE(i, 1), "")
Next
DelPrefecture = A
EXITFUN:
End Functionここで紹介したコード使用による損害に対しては一切責任は負えません。