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

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

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

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

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

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

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

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 中對行進行排序以將空白儲存格置於頂部？