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コードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールで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. そして、「OK」をクリックすると、元の範囲内のすべての数字が昇順に並べ替えられます。

注意: 上記のコードでコンマ “,” を他の必要な文字に変更できます。また、このコードはデータを昇順にのみ並べ替え可能です。

関連記事：

Excelでハイフン付きの数字を並べ替えるにはどうすればよいですか？

Excelで最も頻繁に出現する値でデータを並べ替えるにはどうすればよいですか？

Excelでメールアドレスをドメイン別に並べ替えるにはどうすればよいですか？

Excelで空白セルを一番上に配置するために行を並べ替えるにはどうすればよいですか？