Excelで住所の表示について

質問

次のようにしたいのですがあまり複雑にならない方法を教えて下さい
　東京都渋谷区＊＊＊
　神奈川県相模原市＊＊＊
　北海道札幌市＊＊＊
と住所表示があります、これを別のCELLに貼り付け転記し
　渋谷区＊＊＊
　相模原市＊＊＊
　札幌市＊＊＊
の様に都道府県を削除したいのです、都道府県名のみを取り出し表示することはできたのですが
削除することができません、よろしくお願いいたします。

回答No.2

f272 · ベストアンサー

都道府県名のみを取り出すことができたのなら，元の住所の中の都道府県名の部分をSUBSTITUTEで削除すればよい。
例えば
A1=東京都渋谷区＊＊＊
A2=東京都
であれば
=SUBSTITUTE(A1,B1,"")

お礼

ありがとうございます、Ｓｕｂｓｔｉｔｕｔｅを使うのは気付きませんでした、まだまだ勉強不足です、これからも努力します。

回答No.6

chayamati

北海道、東京都、京都府、大阪府以外の43件は県です。
べたですが、北海道、東京都、京都府、大阪府は個別のVBA(マクロ)
と残りの県付のVBA　これら5つのVBAを連続記述して、一つのVBA
にするのは如何ですか

お礼

ありがとうございます、ＶＢＡはこれから勉強したいと思います・

回答No.5

bunjii

>なんでも一発でというのは困難なのでしょうか。
工夫次第です。
都道府県が必ず入っているか否かで数式の組み立て方が変わります。
あなたが都道府県を抽出した数式を回答No.4の数式のB2と入れ替えることで希望通りになります。
B2の数式を私なりに組み立てると次のようになります。
=LEFT(A2,MIN(FIND({"都","道","府","県"},A2&"都道府県")))
都道府県の記載が無い住所を含むときは次のようにします。
=IF(MIN(FIND({"都","道","府","県"},A2&"都道府県"))<LEN(A2),LEFT(A2,MIN(FIND({"都","道","府","県"},A2&"都道府県"))),"")
但し、東京都府中市や宮崎県都城市のような場合は都道府県が無いと正常な抽出ができません。

お礼

ありがとうございます、これから検討したいと思います。

回答No.4

bunjii

>都道府県名のみを取り出し表示することはできたのですが削除することができません、
元の住所がA2に記録されていて都道府県がB2に抽出されているときC2に都道府県を除いた住所にすることは簡単です。
=SUBSTITUTE(A2,B2,"")

お礼

ありがとうございます、やはり都道府県名を表示させた後の処理ということでしょうか、なんでも一発でというのは困難なのでしょうか。

回答No.3

aokii

都道府県名のみを取り出し表示することができたのでしたら、その都道府県名のみを取り出し表示した列のデータの文字数をcount関数で取り出し、その数+1以降の文字を住所表示されたセルからMID関数で抽出してみて下さい。
あるいは、A1セルに元の住所が記載されている場合ですが、以下の式を使ってみてください。
=IF(OR(LEFT(A1,4)="鹿児島県",LEFT(A1,4)="和歌山県",LEFT(A1,4)="神奈川県"),MID(A1,5,200),MID(A1,4,200))

お礼

なるほど！　参考になった考え方でありがとうございます
参考になりました。

回答No.1

watabe007

マクロですが住所はA1～A3セルに書かれており
C1～C3セルに出力します。

Sub Test()
　　Dim c As Range, ken As Variant, n As Long
　　For Each c In Range("A1:A3")
　　　　For Each ken In Array("府", "都", "道", "県")
　　　　　　n = InStr(c.Value, ken)
　　　　　　If n > 0 And n < 5 Then
　　　　　　　　c.Offset(, 2).Value = Mid(c.Value, n + 1)
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　Next
End Sub

お礼

ありがとうございます、表示したいと思っていた形通りなのですが
マクロはまだ理解できなくて申し訳ありません、今後勉強したいと思います。