当VBA在其间插入行时,如何计算行数并将其作为条件？

Question

我需要在我的代码中使用循环,在某种情况下我会插入行.

Rowz = activesheet.Cells(Rows.Count, 1).End(xlUp).Row
for j=3 to Rowz ' say number of rowz=1000

但是当行之间插入行时,行数会增加.比如说在第200行我插入4行和第500行我插入10行所以数字现在增加到1000以上,所以循环测试直到1000忽略由于插入而被推下的剩余行.但我需要执行该循环,直到最后一行甚至插入行之间的行

我想用这些

  for j=3 to activesheet.cells(Rows.count,1).End(xlUp).Row

但是值不是更新我猜它只是检查到1000只是它没有更新to condtion中的行数值.

如果在两者之间创建行,我如何计算行数并将其保持在某个条件下？

Answer 1

为什么不尝试向后循环？for j = rowZ to 3 step -1.
可能解决你的问题？

编辑:选项2,您可以在最后一个之后定义单元格的名称,并参考命名范围:Range("myLastCell").每次插入行时都会调整....