Excel で連番に抜けている番号や行をどのように挿入すればよいですか？

ワークシートに連続した番号のリストがありますが、その中にいくつか欠落した番号があり、今、連番を完全にするために欠落した番号または空白行を挿入する必要があります（以下のスクリーンショット参照）。Excel でこの問題を素早く解決するにはどうすればよいでしょうか？

並べ替えと重複を削除機能で連番の欠落した番号を挿入する 連番の欠落した番号または空白行をKutools for Excel で挿入する VBA コードで連番の欠落した番号を挿入する VBA コードで欠落した連番の場所に空白行を挿入する

並べ替えと重複を削除機能で連番の欠落した番号を挿入する

欠落している番号を1 つずつ見つけて手動で挿入することも可能ですが、連番が数百件にもなると、欠落箇所を特定するのは困難です。Excel では、「並べ替え」と「重複の削除」機能を活用して、この作業を効率的にこなせます。

1。連番リストの末尾に続けて、2005023001 から2005023011 までの別の連続した番号を入力してください。スクリーンショットを参照してください：

2。次に、この2 つの連続した番号の範囲を選択し、データ > 昇順をクリックしてください。スクリーンショットを参照してください：

3。すると、データの選択が以下のスクリーンショットのように並べ替えられます：

4。次に、重複を削除する必要があります。データ>重複を削除をクリックすると、重複を削除ダイアログボックスが表示されるので、重複を削除したい列の名前にチェックを入れてください。スクリーンショットを参照してください：

5。OKをクリックすると、A 列の重複が削除され、連番リストに欠けていた番号が自動的に挿入されます。スクリーンショットをご確認ください：

連番の欠落した番号または空白行をKutools for Excel で挿入する

ここでは、簡単で便利なツールKutools for Excelをご紹介します。欠落しているシーケンスを検索する機能を使えば、既存のデータ連番に含まれる抜けや空白行を瞬時に補完できます。

Kutools for Excel をインストール済みの場合、Kutools for Excel、以下の手順に従ってください：

1。欠番を挿入したい連番データを選択します。

2。次に、Kutools > 挿入 > 欠落しているシーケンスを検索するをクリックします。スクリーンショットを参照してください：

3。表示された欠落しているシーケンスを検索するダイアログボックスで、欠落しているデータを挿入するにチェックを入れて欠落した番号を自動的に補完するか、または欠落した連続した番号に遭遇した際に空白行を挿入するように設定してください。スクリーンショットを参照してください：

4。その後、OKボタンをクリックすると、欠落していた連番や空白行がデータに自動的に挿入されます。スクリーンショットをご参照ください：

今すぐKutools for Excel をダウンロードして、無料トライアルをお試しください！

VBA コードで連番の欠落した番号を挿入する

上記の方法では手順が煩雑に感じられる場合は、以下の VBA コードでこの問題を簡単に解決できます。次の手順に従ってください：

1。ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

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

VBA：連番の欠落した番号を挿入する

Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    outArr(i + 1, 1) = i + num1
    If dic.Exists(i + num1) Then
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3。次に、F5キーを押してこのコードを実行すると、プロンプトボックスが表示されます。欠落した番号を挿入したいデータ範囲を選択してください（タイトルの範囲は選択しないでください）。スクリーンショットを参照してください：

4。その後、OKをクリックすると、欠落していた番号が連番リストに自動的に挿入されます。スクリーンショットをご参照ください：

VBA コードで欠落した連番の場所に空白行を挿入する

場合によっては、欠落した番号の位置を特定し、データ間に空白行を挿入して必要な情報を入力できるようにしたいだけかもしれません。もちろん、以下の VBA コードでもこの問題を解決できます。

1。ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2 次に、挿入>モジュールをクリックし、表示されたモジュールウィンドウに次のコードを貼り付けます。

VBA：欠落した連番の場所に空白行を挿入する

Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    If dic.Exists(i + num1) Then
        outArr(i + 1, 1) = i + num1
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 1) = ""
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3。次に、F5キーを押してこのコードを実行すると、プロンプトボックスが表示されます。欠落した連番の場所に空白行を挿入したいデータ範囲を選択してください（タイトルの範囲は選択しないでください）。スクリーンショットを参照してください：

4。その後、OKをクリックすると、欠落している連番の位置に空白行が自動的に挿入されます。スクリーンショットをご参照ください：

関連記事：

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 の詳細はこちら。。。無料ダウンロード。。。