如何在 Excel 中根据另一列重复指定行数?

ms excelmicrosoft technologiesadvanced excel function

处理海量数据集或需要扩展和组织数据时，这项有效的技术可让您根据特定列的值重复行，从而节省时间和精力。

在本文中，我们将逐步向您展示如何利用 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