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

著者Xiaoyang変更日2025-10-27

Excel を使う際、セル範囲や列にわたって数値を並べ替えるのは一般的で簡単な作業です。しかし、インポートされたデータや統合レポート、エクスポートファイルなどでは、複数の数値が区切りなしで1 つのセル内にまとめて格納されていることがあります。そのようなケースでは、セル内の数値を並べ替える必要が生じることも。各セルの数値を手動で並べ替えると、特に大量のデータや多くの桁数を含むセルを扱う際に非効率で、ミスも起こりやすくなります。特定のテクニックを活用すれば、個々のセル内の数値を素早く並べ替え、データ整理や分析の要件をしっかり満たすことができます。

本記事では、Excel でセル内の数値を並べ替えるための実用的な方法をいくつかご紹介します。具体的には、数式ベースの手法、ユーザー定義関数（UDF）、および VBA コードを解説。それぞれのアプローチには独自の強みがあり、さまざまなシナリオに最適な解決策をお選びいただけます。

数式を使ってセル内の数値を並べ替える

ユーザー定義関数を使ってセル内の数値を並べ替える

VBA コードを使ってカンマ区切りのセル内の数値を並べ替える

Excel のフラッシュフィル機能を使ってセル内の数値を並べ替える

数式を使ってセル内の数値を並べ替える

セル内のすべての数値が1 桁で、区切り文字を含まないシンプルなケースでは、配列数式を使ってセル内の数字を自動的に並べ替えることができます。この方法は、コードや ID など、1 つのセルに含まれる1 桁の数字を順序通りに並べ直したいときに最適です。

以下の詳細な手順に従ってください。

1．データの隣に新しい列を挿入します。たとえば、数値がセル A1 にある場合は、セル B1 をクリックし、次の数式を入力してください。

=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を押して確定してください。数式バーに波括弧（{}）が自動で表示され、配列として正しく評価されていることが確認できます。

その後、フィルハンドルを下にドラッグして、並べ替え機能が必要な他のセルにも数式をコピーします。すると、各セルの数値が自動的に昇順に並べ替えられます。下記の例をご参照ください。

より簡単にご利用いただくために、正しいセルを参照していること、および元のデータが数値のみで構成されていることを再度ご確認ください。テキストやその他の文字が混在していると、問題が発生する可能性があります。

注意事項：

- セルに15 桁を超える数値が含まれる場合、Excel の数値精度に関する既定の制限により、この数式が正確に動作しない可能性があります。より長い文字列や複雑な数字の並びに対応するには、VBA ソリューションまたはユーザー定義関数をご検討ください。

- 数値を降順で並べ替えるには、数式中のSMALLをLARGEに置き換えてください。

=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)))

この数式も同様に機能しますが、数字を最大から最小の順に並べ替えます。

- これらの数式では、A1は並べ替えたい数値が入力されているセルを指します。データが別のセルにある場合は、参照を適宜更新してください。

#VALUE! エラーが発生した場合は、セルに1 桁の数字のみが含まれており、スペースやその他の文字が一切含まれていないことをご確認ください。

・この方法を大規模なデータセットに適用する際は、計算オプションが「自動」に設定されていることをご確認ください。これにより、データをコピーまたは変更した際に数式の結果が正確に更新されます。

KUTOOLS AI でExcel の魔法を解き放ちましょう

スマート実行：セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
カスタム数式：ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
VBA コーディング：VBA コードを簡単に記述・実装できます。
数式の解釈：複雑な数式が簡単に理解できます。
テキスト翻訳：スプレッドシート内で言語の壁を乗り越えましょう！

AI 搭載のツールでExcel の機能をさらに強化しましょう。今すぐダウンロードして、これまでにない効率を体験してください！

ユーザー定義関数を使ってセル内の数値を並べ替える

15 桁を超える長い数値を扱う場合や、さらに柔軟性が求められる際には、ユーザー定義関数（UDF）が強力な代替手段となります。標準のExcel 数式では対応できない要件がある場合、UDF はセル内の並べ替えを自動化するソリューションを提供します。

このソリューションは、インポートされたデータ列や1 つのセルに詰め込まれたコードを頻繁に扱うユーザーに最適です。特に、セル内の文字列が長く、繰り返し数値を並べ替える必要があるケースでその真価を発揮します。

実装手順は次のとおりです。

1．ALT + F11を押し続けると、Microsoft Visual Basic for Applications (VBA) ウィンドウが開きます。

2．VBA ウィンドウで、挿入＞モジュールをクリックし、新しく作成されたモジュールウィンドウに以下のコードをコピー＆ペーストしてください。

VBA コード：セル内の数値を並べ替える

Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'UpdatebyExtendoffice
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．コードを貼り付けたら、VBA エディタを保存して閉じ、ワークシートに戻ります。データの隣の空セル（例：B1 や C1 など）に次の式を入力してください。

=sortnumsincell(A1)

4．必要に応じてフィルハンドルをドラッグして、関数を他のセルにも適用しましょう。すると、対象となる各セル内のすべての数値が、以下のように昇順で並べ替えられます。

注意：数値を降順で並べ替えたい場合は、次の数式を代わりに入力してください。

=sortnumsincell(A1,1)

追加の引数（)1）を指定すると、関数は降順で並べ替えを行います。

この UDF ベースのソリューションは、大規模または複雑なデータセットに対して高い柔軟性と精度を実現し、桁数制限に起因する一般的な数式エラーを回避するのに役立ちます。

コンパイルエラーが発生した場合は、モジュールコードが正しく貼り付けられていることと、関数名がワークシートの数式と一致していることを再度ご確認ください。

VBA コードを使ってカンマ区切りのセル内の数値を並べ替える

セル内の数値がカンマ、セミコロン、ピリオドなどの特定の区切り文字で分けられている場合、組み込みの数式ソリューションでは対応できないことがあります。そのようなケースでは、カスタマイズされた VBA コードを活用すれば、処理するセルの数にかかわらず、効率的に数値を並べ替えられます。

該当するシナリオには、データベースからエクスポートされたリストや収集されたアンケート回答のほか、一貫した区切り文字で区切られた数値が単一セルに格納されたデータセットなどが含まれます。

VBA コードで並べ替えを実行する手順は、次のとおりです。

1．ALT + F11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2．挿入>モジュールをクリックして、以下のコードをモジュールウィンドウに貼り付けてください。

VBA コード：カンマ区切りのセル内の数値を並べ替える

Sub SortNumsInRange()
'Update20140717Dim Rng As RangeDim WorkRng As RangeDim Arr As VariantOn Error Resume NextxTitleId = "KutoolsforExcel"
Set WorkRng = Application.SelectionSet 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, ",")
NextEnd Sub

3．コードを実行するには、F5キーを押してください。するとプロンプトが表示され、並べ替えたいセルを含む範囲を選択できるようになります。

4．OKをクリックすると、選択されたすべてのセル内の数値が昇順に並べ替えられ、他のセルの内容に影響を与えることなく、その場で変更が適用されます。

注意：数値がセミコロンやスペースなどの他の文字で区切られている場合は、コード内のSplit(Rng.Value, ",")およびJoin(Arr, ",")に含まれるカンマ「、」を、両方の箇所でご希望の区切り文字に置き換えてください。

このコードは昇順でのみ並べ替えを行います。降順で並べ替えるには、VBA コード内の並べ替えロジックを調整する必要があります。VBA を使用する際は、変更が即座に適用され元に戻せませんので、必ずコード実行前にブックを保存してください。

セルに数値以外の内容が含まれていると、コードが期待通りの結果を出力しない可能性があります。実行前に、データ内に混在したコンテンツがないかご確認ください。

Excel のフラッシュフィル機能を使ってセル内の数値を並べ替える

小規模なデータセットや、セル内の数値が予測可能なパターンに従っている場合には、Excel のフラッシュフィル機能が手軽で素早い解決手段になります。特に、少数のセル内で数値を並べ替える必要があり、かつ構造がシンプルなケースでその効果を発揮します。

セル内の数値を並べ替えるには、フラッシュフィルを次のように使います。

1。データの隣に新しい列を挿入し、最初のセルにある数値を並べ替えて手動で入力します（例：A1 セルに)8371が含まれている場合、B1 セルに1378と入力します）。

2。同じ列の次のセルを選択し、次のエントリの並べ替えバージョンの入力を開始します。いくつかの例を入力した後、Ctrl + E（フラッシュフィルのショートカット）を押してください。Excel がパターンを自動的に認識し、入力した並べ替え例に基づいて残りのセルを自動的に入力します！

この手法は高速ですが、短いリストやデータのパターンが非常に規則的な場合に最適です。Excel が意図した変換を正確に検出できるよう、少なくともいくつかの並べ替え済み結果を手動で入力する必要があります。

フラッシュフィルは、複雑なパターンや特殊文字で区切られた数値を処理する際には信頼性が低くなることがあります。自動生成された結果は、必ず正確性をご確認ください。

注：この方法がすべてのケースで必ず機能するとは限りません。

アプローチを選択する際は、データの構造（単一の数値か区切り文字付きの数値か）、データ文字列の長さ、および処理対象のセル数を考慮してください。数式ベースの方法は、短く区切り文字を含まない文字列に最適です。一方、VBA または UDF ソリューションは、複雑で長いデータ構成に対して、より高い柔軟性と処理能力を発揮します。

どの解決策を適用する前にも、元のデータに隠れたスペースや不要なテキスト、書式設定の問題がないかを必ずご確認ください。数値を並べ替えた後は、元の入力といくつかのサンプルを照合して出力を検証するのがベストプラクティスです。

問題が発生した場合は、お使いのExcel バージョンが配列数式をサポートしていることをご確認ください（Excel 2016 以降では互換性がさらに向上しています）。VBA メソッドをご利用になる際は、マクロが有効になっている必要があります。並べ替えが期待通りに動作しない場合は、数式または VBA コードをセルの構造に合わせて調整してみてください。

関連記事：

Excel でハイフン付きの数値を並べ替えるには？

Excel でデータを最頻値（最も頻度の高い値）で並べ替えるには？

メールアドレスをExcel でドメイン別に並べ替えるには？

Excel で空白セルを上に持ってくるように行を並べ替えるには？

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。