How to insert numbers or rows for missing sequential numbers in Excel?

Supposing you have a list of sequential numbers in a worksheet, but there are some missing numbers among the sequence, and now you need to insert the missing numbers or blank rows to make sure the sequence be complete (shown as the following screenshots). How could you quickly solve this problem in Excel?

Insert missing numbers for sequence with Sort and Remove Duplicates feature Insert missing numbers or blank rows for sequence with Kutools for Excel Insert missing numbers for sequence with VBA code Insert blank rows for missing sequence with VBA code

Insert missing numbers for sequence with Sort and Remove Duplicates feature

May be you can find the missing numbers one by one, and then insert them, but it is difficult for you to identify the location of the missing ones if there are hundreds of sequential numbers. In Excel, I can use the Sort and Remove Duplicates feature to deal with this task.

1. Following the end of the sequence list, fill in another sequence numbers from 2005023001 to 2005023011. See screenshot:

2. Then select the range of the two sequence numbers and click Data > Sort A to Z, see screenshot:

3. And the selected data has been sorted as following screenshot:

4. Then you need to remove the duplicates by click Data > Remove Duplicates, and in the popped out Remove Duplicates dialog box, check the Column name that you want to remove the duplicates, see screenshots:

5. Then click OK, the duplicates in Column A has been deleted, and the missing numbers in the sequence list have been inserted, see screenshot:

Insert missing numbers or blank rows for sequence with Kutools for Excel

Here, I will introduce an easy and handy tool- Kutools for Excel, with its Find Missing Sequence Number feature, you can quickly insert the missing sequence number or blank rows between the existing data sequence.

If you have installed Kutools for Excel, please do as follows:

1. Select the data sequence that you want to insert the missing numbers.

2. Click Kutools > Insert > Find Missing Sequence Number, see screenshot:

3. In the Find Missing Sequence Number dialog box, check Inserting missing sequence number to insert the missing numbers or Inserting blank rows when encountering missing sequence numbers to insert blank rows as you need. See screenshot:

4. And then click OK button, and the missing sequence numbers or blank rows have been inserted into the data , see screenshots:

Download and free trial Kutools for Excel Now !

Insert missing numbers for sequence with VBA code

If you feel there are so many steps with the above methods, here also have VBA code can help you finish this problem. Please do as follows:

1. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module window.

VBA: insert missing numbers for the sequence

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. Then press F5 key to run this code, and a prompt box will pop out, please select the data range that you want to insert the missing numbers(don’t select the title range), see screenshot:

4. And then click OK, the missing numbers have been inserted to the sequence list. See screenshots:

Insert blank rows for missing sequence with VBA code

Sometimes, you just need to locate the place of the missing numbers and insert blank rows between the data, so that you can enter the information as you need. Of course, the following VBA code also can help you solve this problem.

1. Hold down the ALT + F11 keys, and it opens a Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module window.

VBA: insert blank rows for missing sequence

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. Then press F5 key to run this code, and a prompt box will display, and then select the data range that you want to insert blank rows for the missing sequence(don’t select the title range), see screenshot:

4. And then click OK, the blank rows have been inserted for the missing sequence list. See screenshots:

Related article:

How to identify missing numbers sequence in Excel?