Excel で別の列のセル値に基づいて列を自動的に番号付けするには、どうすればよいでしょうか？

著者Sun変更日2025-10-10

列Bの値に基づいて列Aを自動採番する目的のExcelデータセットを示すスクリーンショット

日常のExcel 作業では、ある列の自動番号付けを隣接列の値の有無や内容に基づいて生成する必要がよくあります。たとえば、レコードに連番を振ったり、グループ内のエントリーをカウントしたり、特定のマークが付いたアイテムをスキップしたりすることが考えられます。スクリーンショットに示すように、列 B に特定の値が含まれていない、または特定の条件を満たす行に対してのみ列 A を自動番号付けしたいと仮定します。このアプローチは、すべての行を連続的に番号付けすべきでないリストの追跡・レポート・整理に特に役立ちます。
別の列に基づいて列を自動番号付けする基準値に基づく
高度なロジックに基づいて VBA で行を自動番号付けする

別の列に基づいて列を自動番号付けする基準値に基づく

ある列の特定の条件が満たされた場合にのみ（たとえば、その列の値が「Total」でない場合など）、その行を自動的に番号付けしたいなら、数式を使えば簡単に実現できます。この手法は小規模～中規模のデータセットに最適で、小計行や集計行など不要な行への番号付けをスマートにスキップする簡単な方法を提供します。

1。番号列の最初のセル（例：A1）に、手動で1を入力してください。これが番号列の初期値となります。スクリーンショットを参照してください：

自動採番する列の最初のセルに手動で「1」が入力されているスクリーンショット

2。自動番号付けを続けるには、2 番目のセル（例：A2）に次の数式を入力してください：

=IF(B2="Total","",COUNTIF($A$1:A1,">0")+1)

その後、Enter キーを押してください。この数式は、列 B の対応する値が「Total」でない場合にのみ次の番号を挿入し、「Total」が含まれている行は空白（番号なし）のままになります。

パラメーターの説明：

B2: 列 B のこのセルが条件と照合されます。実際のデータ列に合わせて、この参照を自由に調整できます。
「Total」:「Total」を、番号付けから除外したい任意の値に置き換えてください。
$A$1:A1:この範囲は、番号列でそれまでに入力された番号の個数をカウントします。開始セルの参照が、ステップ11 で入力したセルと一致していることを確認してください。

列Bの値に基づいて列Aを自動採番するExcel数式を示すスクリーンショット

ヒント：この方法は連続した範囲に最適で、特定の条件を満たす行の番号をスキップしたい場合に効果的です。データ範囲の最終行を超えて数式をコピーすると、意図しない空白行や書式が混入するおそれがあるため、注意が必要です。動的データやフィルター適用済みのデータセットでは、予期しない番号のギャップが生じた際にロジックを安定させるため、ヘルパー列の使用を検討してください。

3。オートフィルハンドルを下方向にドラッグして、番号を付けたい列の範囲まで数式をコピーしてください。この数式は各行で列 B の対応する値を自動的にチェックし、シーケンス番号を挿入するかスキップするかを判断します。スクリーンショットをご参照ください。

数式を適用後、列Bの値に基づいて列Aが自動採番された状態を示すスクリーンショット

エラーに関する注意点：番号付け後に参照列を並べ替えたりフィルターをかけたりすると、数式と範囲の整合性が崩れるおそれがあります。ずれが生じると、番号が重複したり欠落したりする可能性があるので、必ず確認してください。

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

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

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

高度なロジックに基づいて VBA で行を自動番号付けする

数式による番号付けが十分に柔軟でない場合（たとえば、フィルター適用後に表示される行のみを番号付けしたい、特定のセル値をスキップしたい、または独自のロジックを実装したいときなど）は、VBA による解決策をおすすめします。マクロを使えば、フィルター設定に応じて動的に番号を振り、空白や指定したキーワードを自動的に無視し、データ変更時に即座に更新することも可能です。この方法は、特に大規模なワークブックや構造が頻繁に変わるデータセットにおいて高い効果を発揮します。

メリット：

フィルターで表示されている行のみに番号を付け、非表示の行はスキップします。
空白セルやユーザー定義の値をスキップするなど、高度なスキップロジックをサポートします。
シート間での一時的または繰り返しの番号付けに、柔軟に対応できます。

注意点：マクロを使用するには、ワークブックで VBA を有効にする必要があります。また、コードを実行する前にファイルを保存することを強くおすすめします。予期しない中断や範囲選択ミスにより、番号付けが不完全になるおそれがあるため、実行後は必ず結果をご確認ください。

高度な自動番号付けのためのマクロを作成するには、以下の手順に従ってください：

1。開発＞Visual BasicをクリックしてMicrosoft Visual Basic for Applicationsウィンドウを開き、次に挿入＞標準モジュールをクリックしてください。以下のコードをモジュールにコピー＆ペーストしましょう：

Sub AdvancedAutoNumbering()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim numCol As String
    Dim critCol As String
    Dim skipValue As String
    Dim currentNum As Long
    Dim i As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    ' Set your sheet and columns here
    Set ws = ActiveSheet
    numCol = "A"    ' Column to contain numbering
    critCol = "B"   ' Column with criteria values
    skipValue = "Total"  ' Value to skip, can adjust as needed
    
    ' Get the last used row in the sheet
    lastRow = ws.Cells(ws.Rows.Count, critCol).End(xlUp).Row
    currentNum = 1
    
    For i = 1 To lastRow
        If ws.Rows(i).Hidden = False Then  ' Only number visible rows
            If ws.Cells(i, critCol).Value <> skipValue And ws.Cells(i, critCol).Value <> "" Then
                ws.Cells(i, numCol).Value = currentNum
                currentNum = currentNum + 1
            Else
                ws.Cells(i, numCol).Value = ""
            End If
        End If
    Next i
End Sub

2。コードを入力したら、VBA エディターを閉じてExcel に戻り、F5 キーを押すか、実行ボタンをクリックしてください。このマクロは、表示されている行のみを対象に、指定した列をロジックに基づいて番号付けします。「Total」が含まれる行や空白行はスキップされます。

マクロ上部のnumCol、critCol、およびskipValue 変数をカスタマイズすれば、データのレイアウトにぴったり合わせられます。このマクロは拡張も簡単！たとえば、複数のスキップ値に対応したり、InputBox プロンプトを使って列を動的に選択したりといった機能を追加できます。

トラブルシューティングのヒント：

「Subscript out of range（添字が範囲外です）」というエラーが発生する場合は、列参照を確認してください（たとえば、列「B」がシート内に存在し、かつ行数の設定がデータと一致している必要があります）。
番号がまったく表示されない場合は、ワークシートがアクティブになっていることと、フィルターによってすべての行が非表示になっていないことをご確認ください。
最良の結果を得るには、データにマクロの実行を妨げる可能性のある結合セルや標準フォーマット以外の要素が含まれていないかご確認ください。

まとめと提案：数式ベースの解決策は、シンプルで静的な番号付け要件には最適ですが、フィルターを尊重したり特定の値を無視したりする必要がある大規模または動的なデータセットには、VBA マクロの方がより高い柔軟性を発揮します。VBA ソリューションを実行する前に、必ず作業内容を保存し、可能であればコピーでテストを行ってください。

Excel で列を自動番号付けする
高度なロジックに基づいて VBA で行を自動番号付けする

最高の 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％も向上させ、毎日数百回ものマウスクリックを削減します！