Excelでセル内の数字を並べ替えるにはどうすればよいですか？

Author Xiaoyang Last modified 2025-08-26

リスト内の列の数字を並べ替えるのは簡単で一般的ですが、単一のセル内の数字を並べ替えたことはありますか？おそらく、一つずつ手動で配置する以外に良い方法がないかもしれません。ここでは、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で空白セルを一番上に配置するために行を並べ替えるにはどうすればよいですか？

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数