如何在 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

键入或粘贴上述代码后，单击“**运行**”按钮。下面提供了相同的快照：