如何在 Excel 中插入缺失的連續數字或行？

在 Excel 中插入缺失的連續數字意味著使用者希望利用 Excel 的現有功能來補全 Excel 中的缺失數字。本文將瞭解執行此任務的兩種基本方法。第一個示例將指導正確使用 VBA 程式碼來補全 Excel 中缺失的連續數字序列。此示例可能有點繁瑣，因為使用者需要學習編碼方法並使用正確的程式碼縮排才能解決任務。工作表中提供的另一個示例描述了使用 kutools 的方法，透過使用適當的可用選項來填充缺失的數字。這兩個提供的示例都詳細且簡明，幷包含分步說明以解決資料。

示例 1：使用 VBA 程式碼在 Excel 中插入缺失的連續數字。

步驟 1

為了瞭解插入缺失連續資料數字或行的過程，使用者首先需要建立一些示例資料。對於此示例，我們將編寫一些隨機值，例如 101、105 和 110。請參考以下提供的資料快照。

步驟 2

然後，如前所述，我們將使用 VBA 程式碼解決此示例，因此使用者首先需要開啟 VBA 編輯器。為此，請右鍵單擊工作表選項卡，然後選擇“**檢視程式碼**”選項。請參考以下提供的快照。

步驟 3

上述步驟將開啟一個 Microsoft Visual Basic 應用程式對話方塊。預設情況下，此對話方塊包含一個空白程式碼區域。下面提供了相同的快照。

步驟 4

Consider the below−given code, and copy the same to the editor:

' define function header
Sub insert_missing_value()
' start function body
' declare required variables
Dim range_wrk As Range
Dim r_range As Range
Dim arr_out As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'Set data for x title
xTitleId = "Macro Dilaog box"
' set range work
Set range_wrk = Application.Selection
Set range_wrk = Application.InputBox("Range", xTitleId, range_wrk.Address, Type:=8)
' assign value to first number
num1 = range_wrk.Range("A1").Value
' assign value to second number
num2 = range_wrk.Range("A" & range_wrk.Rows.Count).Value
' calculate the interval
interval = num2 - num1
ReDim arr_out(1 To interval + 1, 1 To 2)
' for each loop expression
For Each r_range In range_wrk
    ' set value to provided variables
    dic(r_range.Value) = r_range.Offset(0, 1).Value
' next statement
Next
' for each expression
For i = 0 To interval
    ' assign value
    arr_out(i + 1, 1) = i + num1
    ' if expression block
    If dic.Exists(i + num1) Then
        ' assign value
        arr_out(i + 1, 2) = dic(i + num1)
    ' else expression block
    Else
        ' assign value
        arr_out(i + 1, 2) = ""
    ' end of if statement
    End If
Next
' use with keyword to specify range
With range_wrk.Range("A1").Resize(UBound(arr_out, 1), UBound(arr_out, 2))
    .Value = arr_out
    .Select
' end of with block
End With
' end of sub block
End Sub

步驟 5

鍵入或貼上上述程式碼後，單擊“**執行**”按鈕。下面提供了相同的快照：