VBA：根据单元格值插入行数

Question

寻找一种在我的工作簿中的单元格B9上方插入X行的方法。 X的值将更改，可以在单元格B4中找到。这似乎很简单，但是我无法使这部分代码正常工作。

ActiveSheet.Range("B9").Select
Selection.EntireRow.Insert.Cells("B4"), CopyOrigin:=xlFormatFromRightOrBelow

Answer 1

您可以使用Resize来做到这一点，而根本不需要Select。

Range("B9").EntireRow.Resize(Range("B4").Value).Insert CopyOrigin:=xlFormatFromRightOrBelow

此外，您应该避免使用ActiveSheet，而应使用Sheets("YourSheetName")或引用相关工作表的变量对工作表进行完全限定。