公式方法：此方法對於以後有資料新增變動等情況也能自動適應。排名方式一與2主要的區域在於，假設有三個數字從大到小排序，100、100、99，排名方式一是：1、1、2，而排名方式2是：1、1、3，方式2是缺少第2名的。排名一公式：(陣列公式，輸入完成後不要直接回車，要按三鍵 CTRL+SHIFT+回車 結束。)=IF(A2="","",SUM(IF((A$2:A$999>=A2)*(A$2:A$999""),1/COUNTIF(A$2:A$999,A$2:A$999))))排名2公式：=IF(A2="","",RANK(A2,A$2:A$999))如果對於數值排序完成後，以後都不會改變的，則簡單得多，在B2輸入數字1，然後滑鼠移動到B2右下角，按住CTRL鍵，再按住左鍵不放下拉就行了。

截圖示例的資料規律性排列，可在H2單元格輸入以下公式，然後向右向下填充公式

=OFFSET($C$2,(ROW(A1)-1)*4+COLUMN(A1)-1,)

或設定H:K列單元格格式為“時間”格式，然後在H2單元格輸入以下陣列公式，按Ctrl+Shift+Enter組合鍵結束，然後向右向下填充公式

=INDEX($C:$C,SMALL(IF($B$2:$B$50=$G2,ROW($2:$50),4^8),COLUMN(A1)))

不會太高深的，一行一行的來

1.先複製第一行，然後貼上時選擇轉置貼上，這樣橫的就變成豎的了，可以排序了。然後排序好的你就複製到新的表格裡面，貼上再選轉置。

2.其他的巧法我想好了再回復你，親

我用VBA將結果做出來給你，見附件。

Sub Macro1()
x = 1
For i = 0 To 9
If i <> 4 And i <> 7 Then
For j = 0 To 9
If j <> 4 And j <> 7 Then
For k = 0 To 9
If k <> 4 And k <> 7 Then
For l = 2 To 8 Step 2
If l <> 4 Then
Cells(x, 1) = "'" & i & j & k & l
x = x + 1
End If
Next
End If
Next
End If
Next
End If
Next
End Sub