Excel でフィルターをかけた後に、自動的に番号を振り直す（再番号付けする）方法はありますか？
Excel で大規模なデータセットを扱う際、エントリを整理・追跡するために、一連の番号を行識別子として割り当てることがよくあります。しかし、特定の行だけを表示するようにフィルターを適用した後でも、番号列や行数の表示は元のデータセットに基づいたままとなり、フィルター後の表示順に自動的に更新されることはありません。このため、レポートやプレゼンテーション向けに明確に番号付けされたリストを作成するのが難しく、混乱を招くことがあります。場合によっては、下記のスクリーンショットのように、フィルター後に表示される行に対してのみ連続した番号を動的に振り直したいこともあるでしょう。本記事では、Excel でフィルター後に自動的に番号を振る、または再番号付けする方法をご紹介し、フィルターされたデータビューの明確性と管理性を高めるお手伝いをします。
Excel の数式（SUBTOTAL 関数と ROW 関数）でフィルター後に自動番号付けまたは再番号付け
Kutools for Excel でフィルター後に自動番号付けまたは再番号付け
 |  |  |
VBA コードでフィルター後に自動番号付けまたは再番号付け
Excel では、データがフィルターされた状態でも標準のオートフィルハンドルは表示されている行に応じて連番を入力しません。代わりに非表示の行も含めて連続して番号が振られるため、通常はフィルター後のデータではなく元の行位置に基づいた番号が参照されます。各表示行に手動で番号を入力するのはすぐに面倒になり、大規模なリストでは実用的ではありません。こうした場面では、簡単な VBA コードを使うことで、フィルターされたデータ範囲内の行を効率的に再番号付けでき、手作業による負担を大幅に軽減し、ミスも防げます。
1．ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。これはExcel で VBA コードを記述・実行するためのメインインターフェースです。
2．VBA ウィンドウで、挿入＞モジュールをクリックして新しいモジュールを追加し、以下のマクロをモジュールウィンドウに貼り付けてください。
VBA コード：フィルター後に自動番号付けまたは再番号付け
Sub Renumbering()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
xIndex = 1
For Each Rng In WorkRng
Rng.Value = xIndex
xIndex = xIndex + 1
Next
End Sub
3．コードを貼り付けたら、F5キーを押して実行します。すると、フィルター後の表示行に対して自動番号付けまたは再番号付けするセル範囲を選択するよう促すプロンプトボックスが表示されます。下記のスクリーンショットをご覧ください：
4．対象範囲を選択したら、OKをクリックします。これにより、「範囲を選択してください」内に表示されている（フィルター後の）セルが連続して再番号付けされます（下図参照）：
注意点とヒント：このコードは、選択した範囲内の番号を上書きするため、元の連番が失われます。後でフィルターを解除しても、元の（フィルター前の）順序は復元されず、フィルター後に連続した番号のみが残ります。元のデータを失わないようにするには、このマクロを実行する前にワークシートまたは該当列のバックアップを作成することを強くお勧めします。また、Excel ワークブックでマクロが有効になっていることを事前に確認し、変更を元に戻したい場合は特にご注意ください（マクロによる操作は、必ずしも「Ctrl + Z」で元に戻せるとは限りません）。
Excel の数式（SUBTOTAL 関数と ROW 関数）でフィルター後に自動番号付けまたは再番号付け
多くのユーザーにとって、数式ベースのソリューションが好まれます。なぜなら、フィルターを変更するたびに行数が自動的に更新されるからです。SUBTOTAL 関数とROW 関数を組み合わせることで、表示されている行にのみ連続番号を付与できます。つまり、フィルター後に表示される行だけが連番で番号付けされるのです。この方法は、フィルターを繰り返し適用したり、将来的にデータが変化したりする可能性がある場合に特に便利です。VBA を再実行したり、手動で番号を再入力したりする必要は一切なく、すべてがリアルタイムで自動更新されます。
適用可能なシナリオ：フィルターやフィルター条件を変更するたびに番号が自動的に更新され、手動での再適用や VBA スクリプトが不要な場合に最適です。動的なレポートや共有スプレッドシートの作成にぜひご活用ください。
1．番号列の最初のセル（例：データ範囲が行2 から始まり（ヘッダーは行1）、セル A2 から番号を開始する場合）に、次の数式を入力します：
=SUBTOTAL(3, $B$2:B2)ここで、$B$2:B2は、常にデータが入力されている列（名前や ID 列など）を指します。テーブル内の適切な列を参照するよう、列参照を調整する必要がある場合があります。最初の部分は絶対参照（)$B$2）のままにしておき、2 番目の部分の行番号だけが下方向にコピーするたびに自動的に増加するようにします（例：B2、B3…）。
2．Enter キーを押して確定します。リスト全体に同じ番号を適用するには、番号列のフィルハンドルを下方向にドラッグし、すべての行をカバーしてください。
データをフィルターした後、表示されている行には自動的に昇順の番号（1、2、3…）が付き、非表示の行は除外されます。この方法なら、フィルターを変更するたびに手動で更新する必要がなく、常に表示されている行の数に応じた連番が維持されます。
追加のヒント：数式で参照列を使用する際は、番号を振りたいデータ範囲内に空白セルがないことを必ず確認してください。データが2 行目以外から始まる場合は、絶対参照を適宜調整しましょう（例：列 C を参照列として使用し、データが5 行目から始まる場合 →)$C$5:C5）。番号にギャップが発生する場合は、参照範囲内に非表示の行や空白セルが含まれていないかご確認ください。Excel テーブルをご利用の場合は、構造化参照を使ったよりシンプルな数式（例：=SUBTOTAL(3,OFFSET([@Column],0,0,ROW()-ROW(Table1[#Headers])))）も使えますが、上記の標準的な方法でほとんどのケースに対応できます。
Kutools for Excel でフィルター後に自動番号付けまたは再番号付け
Kutools for Excel をすでにインストール済みなら、Kutools for Excelのシーケンス番号の挿入機能を使えば、フィルター後のデータに簡単に連番を挿入できます。標準のExcel 機能では表示されている行のみを認識して番号を振ることができませんが、Kutools ならフィルター後の選択範囲に自動的に対応し、番号付けを大幅に高速化。手作業を最小限に抑えます。この機能は、複雑なデータセットや、プレフィックス、開始番号、ステップ増分などのカスタマイズが必要な連番付けに特に役立ちます。
Kutools for Excel をインストールした後は、次の実践的な手順に従ってください：Kutools for Excel。
1．フィルター後のデータビューで再番号付けしたいセルを選択します。混乱を避けるには、表示されている行のみを選択するのがベストです。
2．Kutools>挿入>シーケンス番号の挿入をクリックします（下図参照）：
3．シーケンス番号の挿入ダイアログで、新規をクリックして、番号パターンを定義します。
4．左下の設定コントロールでシーケンスリストを作成しましょう。開始番号や増分値、桁数などのオプションを、必要に応じて自由にカスタマイズできます。
5．満足したら、追加をクリックしてシーケンスパターンを保存します。これにより、ダイアログボックス内のシーケンスリストにパターンが表示されます。
6．範囲に挿入をクリックすると、指定した（表示されている）データ範囲に即座にシーケンスが適用されます。フィルター後に表示されている行のみが順番に番号付けされます（下図参照）：
注：Kutools for Excel の「シーケンス番号の挿入」機能を使えば、大規模なデータセットでも保存時間を短縮できるだけでなく、フィルター後の行にのみ番号を適用することでエラーも軽減します。フィルターを頻繁に変更する場合でも、いつでも番号付けを再実行したり更新したりできます。結合セルや不規則な範囲にわたって番号を振る際は、ダイアログ内のプレビューで最終的な表示を必ずご確認ください。
今すぐKutools for Excel をダウンロードして、無料トライアルをお試しください！
デモ：Kutools for Excel でフィルター後に自動番号付けまたは再番号付け
関連記事：
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行 ｜ コード生成｜ カスタム数式作成 ｜ データ分析とチャート生成｜ 拡張機能呼び出し… |
| 人気の機能：検索・ハイライト、または重複をマーキング ｜ 空白行を削除する ｜ データを失うことなく列の結合またはセルを ｜ 数式を使用しない四捨五入... | |
| スーパー LOOKUP：複数条件 VLookup ｜ 複数値 VLookup ｜ 複数シート間 VLookup ｜ ファジーマッチ.... | |
| 高度なドロップダウンリスト：ドロップダウンリストをすばやく作成 ｜ 連動型ドロップダウンリスト ｜ 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較... | |
| 注目の機能：グリッドフォーカス ｜ デザインビュー ｜強化された数式バー ｜ ワークブックとシートマネージャー ｜ リソースライブラリ（オートテキスト）｜ 日付ピッカー ｜ ワークシートの統合 ｜ 暗号化／セルの復号化 ｜ リストからメール送信 ｜ スーパーフィルター ｜ 特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。） 。。。 | |
| トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！
すべての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 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得