隣接セルが空白でない場合にExcelで行を自動的に番号付けするにはどうすればよいですか？

Excelでは、フィルハンドルを使用して手動で数列を作成することは、リストのシリアル番号やインデックスを生成する一般的な方法です。しかし、特定の隣接セルにデータが含まれている場合にのみ行に番号を付けたい状況がよくあります。例えば、リスト内の行番号を自動的に生成したいが、隣接するデータセルが空の場合には番号付けをスキップしたい場合があります。さらに、データの入力や削除に応じてこれらの番号が即座に更新されることを期待するかもしれません。つまり、手動での操作なしで常に最新の順序を維持するということです。

隣接セルが空白でない場合に行を自動的に番号付ける（数式を使用）

隣接セルが空白でない場合に行を自動的に番号付ける（VBAコードを使用）

隣接セルが空白でない場合に行を自動的に番号付ける（数式を使用）

隣接セルの値に基づいて動的な行番号を付ける効率的な方法は、Excelの数式を使用することです。このアプローチでは、隣接セルに値が含まれている場合にのみ行番号が表示されます。これらのセルにデータを追加または削除すると、番号付けは自動的に更新され、内容に一致します。以下は、使用可能な実用的な方法です。

1. 番号付けを開始したいセルを選択します（例えば、データがB2から始まる場合はA2）。次の数式を入力します：

=IF(B2<>"",COUNTA($B$2:B2),"")

2. 次に、データの横にフィルハンドルをドラッグして、この数式を他の行に適用します。番号付けは自動的に調整され、列Bにデータが存在する行にのみ番号が表示されます。

番号が期待通りに更新されない場合は、数式がすべての関連する行にコピーされていること、および範囲を妨害する結合されたセルやデータ検証がないことを確認してください。数式は正確な参照に依存しており、ワークシートの構造変更によって影響を受けることがあります。

隣接セルが空白でない場合に行を自動的に番号付ける（VBAコードを使用）

より高度なユーザーの場合、またはワークシート全体に数式を適用したくない場合、またはデータを貼り付けたり、ブロックを削除したり、頻繁に変更を加える際に番号付けを更新したい場合には、VBAマクロが魅力的な代替手段となります。VBAを使用すると、隣接セルが編集されるたびに一列の行番号を自動的に更新できます。これは、データ入力フォーム、インポートログ、または頻繁なレイアウト変更があるタスクリストに最適です。

1. Alt + F11 を押して Visual Basic for Applications エディターを開きます。プロジェクトエクスプローラーで、対象のワークブックを見つけ、「Microsoft Excel Objects」以下の関連するワークシート（例：「Sheet1」）をダブルクリックします。

2. 表示されるコードウィンドウに次のコードを貼り付けます。この例では、列Bが空白でない場合に列Aに行番号を付けることを想定しています。必要に応じて特定の範囲の参照を調整できます。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim chk As Range
    Set chk = Intersect(Target, Me.Columns("B"))
    If chk Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Call RenumberNonBlank(Me, "B", "A", 2)
    Application.EnableEvents = True
End Sub
Sub RenumberNonBlank(ws As Worksheet, _
                    keyCol As String, _
                    numCol As String, _
                    firstDataRow As Long)
    Dim lastRow As Long
    Dim r As Long
    Dim seq As Long
    lastRow = ws.Cells(ws.Rows.Count, keyCol).End(xlUp).Row
    seq = 1
    For r = firstDataRow To lastRow
        With ws
            If Trim(.Cells(r, keyCol).Value) <> "" Then
                .Cells(r, numCol).Value = seq
                seq = seq + 1
            Else
                .Cells(r, numCol).ClearContents
            End If
        End With
    Next r
End Sub

3. VBAエディタを保存して閉じます。これで、列Bにデータを追加、編集、または消去するたびに、列Aが即座に再番号付けされ、データの有無が反映されます。列Bにエントリを追加または削除すると、シーケンスが上下に移動します。