excel2016でマクロを使用して住所並び替え方

質問

excel2016でマクロを使用して住所並び替えしたいです
やりたいことは以下になります
以下のようにバラバラの住所録を町名ごとに

出来れば50音順で、ふりがなをふったりセルに何か入力しなければ出来ない場合は町名毎に並べ替え、町名以降の番地順のみで並べ替えしたいです

東京都杉並区阿佐ヶ谷北1－1－1
東京都杉並区阿佐ヶ谷北1－1－2
東京都杉並区阿佐ヶ谷北1－1－3
東京都杉並区井草1－20－1
東京都杉並区井草1－25－4
東京都台東区谷中1－2－1
東京都台東区谷中1－28－3

のように順番ごとに並べ替えたいです

例；
東京都杉並区井草４－２２
東京都杉並区阿佐谷北６－１２－７
東京都台東区池之端１－３－４５
東京都台東区池之端１－４－２２
東京都杉並区阿佐谷北６－１２－１０
東京都台東区谷中３－４－１２
東京都台東区谷中３－４－５
東京都杉並区阿佐谷北６－１２－５
東京都杉並区今川１－１９－２１
東京都台東区浅草１－１２－４
東京都杉並区今川１－１３－１６
東京都中央区入船１－１－１７
東京都中央区勝どき５－１２－９
東京都中央区入船１－４－３
東京都台東区谷中３－４－８
東京都杉並区今川１－１３－６
東京都杉並区今川１－１３－４
東京都中央区勝どき５－３－１０
東京都台東区池之端１－４－２１
東京都中央区入船３－５－８

よろしくお願い致します

回答No.9

山田 太郎（@f_a_007）

【補足】郵便番号ウイザードを利用しなくても

１、郵便番号を付与する。
２、東京都、市区、町村に分割する。
３、それぞれに正規の読みを付与する。

は、式一発で出来るようですよ。で、質問者、これをやったらどうですか？

回答No.8

山田 太郎（@f_a_007）

面目ない！あいうえお順＋番地順は、こっちかも知れない。訂正しておきます。

東京都台東区谷中３－４－１２
東京都台東区谷中３－４－５
　↓
東京都台東区谷中３－４－０５

だろうから・・・

なお、フリガナ変換は、以下の関数でOK!

Public Function Furigana(ByVal strText As String) As String
　　Furigana = Application.GetPhonetic(strText)
End Function

取り敢えず！

回答No.7

山田 太郎（@f_a_007）

【何度もスマン】あいうえお順もいけたかもです。

ちょっと、面倒臭いが、やって見る気があれば連絡を！ただし、明日は手術。退院は明後日。で、手順の詳細は、明後日の夕方頃になります。

回答No.6

山田 太郎（@f_a_007）

【お詫び】番地を求める関数は、本当は次のよう。

Public Function FindChar(ByVal strText As String, ByVal strCharList As String) As Integer
　　Dim I As Integer
　　Dim L As Integer
　　Dim P As Integer
　　Dim C As String

　　L = Len(strText & "")
　　For I = 1 To L
　　　　C = Mid(strText, I, 1)
　　　　If InStr(1, strCharList, C) Then
　　　　　　P = I
　　　　　　Exit For
　　　　End If
　　Next I
　　FindChar = P
End Function

　まあ、エクセルで可能なようだから無用の長物ですが、一応、訂正しておきます。

回答No.5

山田 太郎（@f_a_007）

【補足】番地の始まる位置を取得する関数。

Public Function CharFind(ByVal strText As String, ByVal strCharList As String) As Integer
　　Dim I As Integer
　　Dim J As Integer
　　Dim L As Integer
　　Dim N As Integer
　　Dim P As Integer
　　Dim C() As String

　　C() = Split(strCharList & ",", ",")
　　N = UBound(C())
　　L = Len(strText & "2")
　　For I = 0 To N
　　　　For J = 1 To L
　　　　　 If Mid(strText, J, 1) = Trim(C(I)) Then
　　　　　　　P = J
　　　　　　　Exit For
　　　　　 End If
　　　　Next J
　　　　If P > 0 Then
　　　　　　Exit For
　　　　End If
　　Next I
　　CharFind = P
End Function

　これで、先の要領で並び替えられる筈です。

回答No.4

chayamati

今晩は、横から失礼します。
＞excel2016でマクロを使用して住所並び替えしたいです
　マクロは必要ありません
＞バラバラの住所録を町名ごと
　町名ごとですか？町名順なら並び替えでよいのですが
　フィルタ機能は如何ですか
　列名をアクティブにしてからデータリボンのフィルタをクリックします。
　項目名の右側の▽で、全ての住所名に(チェックボックス チェック)がついています。
　すべて選択の(チェックボックス チェック)を外すと他の(チェックボックス チェック)も外れます。
　改めて必要な住所に(チェックボックス チェック)を入れます添付図
　分類ツールもこのデータリボン内にありますね
＞出来れば50音順で
　住所はどの様にして登録しましたか
　・一つ一つかな漢変換入力なら入力した漢字についていますので
　　50順になります
　・郵便番号より、変換するとこれがふりがなになります
　・他のファイルからのコピペならJISコード順なのでオン読み順に

＞ふりがなをふったりセルに何か入力しなければ出来ない場合は町名毎に並べ替え、町名以降の番地順のみで並べ替えしたいです
　この必要は無いでしょう、あるとしたら郵便番号の追加でしょう

回答No.3

山田 太郎（@f_a_007）

Q、町名＋番地で昇順に！
A、それは、出来ているも同然。

　初回回答の２番目に番地が始まる位置を示す数字があります。この数字を手掛かりに住所を町名までと番地に分割しています。で、町名の末尾に10個のスペースを付加し、その後に町名をくっ付けます。後は、エクセルのメニュー昇順をクリックするだけ。が、先ほど、番地が始まる位置を求める関数を消しました。明日、それをもう一度書くのでお待ちください。まあ、それとも、番地が始まる位置を求める関数を自作するか？OKWaveで質問するか？どっちでも、いいです。なお、この補足に対する返信は無用ですよ。

回答No.2

山田 太郎（@f_a_007）

Q、町名以降の番地順のみで並べ替えしたいです。
A、とは、添付図のようにかな？

補足

f_a_007さん、返信ありがとうございます
重複する町名は揃えたいです
なので、
A1の直ぐ下に、A10、A14の町名＋番地をA2、A3に並べ替えたいです

回答No.1

imogasi

総論的な話を書いてみます。
次の２つが問題になる。
（A)区切りの問題
下記（１）－（４）を分けた住所をデータを持っている場合は少ない。
ひと続きの文字列になっている場合が多い。（１）－（４）が、スペースででも区切られておればVBAで処理しやすいが。
（B)並べ替える基にするデータの存在
（B)は日本の慣行からして、フリガナのデータが必要なばあいがほとんど。
ーーー
住所の大まかな区分は、
（１）・都府県の文字部分
（２）・区の文字部分
（３）・町の文字部分
（４）・丁目番地の、文字数字か数字記号部分
（５）・マンション名などの部分
を、エクセルで言えば「列」ごとに、一旦分けないと、ソートがうまく行きません。
ーー
（１）、（２）はエクセルの関数でも、行う方法は、WEBを調べればたくさん記事がでます。またVBAでも簡単に出来ます。
ただし文字でやると、例外はありますので考慮が必要。例　四日市市
町と丁目・番地部分をVBAで分けるのは、少しむつかしい。
ーー
分けることができれば、後は優先列を指定して並べるだけです。
また操作ででも、できるのでVBAにこだわる必要がないです。
＝＝＝＝
フリガナの問題もVBAで自動でやるのは、むつかしい。
地名は独特の読み方をするのが多いから。
ただ、GetPhonetic関数の利用があります。
少数例で、私の場合は下記ですが。
どこかからコピーした文字列（そのシートに直接打ち込んだデータでない場合）だとうまく行かないかも。
A列　　　　B列（実行結果）
東京都 トウキョウト
神奈川 カナガワ
四谷 ヨツヤ
渋谷区 シブヤク
本郷 ホンゴウ
御茶ノ水 オチャノミズ
秋葉原 アキハバラ
西原 ニシハラ
雑司ヶ谷 ゾウシガヤ
ーー
B列は
Sub Sample1()
Dim x As String
For i = ２ To 10　’９行分の例
x = Cells(i, 1)
Cells(i, "B") = Application.GetPhonetic(x)
Next i
End Sub
で出したもの。２０１３の例。
質問者の使うエクセルの場合に、うまく行くかな。上手く行けば使えるでしょう。
ーー
ただし下記のような記事があります。
http://officetanaka.net/excel/vba/tips/tips49.htm
＞注意：これ、最近はできなくなったようですね。Excelというか、MS-IMEの仕様変更かもしれませんね。
ーー
追記
OKWAVEの質問記事の例からコピーして、A列に貼り付けて、上記を実行すると
東京都杉並区今川 トウキョウトスギナミクイマガワ
東京都中央区勝どき トウキョウトチュウオウクカチドキ
東京都台東区池之端 トウキョウトタイトウクイケノハタ
東京都中央区入船 トウキョウトチュウオウクイリフネ
になりました。ただし、都＋区＋町名等分離以前データです。
以上参考に。
＝＝＝
CSVデータにして、市販年賀状ソフト（住所録作成機能部分）などに読み込ませて目的を達せられないか。
VBAも自由自在ではないだろうから、自作ではなくて、フリーのソフトで、使えるものはないかを探す、などが本筋かとも思う。