问VBA:根据单元格值插入行数
EN

Stack Overflow用户

提问于 2018-06-21 05:05:28

回答 1查看 1.2K关注 0票数 0

在我的工作簿中寻找在单元格B9上方插入X行的方法。X的值将发生变化，可以在单元格B4中找到。这看起来很简单，但我无法让这部分代码正常工作。

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

回答已采纳

发布于 2018-06-21 08:01:16

你可以使用Resize来做这件事，而且你根本不需要Select。

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

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

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/50957011

复制

相似问题

问VBA:根据单元格值插入行数EN