桁数が混在する並び替えの方法

質問

EXCEL2007です。関数やマクロについてはこんなものがあるんだぁ～程度の知識しかありません。そこで質問です。
以下の数字の並び替えできる方法がわかりません。
単純にEXCELのコマンド操作でできるのでしょうか？
それとも関数やプログラムを必要とするのでしょうか？
もし関数やプログラムが必要であるならば、がんばって勉強してみようと思ってます。（勉強はするつもりでも、なにが必要かもよくわかっていません。）
並び替えしたい数字は以下のような数字が混在します。
桁数が違う
1桁のものや、2桁～6桁のものが混在する
例　1or12or345or645874 など
ハイフンがあるのとないものがある。
例　1-1or1-2or345
順番はまずハイフンの前の番号が若い順に並べたい。
次にハイフンより前の番号が同じものについては、ハイフン後の番号の順番に並べたい。ハイフンが2回重なる場合がある。以下の例を並び替える場合まず一番始まりのハイフン前の若い順に並べるまず4番次に26番次に100番次に226番となり次は1番はじめのハイフンの順番で最後は一番最後のハイフンの順番で以下の例のように並びかえたいです。
1番　4
2番　4-3-5
3番　4-25-2
4番　26-13-6
5番　26-13-21
6番 100
7番　226-8-9
8番　226-15-31
しかしEXCELでは表示形式は文字列にしないと、ハイフンは入力できず、次に並びかえようとすると桁数がバラバラなので
一番初めの数字が桁数より優先されてしまい上記の例ですと本来並びかえたい上の例とは違い。
6番　100
8番　226-15-31
7番　226-8-9
5番 26-13-21
4番 26-13-6
1番 4
3番　4-25-2
2番　4-3-5
と並んでしまいます。理由がわかる方教えていただけませんか？？？
またどのようにすれば解決するのでしょうか？

回答No.6

Wendy02

こんばんは。

マクロでしたら、以下のようなものを考えてみました。
ただし、こちらの思惑とは違う数字の並びですと、うまくいかない可能性があります。
それは、4桁の数字がある場合です。もちろん、以下の正規表現の「パターン」の部分を修正すれば可能になります。

結果は、このようになります。
「Const DIST As Integer = 2 '右にいくつセルを離すか」の
ところを2にしてありますので、A列に数値がある場合は、C列に出力されます。
もちろん、ユーザー定義関数のTriFigs　を単独で使用しても、出力されますが、数式ですから、一旦、値貼り付けをしないと並べ替えは出来ません。

004-000-000
004-003-005
004-025-002
026-013-006
026-013-021
100-000-000
226-008-009
226-015-031

標準モジュールに貼り付けて、SortText を実行してください。

'------------------------------------------
Sub SortText()
Dim c As Variant
Dim i As Long
Const DIST As Integer = 2 '右にいくつセルを離すか
Application.ScreenUpdating = False

'範囲 A1 ～データ範囲まで
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
　If IsNumeric(Replace(c.Value, "-", "")) Then
　 c.Offset(, DIST).Value = TriFigs(c.Value)
　 i = i + 1
　End If
Next c
　Application.ScreenUpdating = True
　MsgBox i & "セル、変換を完成しました。", 64
End Sub
Function TriFigs(ByVal strText As String)
　　Dim Matches As MatchCollection
　　Dim Match As Match
　　Dim i As Integer
　　Dim a(2) As Integer
　　Dim buf As String
　　If strText = "" Then Exit Function
　　With CreateObject("VBscript.RegExp")
　　　　.Global = False
　　　　'パターン
　　　　.Pattern = "(\d{1,3})\-*(\d{1,3})*\-*(\d{1,3})*"
　　　　If .test(strText) Then
　　　　　　Set Matches = .Execute(strText)
　　　　　　Set Match = Matches.Item(0)
　　　　　　For i = 0 To 2
　　　　　　　　a(i) = Match.SubMatches(i)
　　　　　　Next
　　　　　　buf = Format(a(0), "000") & "-" & Format(a(1), "000") & "-" & Format(a(2), "000")
　　　　Else
　　　　　　buf = strText
　　　　End If
　　　　TriFigs = buf
　　End With
End Function

お礼

ご協力いただきありがとうございます。質問してから、雨のせいもありかぜでダウンしてました。お礼が遅れ大変失礼いたしました。マクロは
まったくわかりませんがせっかくお考えいただきました回答につきましては、意味がわかるくらいはがんばってみたいと思います。
今日から勉強させていただきます、どうもありがとうございました。