質問: 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 ```
回答: 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 文字に対応させています。