Excel 宏根据单元格值乘以行

Question

我需要以下帮助：

我在 A 列中有一个独特产品列表（产品 1、产品 2 等）。 在每个产品旁边的 B 列中，我有每个产品的当前库存（14、6 等）。

有人可以帮我解决一个宏，将这个列表变成一个包含 14 行产品 1 和 6 行产品 2（在 A 列中）的列表吗？

非常感谢您提前提供的帮助

斯蒂芬

Answer 1

我认为您想要一个在 A 列上生成 x 次“产品 1”和 y 次“产品 2”的宏（在您的情况下为 x=16 和 y=4），我构建了这个：

代码：

Private Sub Execute_btn_Click()
Dim i As Long
Dim j As Long
Dim Last_Row As Long

For i = 1 To TextBox1.Value
    Cells(i, 1).Value = "Product 1"
Next i

Last_Row = Application.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For j = 1 To TextBox2.Value
    Cells(Last_Row + j, 1) = "Product 2"
Next j

Unload Me
End Sub