如何在 Excel 中根据另一列的值重复指定次数的行？

MS Excel 微软技术高级 Excel 函数

在处理大型数据集或需要扩展和组织数据时，此有效技术允许您根据特定列的值复制行，从而节省时间和精力。

在本文中，我们将逐步向您展示如何有效地利用 Excel 的内置函数和功能来完成这项工作。无论您是在处理销售数据、调查结果还是任何其他需要重复行类型的信息，此技术都将非常有助于优化您的工作效率。

根据另一列的值重复指定次数的行

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们来看一个简单的流程，了解如何根据 Excel 中的另一列的值重复指定次数的行。

步骤 1

考虑一个 Excel 表格，其中表格中的数据类似于下图。

首先，右键单击工作表名称并选择“查看代码”以打开 VBA 应用程序。

右键单击 > 查看代码。

步骤 2

然后单击“插入”并选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub CopyRow()
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Repeat Specified Times", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
   MsgBox "Please select single column!"
   GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
   xRN = CInt(xCRg.Value)
   With Rows(xCRg.Row)
   .Copy
   .Resize(xRN).Insert
   End With
Next
Application.ScreenUpdating = True
End Sub