vba - 如何根据特定单元格中的值插入行？

Question

我是 VBA 新手，真的很想开始从事一个工作项目，我为我缺乏知识而道歉，但我真的很想为老板解决这个问题。

我想要完成的任务如下:我有一个从 H2 开始到 H200 的数字列表，每个数字范围从 1~150。

我正在尝试编写一个宏，在每个数字下插入行数与该数字相同的行。 (例如，如果数字是 42，则在其下创建 42 行。然后假设其下的数字是 13，则将有 13 行...依此类推)。

当前代码:

Sub InsertRow()

    i = 2
    count = Cells(i, H).Value

    Range("B2").EntireRow.Insert
    Range("B2").EntireRow.Resize(count).Insert shift:=xlDown

End Sub

Answer 1

你已经成功了一半。您可以使用 for 循环来遍历所有单元格。但是，由于您将插入行并因此扩展循环中的单元格数量，因此我建议从底部开始向上:

For i = cells(Rows.count,"H").end(xlup).row to 2 step - 1
    count = Cells(i, 8).Value
    Range("B" & i + 1).EntireRow.Resize(count).Insert shift:=xlDown
Next i