excel 根据指定次数复制内容

 根据次数复制对应的产品名称，sku，可以使用一下代码实现

------------------------------------------------------------------------------------------------------

Sub 按指定次数重复内容()

'代码由yianxss原创，转载请注明

Dim i&, arr(1 To 100000, 1 To 1), arr2(1 To 100000, 1 To 1)

'A列内容行数

i = Cells(Rows.Count, 1).End(3).Row

For k = 2 To i

    '按次数重复

    For n = 1 To Cells(k, 3)

        arr(m + 1, 1) = Cells(k, 1)
        arr2(x + 1, 1) = Cells(k, 2)

        m = m + 1
        x = x + 1

    Next

Next

'[d2]存放的开始地址，可修改

[d2].Resize(m, 1) = arr
[e2].Resize(x, 1) = arr2

End Sub
-------------------------------------------------------------------------------------------------

原始链接：https://jingyan.baidu.com/article/3c343ff71402890d3779639b.html