如何在 Excel 中依奇數或偶數對欄位進行排序？
在 Excel 中，依遞增或遞減順序排序數字是常見任務，但有時您可能希望將資料整理成所有奇數集中在一起、所有偶數集中在一起。例如，當您面對一份大型數字清單時，或許需要分離奇數與偶數值，以便更輕鬆地進行分析或製作報表。雖然 Excel 未內建「依奇偶數排序」功能，但有多種實用方法可達成此目的。以下提供幾種解決方案，無論您偏好使用輔助欄位、公式、VBA 程式碼或進階增益集，都能輕鬆依奇數或偶數對欄位進行排序。
 |  |  |
使用輔助欄位依奇數或偶數排序列
在 Excel 中，依奇數或偶數排序數字最快的方法之一，就是新增一個輔助欄位，讓 Excel 在排序時能輕鬆區分奇數與偶數。此方法簡單直接，適合熟悉公式與排序功能的使用者，且適用於所有 Excel 版本。雖然需要暫時新增一欄，但彈性十足。
1. 在數字清單旁的空白相鄰儲存格中輸入下列公式（例如，若數字從 A2 開始，則在 B2 輸入）：=ISODD(A2)，然後按 Enter。
請參閱截圖：
提示：ISODD 函數可用來判斷數值是否為奇數。若使用欄位標題，請務必確認公式正確參照對應的資料列。
2. 使用填滿控點將公式向下拖曳至整個清單旁，即可為奇數填入 TRUE、偶數填入 FALSE。此視覺區分將作為排序依據。
請參閱截圖：
3. 保持公式儲存格處於選取狀態，然後點選資料 > 排序小到大 或排序大到小。
4. 在排序警告對話方塊中，選取擴充選取範圍，然後按一下「確定」。這可確保所有列正確排序，並維持相關資料的完整性。
請參閱截圖：
5. 按一下排序按鈕。若選擇「由小到大排序」，清單將先顯示偶數、再顯示奇數（因 FALSE 被視為小於 TRUE）。
請參閱截圖：
注意事項：
1. 若要讓奇數排在偶數之前，請於步驟 3 中選取排序大到小。
2. 排序完成後，可刪除輔助欄位以保持工作表整潔。
3. 切勿僅排序輔助欄位，否則將打亂原始資料順序。
實用提示：此方法通用、可離線使用，且無需巨集或增益集。但若您經常需要依奇偶數排序，不妨嘗試其他方法，進一步提升自動化效率！
使用 Kutools for Excel 依奇數或偶數排序列
對於需要管理大型資料集並追求更快、更彈性解決方案的使用者，Kutools for Excel 提供高級排序功能，可直接排序奇偶數——無需建立輔助欄位或撰寫複雜公式！此方法特別適合經常執行此類排序任務，或偏好圖形介面操作的使用者。Kutools 不僅強化排序功能，更能高效支援批次作業，大幅提升工作效率！
安裝 Kutools for Excel 後，請依照下列步驟操作：
1. 選取您要排序的資料範圍。
2. 前往 KUTOOLS PLUS > 排序 > 高級排序。
請參閱截圖：
3. 在高級排序對話方塊中，從欄位下拉式選單選取要排序的欄位；接著在排序依據區段中，選擇奇偶數，並選取所需的排序順序：A 到 Z（先顯示偶數）或 Z 到 A（先顯示奇數）。
請參閱截圖：
4. 點擊確定，您的清單將立即根據設定分組奇偶數！以下是範例結果：
| 原始資料 | 從偶數到奇數排序 | 從奇數到偶數排序 | ||
 | |  | |  |
優點：無需額外公式或欄位，介面簡潔，能快速依奇偶數條件排序，非常適合經常使用的用戶！
注意事項：Kutools 為第三方增益集，需另行安裝，但憑藉其強大的 Excel 增強功能，深受用戶信賴。
示範：使用 Kutools for Excel 依奇數或偶數排序列
使用 VBA 程式碼依奇數或偶數排序列
若您希望自動化依奇數或偶數排序數字的流程，使用 VBA 巨集是一種高效方法。此方法適合具備基本巨集知識的使用者，特別是在需要頻繁重複排序、不想新增輔助欄位，也不願依賴第三方增益集的情況下。VBA 提供一種快速且簡潔的原地排序方式。
1. 按一下開發人員 > Visual Basic，即可開啟 Microsoft Visual Basic for Applications 視窗。若您未看見「開發人員」索引標籤，可透過 Excel 選項啟用。在 VBA 視窗中，按一下插入 > 模組，並將下列程式碼貼上至模組中：
Sub SortByOddEven()
Dim ws As Worksheet
Dim rng As Range, cell As Range
Dim arr As Variant
Dim HelperArr() As Integer
Dim i As Long
On Error Resume Next
Set ws = Application.ActiveSheet
Set rng = Application.InputBox("Select the range to sort (single column):", "KutoolsforExcel", Type:=8)
If rng Is Nothing Then Exit Sub
arr = rng.Value
ReDim HelperArr(1 To UBound(arr, 1))
For i = 1 To UBound(arr, 1)
If IsNumeric(arr(i, 1)) Then
HelperArr(i) = arr(i, 1) Mod 2
Else
HelperArr(i) = 2 ' Non-numeric entries go last
End If
Next i
' Add helper column
rng.Offset(0, 1).Resize(UBound(arr, 1), 1).Value = Application.Transpose(HelperArr)
' Sort by helper column
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=rng.Offset(0, 1), SortOn:=xlSortOnValues, Order:=xlAscending
With ws.Sort
.SetRange rng.Resize(, 2)
.Header = xlNo
.Apply
End With
' Remove helper column
rng.Offset(0, 1).Resize(UBound(arr, 1), 1).Clear
MsgBox "Rows are sorted by odd (1) or even (0) numbers.", vbInformation, "KutoolsforExcel"
End Sub2. 按下 F5 或點擊
按鈕執行巨集。在出現的輸入方塊中選取您的資料欄位，巨集將自動排序資料，讓偶數集中於前、奇數集中於後（或依排序順序反向排列）。
注意事項與疑難排解：
- 若將此巨集套用至多欄範圍，僅會排序所選欄位及其相鄰欄位。為達最佳效果，請僅選取欲排序的欄位；若需進階應用，可調整程式碼以支援多欄排序。
- 執行巨集前務必先儲存工作表，以免意外遺失資料。
- 非數值項目會被排序至底部，以避免錯誤。
優點：完全自動化，不留下任何輔助欄位，完美適用於重複性任務。
限制：需啟用巨集並具備基本 VBA 經驗；處理敏感資料時請務必謹慎使用。
使用 MOD 公式識別奇數或偶數
除了 ISODD 函數外，您也可以使用 MOD 函數來區分奇偶數。此方法適用於熟悉標準數學運算的使用者，或可能使用缺少某些函數或本地化支援的舊版 Excel 的使用者。MOD 方法會提供明確的數值指標——偶數為 0，奇數為 1——讓您能控制排序順序或整合至其他排序工作流程中。
1. 在數字旁側的空白儲存格中（例如 B2），輸入下列公式：
=MOD(A2,2)此公式會將 A2 中的數值除以 2，並傳回餘數：偶數結果為 0，奇數結果為 1.
2. 將此公式向下複製，套用至剩餘的數字清單。
3. 依照此輔助欄位對資料進行排序（資料 > 排序），操作方式與前述輔助欄位方法相同。由小到大排序時，所有偶數（0）將自動排在所有奇數（1）之前。
提示：
- 若您的資料包含非整數值，MOD 函數仍可運作，但僅整數會如預期般顯示 0 或 1.
- 此方法不受語言與地區設定影響，且輸出結果比 TRUE/FALSE 更直觀明確。
- 您可透過切換為遞增或遞減排序來調整順序。
相關文章：
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行 ｜ 產生程式碼｜ 建立自訂公式 ｜ 分析資料並產生圖表｜ 呼叫增強函數…… |
| 熱門功能：尋找、醒目提示或標記重複值 ｜ 刪除空白行 ｜ 合併列或儲存格而不遺失資料 ｜ 不使用公式的四捨五入…… | |
| 高級 LOOKUP：多重條件 VLookup ｜ 多重數值 VLookup ｜ 跨多個工作表 VLookup ｜ 模糊查找…… | |
| 高級下拉列表：快速建立下拉式清單 ｜ 相依式下拉式清單 ｜ 多選下拉式清單…… | |
| 欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位…… | |
| 精選功能：網格聚焦 ｜ 設計視圖 ｜增強編輯欄 ｜ 工作簿與工作表管理員 ｜ 資源庫（自動文字）｜ 日期提取 ｜ 合併工作表 ｜ 加密／解密儲存格 ｜ 依清單傳送電子郵件 ｜ 超級篩選 ｜ 特殊篩選（篩選粗體儲存格／斜體／刪除線……） ...... | |
| 頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表 類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！
所有 Kutools 增益集，一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
- 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊，無需信用卡
- 超值之選— 比單獨購買各增益集更省費用