[求助]实现自定义排序问题？(已解决)

A列中有一组数据，10T、Y、13T、5R、12T、5R、7R、Y、13T、6R、R……

A：E为整个数据区域，最好也参与排序。

 以自定义顺序排例出来，以Y、13T、12T、10T、T、7R、6R、5R、R的固定顺序排例。在固定顺序中排在第一位是Y，要考虑到固定顺序中第一位的Y在A列中没有，那么固定顺序中以13T，排在第一位。后面以此类推……不知VBA `代码如何实现？

谢谢狼版主、"呵"………… 以达到上面要求了.测试通过了

不知可否再达到一个要求咯 ?!比如：排序好后，有A1＝Y，A2=Y,A3=Y，A4……我只想显示最前面的一个Y，这里为A1单元格.后面的单元格不显示Y。

    A   B  C  ……

A1  Y  25  69 ……

       69  35……

       98  58……

 能否实现？！

 有了、前面的Y 后面不显示 的就知道是属于Y的

13T、12T、T、7R、6R、5R、R 以此类推^-^

请问下，northwolves版主，伱二楼的代码，是实现A1：E数据区域的。

那我要C12：H为排序的数据区域，不知代码该怎么改呢？C12：C为固定排序顺序的，Y、13T、12T……R 为排序条件。。

Sub Macro1()
Dim N As Long, I As Long
N = [A65536].End(xlUp).Row
[F1].Resize(N, 1) = "=RIGHT(RC[-5],1)"
[G1].Resize(N, 1) = "=IF(LEN(RC[-6])=1,1,LEFT(RC[-6],LEN(RC[-6])-1))"
[A1].Resize(N, 7).Sort Key1:=Range("F1"), Order1:=xlDescending, Key2:=Range("G1") _
        , Order2:=xlDescending, Header:=xlNo, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortTextAsNumbers
[F:G] = ""
For I = N To 2 Step -1
If Cells(I, 1) = Cells(I - 1, 1) Then Cells(I, 1) = ""
Next
End Sub

稍加修改即可：

Sub Macro1()
Dim N As Long, I As Long
N = [C65536].End(xlUp).Row - 11
[I12].Resize(N, 1) = "=RIGHT(RC3,1)"
[J12].Resize(N, 1) = "=IF(LEN(RC3)=1,1,LEFT(RC3,LEN(RC3)-1))"
[C12].Resize(N, 8).Sort Key1:=Range("I12"), Order1:=xlDescending, Key2:=Range("J12") _
        , Order2:=xlDescending, Header:=xlNo, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortTextAsNumbers
For I = N + 11 To 13 Step -1
If Cells(I, 3) = Cells(I - 1, 3) Then Cells(I, 3) = ""
Next
[I:J] = ""
End Sub

再次谢谢，

版主[em31] 已测试，可行。

　刚接触VBA，还有点不太懂，又学到一点，也积累了一小点，呵！