如何在Excel中為缺少的序號插入數字或行？

如何在Excel中為缺少的序號插入數字或行？

假設您在工作表中有一個序列號列表，但是序列中有一些缺失的數字，現在您需要插入缺失的數字或空白行以確保序列完整（如以下屏幕截圖所示）。 您如何在Excel中快速解決此問題？

使用“排序和刪除重復項”功能為序列插入丟失的數字

使用VBA代碼插入缺少的序列號

使用VBA代碼為缺少的序列插入空白行

為序列插入缺失的數字或空白行 Kutools for Excel

使用“排序和刪除重復項”功能為序列插入丟失的數字

可能是您可以找到丟失的數字一個接一個，然后將其插入，但是如果有數百個連續數字，則很難確定丟失的數字的位置。 在Excel中，我可以使用“排序和刪除重復項”功能來處理此任務。

1。 在序列列表的末尾，填寫從2005023001到2005023011的另一個序列號。請參見屏幕截圖：

2。 然后選擇兩個序列號的范圍，然后單擊 Data > 將A到Z排序，請參見屏幕截圖：

3。 所選數據已按照以下屏幕截圖進行了排序：

4。 然后，您需要通過單擊刪除重復項 Data > 刪除重復，然后彈出 刪除重復 對話框，檢查 柱 您要刪除重復項的名稱，請參見屏幕截圖：

5。 然后點擊 OK，其中的重復項 A欄 已被刪除，并且序列表中缺少的數字已插入，請參見屏幕截圖：

使用VBA代碼插入缺少的序列號

如果您覺得上述方法有太多步驟，這里也有VBA代碼可以幫助您解決此問題。 請執行以下操作：

1。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

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應用程序 窗口。

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，已為缺少的序列列表插入空白行。 查看屏幕截圖：

為序列插入缺失的數字或空白行 Kutools for Excel

在這里，我將介紹一個簡單易用的工具- Kutools for Excel，其 查找丟失的序列號 功能，您可以在現有數據序列之間快速插入缺少的序列號或空白行。

Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在30天內免費試用. 

如果你已經安裝 Kutools for Excel，請執行以下操作：

1。 選擇要插入缺少的數字的數據序列。

2。 點擊 Kutools > 插頁 > 查找丟失的序列號，請參見屏幕截圖：

3。 在 查找丟失的序列號 對話框，檢查 插入缺失的序列號 插入丟失的數字或我遇到缺失的序列號時插入空白行 根據需要插入空白行。 看截圖：

4。 然后點擊 OK 按鈕，并且缺失的序列號或空白行已插入到數據中，請參見屏幕截圖：

下載并免費試用 Kutools for Excel 現在 ！

  演示：為序列插入缺失的數字或空白行 Kutools for Excel

相關文章：

如何在Excel中識別缺失的數字序列？