Excelで行を挿入または削除した後、自動的に行に番号を付けるにはどうすればよいですか？

例えば、列に1から20までの行に番号を振ったとします。ここで、データ範囲から行を挿入または削除すると、番号リストが自動的に再番号付けされるようにしたいのです。このタスクはExcelで実行できますか？

数式を使用して、行の挿入または削除後に自動的に行に番号を付ける

VBAコードを使用して、行の挿入または削除後に自動的に行に番号を付ける

数式を使用して、行の挿入または削除後に自動的に行に番号を付ける

実際、ExcelのRow関数は、行の挿入または削除後に自動的に行を再番号付けするのに役立ちます。以下の手順を行ってください：

1. セルA2にこの数式「=ROW()-1」を入力し、次にフィルハンドルをドラッグして、行に番号を付けたいセルまで移動します。スクリーンショットをご覧ください：

注：もし番号リストが最初のセルから始まる場合、数式を 「=ROW()」に変更できます。番号が実際の行と一致しない場合は、数式に加算や減算を行うことができます。例えば、「=ROW()-3」、「=ROW()+10」などです。

2. 次に、このデータ範囲用のテーブルを作成します。データ範囲を選択し、 挿入 > テーブルをクリックします。そして、「テーブルの作成」ダイアログボックスで、範囲にヘッダーがある場合は「私のテーブルにはヘッダーがあります」をチェックしてください。スクリーンショットをご覧ください：

3. そして「OK」をクリックすると、テーブルがすぐに作成され、今後テーブル範囲に行を挿入または削除すると、行番号は常に自動的に更新されます。スクリーンショットをご覧ください：

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

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

VBAコードを使用して、行の挿入または削除後に自動的に行に番号を付ける

上記の数式方法以外にも、VBAコードを使用してこれを完了することもできます。

1. 自動的に連続番号を挿入したいワークシートに移動します。

2. シートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開いた「Microsoft Visual Basic for Applications」ウィンドウで、次のコードを空白のモジュールウィンドウにコピーして貼り付けてください。

VBAコード：行の挿入または削除後に自動的に行番号を付ける：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
    Dim I As Integer
    I = 1
    Application.EnableEvents = False
    For I = 1 To 20
        Range("A" & I).Value = I
    Next
    Range("A21").Value = ""
    Application.EnableEvents = True
End Sub

3. その後、このコードを保存して閉じます。セルA1に最初の数字「1」を入力すると、1から20までの連続番号が自動的に入力されます。範囲から行を挿入または削除すると、連番が即座に自動的に再番号付けされます。

注：上記のコードでは、文字「A」は連続番号を入力したい列の文字を示しており、「1 To 20」は番号を付けたい行を示しています。「A21」は最後に番号を付けたセルの次のセル参照です。必要に応じてこれらを変更できます。

デモ：Excelワークシートで行を挿入または削除した後、自動的に行に番号を付ける