[已解决]插入多行的代码怎么写？

一点不自在

插入多行的代码怎么写？

插入一行是这个代码  [A1].EntiveRow.Insert shift:=xlshiftdown
如果要插入多行，比如插入4行或6行或更多行，这个代码怎么写呢？

最佳答案

月排行榜 / 总排行榜

枯禅

2010-4-2 08:09

Sub aa()
Dim i%
i = 4
Range("a1").Resize(i).EntireRow.Insert
End Sub

跳转到最佳答案楼层

枯禅

Sub aa()
Dim i%
i = 4
Range("a1").Resize(i).EntireRow.Insert
End Sub

一点不自在

谢谢2楼高手的回答！

[em01]

吕?布

楼主如果满意别人的回答，可以给他评最佳以示认可

这次楼主表明了这个意向，代评了。

一点不自在

QUOTE:

以下是引用吕?布在2010-4-2 12:47:00的发言：

楼主如果满意别人的回答，可以给他评最佳以示认可

这次楼主表明了这个意向，代评了。

忘了评最佳答案真不应该，谢谢高手提示，以后一定注意，再次感谢！

zsd5237

学习[em02][em02]

hhzjxss

看看最佳答案！