エクセル：住所の番地順に並び替えたい

質問

お願いします。エクセル２０００です。
住所データを並べ替えすると次のような順番になってしまいます。
（例１）
東京都東京市大畑８７８－９
東京都東京市大畑８８－１４
東京都東京市大畑８８－１５
東京都東京市大畑８８２－１０

これを次のような順番にソートするためにはどうすればよいでしょうか。
（例２）
東京都東京市大畑８８－１４
東京都東京市大畑８８－１５
東京都東京市大畑８７８－９
東京都東京市大畑８８２－１０

回答No.8

Yosha · ベストアンサー

例のように漢字と数字（文字列）とが続いている場合のソートの方法は、適当な関数が用意されていないので、ちょっと面倒くさく、次のようになります。(他にも方法はありますが、これが分かり易いので...)

番地順にソートするには、番地の部分を抜き出して、数字に変換するか、または番地の頭に"０"を幾つか追加して、この番地に対して行えばよいことになります。

これには、何段階かの手順を踏みますので、シート内の右の方の住所録には使わないセルを作業用として割り当てます。今回は、Ａ列に住所が書かれており、Ｅ列目より右が空いていて、作業用として使えるものと仮定します。

手順は、

1)住所の中には"－"が複数あるのが通常ですから、ソートに不要な最初の"－"位置から後を削除するために、"－"の位置を検索します(Ｇ列)。

２)住所の"－"以降を削除した新しい住所を作成します(Ｈ列)。

３)この住所中のそれぞれの数字の位置を検出します(Ｉ列～Ｑ列)。

４)その中の最小値を見つけます(Ｆ列)。

５)この位置以降が番地となりますので、この部分をとりだし、数値に変換します(Ｅ列)。

最後に、ソートしたい住所をＡ列～Ｅ列を含めて、選択し、Ｅ列についてソートし目的が達成できます。

エクセルで作業をするときこのように空いたセルを利用して作業を行えば分かり易く間違えのない作業が出来ます。

具体的には、
1)Ｇ列に、「=SEARCH("－",A1)」または「=SEARCH("－",$A1)」の関数を入れます。

２)Ｈ列に、「=LEFT(A1,G1-1)」または「=LEFT($A1,$G1-1)」の関数を入れます。

３)Ｉ列に、「=IF(ISERR(SEARCH("１",$H1)),"",SEARCH("１",$H1))」の関数を入れます。
"１"の中の数字は、住所内の数字と同じ形式（全角の場合は全角での意味）にします。
SEARCH関数は、検索文字列が見つからない場合には"#VALUE!"エラーを返しますので、セルを空欄にします。
このＩ列のセルをＪ列～Ｑ列までまでコピーし、"１"の部分をそれぞれ"２"～"９"に変更します。

４)Ｆ列に、「=MIN(I1:Q1)」または「=MIN($I1:$Q1)」の関数を入れます。

５)Ｅ列に、「=VALUE(MID(H1,F1,50))」または「=VALUE(MID($H1,$F1,50))」の関数を入れます。
関数中の[50]は、引数を入れないとエラーとなりますので、住所の文字列より多い数を入れます。多すぎる場合にはエラーとなりませんので多目の数字を入れます。

最後に、例の場合だと("A1:E4") または("A1:Q4")を選択し、[データ]→[並べ替え]→[優先されるキー] １番目[昇順]を選び[ＯＫ]を押して、目的達成です。
この後、不要ならば、作業領域のセルを削除してください。

お礼

大変ありがとうございます！

回答No.10

Wendy02

こんばんは。

私は、以前、某掲示板をROMしていた時に、似たような話の覚えがありますが、現実のデータでは、ものすごく難しいと感じました。以下のようにしてみましたが、自分でも疑心暗鬼です。

一応、アラビア数字が書かれているものとします。
ただ、数字がどこに出てくるか分からないからです。せめて、市町ぐらいならよいのですが、[市町]がないとすると、訳が分からなくなってきます。また、漢数字で、最後だけが、アラビア数字だと、誤動作します。

ユーザー定義関数です。
（標準モジュールに貼り付けます)
'------------------------------------------------------
Function FigPickup(arg As Variant) As Double
'住所の中から、数字のまとまりを二つだす関数
Dim myStr As String
Dim Matches As Object
Dim Match As Object
Dim buf As String
If VarType(arg) <> vbString Then Exit Function
myStr = StrConv(arg, vbNarrow)
With CreateObject("VBScript.RegExp")
　.Global = False
　.Pattern = "[区市町]\D*(\d+-?\d*)"
　Set Matches = .Execute(myStr)
　If Not Matches Is Nothing Then
　　 Set Match = Matches(0)
　　 buf = Replace(Match.SubMatches(0), "-", ".")
　End If
　FigPickup = buf

End With
End Function

'------------------------------------------------------
　 住所　　　　　　　　　　　　　数字　　　　　
東京都東京市大畑８７８－９　→878.9　=FigPickup(A1)
XXX都XXXX区XXXX１－２６－１ →1.26　 =FigPickup(A2)

という数字を出してきます。

この出てきた数字で並べ替えればよいです。ただ、うまくいくのか、疑問が残ります。

お礼

ありがとうございます！！＋

回答No.9

Yosha

No.8です。書き忘れましたので、追加します。

５)まで終了しましたら、(E1:Q1)を選択し、選択範囲の右下の「+」を左クリックしたまま、住所が書き込まれている最後の行まで、ドラッグしてコピーします。
これで、住所が書き込まれている全行のＥ列～Ｑ列に関数が書き込まれました。

このあと、「最後に、・・・」を実行してください。

回答No.7

sakemoni1008

どうしてもであれば
住所1、住所2、住所３．．．として
住所1に東京都～大畑までを入力
住所2に88、住所3に14、住所4に次の番地を数字で入力し
ソートキーを住所1を第一キー、住所2を第二キー、住所3を第三キーとすればソートできます
住所表示は別セルで&でつなげば出来ます
要するに数字セルは数字、文字セルは文字に分ける事が大事です

回答No.6

noname#204879

No.5ですが、その発言は無視してください。私が勘違いしていました。お騒がせしました。

回答No.5

noname#204879

「次のような順番」はどのような規則になっていると考えれば良いのですか？
コンピュータは一定の規則に基づいてしか仕事をしてくれませんから。

回答No.4

noname#22222

東京都東京市大畑088-14
東京都東京市大畑088-15
東京都東京市大畑878-09
東京都東京市大畑882-10

とデータを修正！

回答No.3

makoteru

この参考ＵＲＬも一度ご覧ください。
同じ問い合わせかと・・

参考URL：

http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200502/05020043.txt

回答No.2

dulatour

ソートは、数字の昇降順なので、一般の方法では、多い順か、少ない順にしか並べ替えは出来ないでしょう。自分の並べたいようにインデックスを付けるしか、ないのでは・・・

回答No.1

mii-japan

東京都東京市大畑　８８－１４
東京都東京市大畑　８８－１５
東京都東京市大畑８７８－９
東京都東京市大畑８８２－１０

の様にデータを修正するしか無いのでは
(並べ替えの判定手順から見て）