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

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

使用“排序和刪除重複項”功能為序列插入丟失的數字 使用VBA代碼插入缺少的序列號 使用VBA代碼為缺少的序列插入空白行 插入丟失的數字或空白行以使用Kutools for Excel進行排序

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

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

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

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

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

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

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

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

插入丟失的數字或空白行以使用Kutools for Excel進行排序

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

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

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

2。 點擊 庫工具 > 插入 > 查找丟失的序列號，請參見屏幕截圖：

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

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

立即下載和免費試用Excel的Kutools！

  演示：使用Kutools for Excel插入缺失的數字或空白行以進行排序

相關文章：

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