如何在 Excel 中對單個儲存格內的數字進行排序？

Author Xiaoyang Last modified 2025-08-23

在我們日常操作中，對一列數字進行排序非常容易且常見，但您是否嘗試過對單個儲存格內的數字進行排序呢？可能除了逐一手動排列外，沒有更好的方法。接下來，我將介紹如何在 Excel 中對儲存格內的數字進行排序。

使用公式對儲存格內的數字進行排序

要在工作表中的儲存格內對數字進行排序，您可以應用以下長公式，請按照以下步驟操作：

1. 在您的數據旁邊，請輸入以下公式，在此示例中，我將其輸入到 C1 儲存格中，請參閱截圖：

=TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1)))

2. 然後同時按下 Ctrl + Shift + Enter 鍵，然後將填充手柄拖動到您要應用該公式的範圍，您將獲得從小到大排序的數字。請參閱截圖：

注意：

1. 如果儲存格內數字的位數超過 15 位，則此公式無法得到正確結果。

2. 如果您想按降序對數字進行排序，可以使用此公式： =TEXT(SUM(LARGE(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1))).

3. 在上述公式中，A1 表示包含要排序數字的儲存格，您可以根據需要更改它。

使用 Kutools AI 解鎖 Excel 的魔法

智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
自訂公式：生成量身定制的公式，簡化您的工作流程。
VBA 編碼：輕鬆編寫和實現 VBA 代碼。
公式解釋：輕鬆理解複雜的公式。
文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用用戶定義函數對儲存格內的數字進行排序

由於公式有一些限制，您可以使用以下用戶定義函數來對超過 15 位數字的儲存格進行排序。

1. 按住 ALT + F11 鍵，打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊插入 > 模組，並將以下代碼粘貼到模組窗口中。

VBA 代碼：對儲存格內的數字進行排序

Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'Update 20140717
Dim xOutput As String
For i = 0 To 9
  For j = 1 To UBound(VBA.Split(pNum, i))
    xOutput = IIf(pOrder, i & xOutput, xOutput & i)
  Next
Next
SortNumsInCell = xOutput
End Function

3. 然後保存並關閉此代碼，返回到您的工作表，並在數據旁邊的空白儲存格中輸入此公式 =sortnumsincell(A1)，請參閱截圖：

4. 然後將填充手柄拖動到您希望包含此公式的儲存格，所有儲存格中的數字都已按升序排序，如下方截圖所示：

注意：如果您想按降序對數字進行排序，請輸入此公式 =sortnumsincell(A1,1)。

使用 VBA 代碼對以逗號分隔的儲存格內數字進行排序

如果您的數字由某些字符（如逗號、分號、句號等）分隔，如下方截圖所示，您如何在儲存格內對它們進行排序？現在，我將介紹一個 VBA 代碼來幫助您對它們進行排序。

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊插入 > 模組，並將以下代碼粘貼到模組窗口中。

VBA 代碼：對以逗號分隔的儲存格內數字進行排序

Sub SortNumsInRange()
'Update 20140717
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set objArrayList = CreateObject("System.Collections.ArrayList")
For Each Rng In WorkRng
    Arr = VBA.Split(Rng.Value, ",")
    For i = 0 To UBound(Arr)
        xMin = i
        For j = i + 1 To UBound(Arr)
            If Arr(xMin) > Arr(j) Then
                xMin = j
            End If
        Next j
        If xMin <> i Then
            temp = Arr(i)
            Arr(i) = Arr(xMin)
            Arr(xMin) = temp
        End If
    Next i
    Rng.Value = VBA.Join(Arr, ",")
Next
End Sub

3. 然後按下 F5 鍵運行此代碼，然後在彈出的提示框中選擇包含數字的儲存格，請參閱截圖：

4. 然後點擊確定，所有儲存格中的數字都已在原始範圍內按升序排序。

注意：您可以根據需要在上述代碼中將逗號 “,” 更改為其他任何字符。並且此代碼只能按升序對數據進行排序。

相關文章：

如何在 Excel 中對帶有連字符的數字進行排序？

如何在 Excel 中按最頻繁值對數據進行排序？

如何在 Excel 中按域名對電子郵件地址進行排序？

如何在 Excel 中對行進行排序以將空白儲存格置於頂部？

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多