エクセルの並び替えについてお願いします

住所の番地を昇順に並び替えたいのですが、エクセルの並び替えでは数字と数字の間のハイフォンは無視されてしまうので、例えば１－２－３と１－１２－３で並び替えると後者の方が先頭になってしまい正しい順序で並び替えることが出来ません。

これを正しく並び替えできる方法がありましたら教えて下さい。　　宜しくお願いします。

No.4 ベストアンサー 回答者： imogasi 回答日時： 2003/12/26 23:05

＞正確に並び変えるには　丁目、番、号をそれぞれ別のセルに 分解して数字で入力しないと駄目です。

＃３のご回答。
これに対し、ＶＢＡですが、考えて見ました。
Ａ列に住所があるとして、Ａ、Ｂ列の間に４列列挿入してください。そして下記を実行してください。
ツール－マクロ－ＶＢＥ
挿入－標準モジュールで出てくる画面にコピーペースト。
カーソルを途中行において、Ｆ５キーを押すと実行します。
Sub test01()
n = "０１２３４５６７８９"
d = Range("A1").CurrentRegion.Rows.Count
For r = 1 To d
s = Cells(r, 1)
m = ""
found = "n"
k = 2
hiphn = 0
moji = 0
For i = 1 To Len(s)
For j = 1 To 10
If Mid(s, i, 1) = Mid(n, j, 1) Then
m = m & Mid(n, j, 1)
found = "y"
GoTo p01
Else
End If
Next j
If Mid(s, i, 1) = "－" Then
hiphn = hiphn + 1
' MsgBox hiphn
Else
If found = "y" Then Exit For
End If
If found = "y" Then
If k <= hiphn + 2 Then
Cells(r, k) = m
k = k + 1
found = "n"
m = ""
Else
End If
Else
End If
p01:
Next i
If found = "y" Then
If k <= hiphn + 2 Then
Cells(r, k) = m
Else
End If
End If
Next r
End Sub
（テスト例）
新町２－２３－４AIマンション３０５
新町２－２３－５
新町２マンション１－２
新町２－３
新町２－３マンション１－４
新町２
新町３マンション３－３４
に対し
Ｂ、Ｃ、Ｄ、Ｅ列は
新町2234
新町2235
新町2
新町23
新町23
新町2
新町3
になりました。
Ｅ列でソート。
ＢＣＤ列でソートでどうでしょうか。

この回答への補足

ご回答大変ありがたく思います。

とても役に立つと思いましたのでやってみましたが、どういう訳か判らないのですが、実行されませんでした。

補足日時：2003/12/27 00:44

No.5 回答者： imogasi 回答日時： 2003/12/27 07:13

#4の補足について

動かない理由についての推測
（１）プログラムロジックが不適切。
（１）’プログラムが入力済の住所に対して不適切。
（２）ＶＢＥの利用の不慣れ
が考えられます。
（２）について
（Ａ）ＶＢＥの標準モジュールにプログラムコード（＃４のＳＵＢからＥｎｄ　ＳＵＢまで）をコピー・貼りつけ出来ましたか。
（Ｂ）カーソルを、ＳＵＢからＥｎｄ　ＳＵＢまでの、どこかの行に置いてクリックし、実行－Ｓｕｂユーザーフォームの実行をクリック（Ｆ５キーを押しても良い）をしましたか。
（１）（１）’ですが
この種の問題は、住所データの表現（入力済み）内容と密接にかかわってくるので（住所文字列の表現状態の「規則性を頼りに」プログラムを組んでいるので）、住所データが目の前にない、小生にとっては、完全を期すのが難しいタイプの問題です。
貴殿の既に入力済の住所の表記状態について、私のプログラムで都合が悪くなりそうなケース＝困るケースを述べますので、該当・非該当をチェックして見てください。
（Ａ）住所はＡ列にあること。県市からマンション名まで
１セルに入っていること。
またＡ１セルから、第１人目が始まっていること。ＢＣＤＥ列を列挿入で空白列を増やすこと。
（Ｂ）「全体が空白セル（行）」（なにも住所入力のない行）が混じってないこと。
（Ｃ）住所の文字列は「全角」文字ばかりであること。文字列途中に「空白（半角や全角）」が混じってないこと。
（Ｄ）町字までの部分に「数字がない」こと。例、１本松町、４日市などは困る。町字のあとに空白がないこと。
（Ｅ）全角ハイフンで町・番・号の間は区切りがあり、半角のハイフンでないこと。
（Ｆ）住所録のあるワークシートがアクチブになっていますか。別のシートがアクチブになっていませんか。
新しいブックのシートに住所をコピーしてやって見てください。
○「実行されません」とはどういう状態でしょうか。

この回答への補足

元のデータは地名が書かれた後のセルに(１－２－３－１１０１セントラルビル)というかたちで書かれていますが、漢字以外は全て半角です（カッコ、数字、ハイフォン、カタカナ）。

データが全部で約１０００件分ありますので何件かをピックアップして全角に書き換えることで実行する事ができ、並べ替が確認出来ました。

補足日時：2003/12/27 23:01

この回答へのお礼

感謝いたします。

＃４で回答して頂いたデータの一部分（数字とハイフォン）を半角に修正する事によって、問題なく対応し解決することが出来ました。
本当にありがとうございました。

お礼日時：2003/12/28 11:12

No.3 回答者： HAL007 回答日時： 2003/12/26 00:30

問題は表示桁数があっていないからです。

正確に並び返るには　丁目、番、号をそれぞれ別のセルに
分解して数字で入力しないと駄目です。

現状のままでするなら、０を加えて桁数を同じにします。
「１－０２－０３」という具合です。
これだと住所印刷には使えませから隣の使わない列、
３列に入れる方法が一番です。

この回答へのお礼

大変参考になりました。　ありがとうございました。

お礼日時：2003/12/28 11:16

No.2 回答者： YJK 回答日時： 2003/12/26 00:27

そうですね、いわゆる「丁目」「番地」「号」それぞれを別のセルに入力してやるしかないでしょうか。

この回答へのお礼

大変参考になりました。　ありがとうございました。

お礼日時：2003/12/28 11:17

No.1 回答者： bakatono 回答日時： 2003/12/26 00:12

そのセルは文字列でしょうか？

文字列であればそれが正しい並び順です．文字列の先頭から文字コードとして評価されるため，１２よりも２のほうが大きくなります．

数値として正しい並び順を希望するなら，数字部分だけ別セルに抜き出して数値として評価するしかないと思いますよ．

この回答へのお礼

どうもありがとうございました。

お礼日時：2003/12/28 11:18