EXCEL 「並び替え」の誤動作について

質問

WinXP/Excel2003 です。

大変お世話になります。
いまは定年退職し依頼されたExcelのアプリケーションなど
趣味で作っています。
今回、思わず躓いたのが「並び替え」です。

次のデータを昇順ソートすると

　　あいざわ　まさき
　　おかだ　りょうた
　　おがた　けいすけ

結果

　　あいざわ　まさき
　　おがた　けいすけ
　　おかだ　りょうた

となってしまいます。
五十音順では明らかに間違っています。
インターネットでいろいろ調べたんですが、
公式文書として以下がありました。

http://office.microsoft.com/ja-jp/word/HA102031991041.aspx

だとしたら、みなさんどうやって回避してるのでしょう？
これだと、全く使えないので、
なにか回避策、あるいは正しい設定方法があるのではないかと
想像してますが、ご存知の方、ご指導願えれば幸いです。

回答No.4

fumufumu_2006

ANo.3さんのにダブりますが、漢字コード順がいいなら一時的に作業行に文字列の漢字コード(16進）を作っては？
B列を作業列にして、A列を並び替えます。

Function sjis(k As String) As String
Dim res As String
Dim i As Integer
For i = 1 To Len(k)
res = res & Hex(Asc(Mid(k, i, 1)))
Next
sjis = res
End Function

Sub test1()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = ActiveSheet
Set ws = Sheet1
ws.Range("B1").Formula = "=sjis(A1)"
ws.Range("B1").Copy Destination:=ws.Range("B1:B" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)
ws.Cells.Sort Key1:=ws.Range("B1"), Order1:=xlAscending, Header:=xlNo
ws.Columns("B").ClearContents
Application.ScreenUpdating = True
End Sub

ただ、これだと小文字の「っ」とかはどうするのかと言うのがあるので、順番テーブルを用意する方法はどうでしょうか？
「ヴ」とかも処理できるように全角カタカナに変換しました。
テーブルに文字がないと文字が無かったと判断します。
256個以上は無いとして、2文字hexにしました。
個人的にはrange("?")よりcells(?,?)の方が好きなので・・・

Const kana = "　１２３４５６７８９" & _
"ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ" & _
"アァイィウヴゥエェオォ" & _
"カガキギクグケゲコゴ" & _
"サザシジスズセゼソゾ" & _
"タダチヂツヅッテデトド" & _
"ナニヌネノ" & _
"ハバパヒビピフブプヘベペホボポ" & _
"マミムメモ" & _
"ヤャユュヨョ" & _
"ラリルレロ" & _
"ワヲン" & _
"ー（）．・"

Function kanaOrder(ByVal k As String) As String
Dim res As String
Dim i As Integer
Dim p As Integer
k = UCase(StrConv(k, vbKatakana))
For i = 1 To Len(k)
p = InStr(kana, Mid(k, i, 1))
If p > 0 Then
res = res & Right("0" & Hex(p), 2)
End If
Next
kanaOrder = res
End Function

Sub test2()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Cells(1, 2).Formula = "=kanaOrder(A1)"
ws.Cells(1, 2).Copy Destination:=ws.Range(ws.Cells(1, 2), ws.Cells(ws.Cells(ws.Rows.Count, 1).End(xlUp).Row, 2))
ws.Cells.Sort Key1:=ws.Cells(1, 2), Order1:=xlAscending, Header:=xlNo
ws.Columns(2).ClearContents
Application.ScreenUpdating = True
End Sub

p.s.
activesheetを並べ替えてますが、Set ws = sheets("??")とすれば、表示していないシートも並べ替えられます。

お礼

真っ向からのアルゴリズムですね。
（案１）
HEX変換した文字列をSORTする
（案２）
コレートシーケンスを自作して、
その位置データに変換しsortする

いずれも鮮やかですね。
ちなみにExcelのコレートシーケンスは
「ァアィイゥウヴェエォオ・・・」
のようですので、それはそれで、
案１で充分かと思いました。

大変勉強になりました。
貴重な時間をいただきありがとうございました。
今後ともよろしくお願いします。

さてさて、では実際にどんなアルゴリズムにしようか、
ちょっと悩みますね。

でも、最初に戻りますが、
清音=濁音=半濁音
とする、基本思想はなぜ必要になったのでしょうね？

しかも、その結果「等価」の場合は、
吃音＜清音＜濁音＜半濁音　とする
こんなに複雑なコレートシーケンスはなぜ必要だったのか。
なにか深いわけがありそうですね。
（つぶやきです^^;）

いずれにしても皆さんありがとうございました。