RangeオブジェクトのSortメソッドが期待通りに動作しない

Question

###前提・実現したいこと
とある3桁のコードが複数あるのですが、これらをある順番に並び替えたいです。

コードについて
・使用するのは半角の「A,B,C,1,2,3」の6文字。
・文字の順番はランダム。
・このコード自体は並び替えない

並び替え方法
・英字→数字の昇順（A,B,C,1,2,3）
・1桁目は勿論、2桁目以降も上記のルールを考慮する。

例：BAC、0CC、A33の場合
[01] A33
[02] BAC
[03] 0CC

###発生している問題・エラーメッセージ
まず、独自の並び替えリスト（A,B,C,1,2,3）を作成しました。
次に、すべての桁を考慮して並び替えを行うため、コードを1桁ずつに分解しました。
その後、1桁目を第1キー、2桁目を第2キー、3桁目を第3キーにして、独自の並び替えリストで並び替えを行いました。

しかし、その結果、英字よりも数字が先に並び替えられてしまいます。

数字を文字列として認識するよう書式の変更も行いましたが、効果はありませんでした。
原因等、何か分かりましたらご教示願います。

###該当のソースコード

Option Explicit

Sub SortTest()
    
    '変数定義
    Dim ListNo As Long  'ユーザ設定リストの番号
    Dim i As Long  'ループカウンタ
    
    'ユーザ設定リストを作成
    Application.AddCustomList (Array("A", "B", "C", "0", "1", "2"))
    
    'リストの番号を取得
    ListNo = Application.GetCustomListNum(Array("A", "B", "C", "0", "1", "2"))
    
    With ThisWorkbook.Worksheets(1)
        
        '書式をすべて"文字列"に変更
        .Cells.NumberFormatLocal = "@"
        
        'A列のコードを1桁ずつ分解
        For i = 2 To 4
            .Cells(i, 2).Value = Mid(.Cells(i, 1).Value, 1, 1)
            .Cells(i, 3).Value = Mid(.Cells(i, 1).Value, 2, 1)
            .Cells(i, 4).Value = Mid(.Cells(i, 1).Value, 3, 1)
        Next
        
        '並び替え
        .Range("A1:D4").Sort _
            key1:=.Range("B2"), Order1:=xlAscending, _
            key2:=.Range("C2"), Order2:=xlAscending, _
            key3:=.Range("D2"), Order3:=xlAscending, _
            Header:=xlYes, OrderCustom:=ListNo, Orientation:=xlSortColumns
        
    End With
    
    'ユーザ設定リストを削除
    Application.DeleteCustomList (ListNo)
    
End Sub

Answer 1

E2 に次の数式を書いてください。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, "0", "D"), "1", "E"), "2", "F"), "3", "G")

次にそれを E3, E4 にコピーしてください。
すると E 列には、DCC, AGG, BAC と表示されるはずです。
これをキーに並べ替えてみてください。

なお、A, B, C, 1, 2, 3 の 6 文字という仕様ですが、実際のデータには 0 が含まれていますので、0 を含めた 7 文字に対応させています。

Comments

[N-u-u]

できました！
数字を英字として扱うという発想はありませんでした。ありがとうございました。