Excel 如何根据单元格值重复多个值 X 次

Question

任何可以提供帮助的人...在此先感谢。

每一行的商品编号、包装和尺寸都需要根据列中的数字 "number of labels"

在单独的 sheet 中重复多次

(请注意：标签数量中的数字仅用于测试目的，不需要递增)

Sheet 1 如下

Item #  Pack    Size    Number of Labels
12545   20      1.8oz   1
56010   6       4PK     2
70091   6       7oz     3
61816   24      1.6oz   4

4

我希望sheet 2 输出如下内容：

Item #  Pack    Size
12545   20      1.8oz
56010   6        4PK
56010   6        4PK
70091   6        7oz
70091   6        7oz
70091   6        7oz
61816   24       1.6oz
61816   24       1.6oz
61816   24       1.6oz
61816   24       1.6oz

我找到了以下代码，但我希望固定单元格输入范围并且不使用对话框我需要帮助来修改我找到的代码，以便解决我给定的问题。我需要以下代码来输出多个列。 : （我在这里得到了代码：https://www.extendoffice.com/documents/excel/1897-excel-repeat-cell-value-x-times.html#a2）

Sub CopyData()
'Update 20140724
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub

我尝试进行的黑客攻击无效，如果有任何帮助将非常有用。

上下文：我必须在工作中为新产品创建许多标签。我必须在 Word 中手动输入每个标签。我发现我可以使用 Words 邮件合并操作来导入 excel 数据。我让这些部件正常工作，但现在我需要能够为每件物品获得我需要的确切标签数量。

Answer 1

Private Sub hereyago()

    Dim arr As Variant
    Dim wsO As Worksheet
    Dim this As Integer

    arr = ThisWorkbook.Sheets("Sheet1").UsedRange
    Set wsO = ThisWorkbook.Sheets("Sheet2")

    For i = LBound(arr, 1) To UBound(arr, 1)
        If IsNumeric(arr(i, 4)) Then
            this = arr(i, 4)
            For h = 1 To this
                wsO.Cells(wsO.Rows.count, 1).End(xlUp).Offset(1, 0).Value = arr(i, 1)
                wsO.Cells(wsO.Rows.count, 1).End(xlUp).Offset(0, 1).Value = arr(i, 2)
                wsO.Cells(wsO.Rows.count, 1).End(xlUp).Offset(0, 2).Value = arr(i, 3)
                wsO.Cells(wsO.Rows.count, 1).End(xlUp).Offset(0, 3).Value = arr(i, 4)
            Next h
        End If
    Next i
End Sub

Excel 如何根据单元格值重复多个值 X 次

Excel How To Repeat multiple values based on a Cell Value X Times

excel

vba

copying