如何在 Excel 中將資料以反向順序進行排名？

作者Sun修改日期2025-08-14

在 Excel 中，使用標準的 =RANK（儲存格，範圍）公式會對您的資料進行排名，最大值獲得第 1 名，最小值則被分配最低的排名數字。然而，在某些情況下，您可能需要反轉此邏輯——讓最小值獲得最高排名、最大值獲得最後一名，如下方截圖所示。當您在分析「數值越小代表表現越好」的資料（例如競賽時間、成本或錯誤次數）時，這種方式特別實用！
顯示 Excel 中資料以反向排序的螢幕截圖

以反向順序排名資料｜VBA 程式碼：自動指派反向排名

以反向順序排名資料

若要在 Excel 中執行反向排名，只需對標準的 RANK 公式稍作調整，加入額外參數即可。此方法讓您輕鬆實現由小到大的排名，而非採用預設順序。

選取一個空白儲存格，用來顯示反向排名結果。假設您的資料範圍位於 B2 到 B10 儲存格之間，請在緊鄰資料欄位的第一個儲存格（例如 C2）中輸入下列公式：

=RANK(B2,$B$2:$B$10,1)

輸入公式後，按下 Enter。若要將公式套用至該欄的其他儲存格，請使用填滿控點：將滑鼠游標移至已輸入公式的儲存格（C2）右下角，待游標變為加號後，向下拖曳至相鄰資料範圍的最後一列（本例中為 C10），即可自動填滿剩餘儲存格。
在 Excel 中套用反向排名公式的螢幕截圖

如果您的數據範圍不同，只需調整公式中的儲存格參照，使其對應實際資料即可。請注意，若資料中包含重複值，RANK 函數會為這些相同數值指派相同的排名，並自動跳過後續的排名（例如，若有兩個項目並列第 2 名，則下一個排名將直接為第 4 名）。

當您希望凸顯最低數值或最短時間時，反向排名格外實用，尤其在允許或預期出現相同數值的資料集中表現出色。

VBA 程式碼：自動指派反向排名

針對大型資料集，或資料經常更新且需要更自動化解決方案的情境，您可以運用 VBA 程式碼快速、高效地指派反向排名。此方法特別適合具備基礎程式設計能力，並希望擺脫重複手動操作的使用者。

1. 點選開發人員工具＞Visual Basic，即可開啟 VBA 編輯器。在 Visual Basic for Applications 視窗中，點選插入＞模組，並將下列程式碼貼到模組窗格中：

Sub AssignReverseRank()
    Dim dataRange As Range
    Dim outputRange As Range
    Dim i As Long
    Dim j As Long
    Dim temp As Variant
    Dim arr As Variant
    Dim sortedArr As Variant
    Dim rankArr() As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set dataRange = Application.InputBox("Select the data range to rank (single column):", xTitleId, "", Type:=8)
    If dataRange Is Nothing Then Exit Sub
    
    Set outputRange = Application.InputBox("Select the first cell for output ranks:", xTitleId, "", Type:=8)
    If outputRange Is Nothing Then Exit Sub
    
    arr = dataRange.Value
    ReDim rankArr(1 To UBound(arr, 1), 1 To 1)
    sortedArr = arr
    
    ' Sort the array in ascending order
    For i = 1 To UBound(sortedArr, 1) - 1
        For j = i + 1 To UBound(sortedArr, 1)
            If sortedArr(i, 1) > sortedArr(j, 1) Then
                temp = sortedArr(i, 1)
                sortedArr(i, 1) = sortedArr(j, 1)
                sortedArr(j, 1) = temp
            End If
        Next j
    Next i
    
    ' Assign reverse ranks
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(sortedArr, 1)
            If arr(i, 1) = sortedArr(j, 1) Then
                rankArr(i, 1) = j
                Exit For
            End If
        Next j
    Next i
    
    outputRange.Resize(UBound(rankArr, 1), 1).Value = rankArr
End Sub

2. 若要執行巨集，請點選執行按鈕，或按下 F5. 系統將提示您選取欲進行反向排名的資料區域（請選擇單一欄位），再選取排名結果輸出的第一個儲存格。每次選取後，請按一下「確定」。

此巨集會將您的資料依遞增順序排序，並據此指派反向排名，讓最小值獲得第 1 名。當您在一次處理數千筆資料，或需要自動化定期更新報表排名時，這項功能尤其實用。

使用此巨集時，請確保您的資料連續且僅包含數值。任何非數值或空白儲存格都可能導致錯誤輸出，因此建議事先清理資料。此外，在執行巨集前儲存活頁簿，也是避免意外變更的絕佳預防措施。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多