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

您是否尝试过像下面截图所示那样，根据另一列的值来重复某一行呢？本文将介绍在Excel中解决此问题的方法。

使用VBA根据另一列的值重复行

通过Kutools for Excel根据另一列的值重复行

使用VBA根据另一列的值重复行

这里我有一个代码，可以快速根据最后一列的值重复行。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，然后复制以下代码并将其粘贴到新模块脚本中。

VBA：根据另一列的值重复行

Sub CopyRow()
'UpdatebyExtendoffice20181011
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", "Kutools for Excel", 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

3. 按下 F5 键，弹出一个对话框，选择要基于其重复行的数字列表。

4. 单击“确定”，行已根据所选列的值进行了重复。

通过Kutools for Excel根据另一列的值重复行

如果您不擅长使用VBA，可以尝试 Kutools for Excel 的 基于单元格值重复行/列 功能，只需两个步骤即可完成。

1. 单击 Kutools > 插入 > Duplicate Rows/Columns Based on Cell Value.

2. 在弹出的对话框中，选择 复制并插入行 选项，在 类型 部分中，然后选择要重复的区域至 插入范围文本框，并选择决定重复次数的列至 重复次数 文本框。单击 确定.

然后这些行将根据选定的列进行重复。