[已解决]求助：为什么不错？

松籽

隔行插行，用倒排，很容易。

但发现这段代码，虽然达不到想要的结果，但是不报错，奇怪。应该是错的呀

Sub aa4()

Dim j As Integer
Dim m As Integer

m = Sheets(1).[A65536].End(xlUp).Row
    For i = 1 To m
      Range("A" & i).EntireRow.Insert
      m = Sheets(1).[A65536].End(xlUp).Row
    Next
End Sub
按道理，由于m一直增加，这个表应该一直循环到死机为止，可是很正常，没有一点问题。

比如说当初始单元格为3行时，它只插入3行。是什么在控制它呢？

最佳答案

月排行榜 / 总排行榜

小线

2010-6-1 10:42

哦,我说错了,你的for内部虽然有一个求m的,这个m也跟着变化

但是for一旦开始,起始位置就会确定下来

这样你m再改变是不会对for有影响的

除非你换成do while的用法或许会死循环

跳转到最佳答案楼层

小线

你的m值只求了一次,也就是说你插入新行之后m值不变

而你用了for i=1 to m

所以固定插入m次后就停止运行了.

小线

哦,我说错了,你的for内部虽然有一个求m的,这个m也跟着变化

但是for一旦开始,起始位置就会确定下来

这样你m再改变是不会对for有影响的

除非你换成do while的用法或许会死循环

展翅

m值在FOR循环内重新赋值，对i没有影响。

可以这样：

Sub aa4()

Dim j As Integer
Dim m As Integer

m = Sheets(1).[A65536].End(xlUp).Row
    For i = 1 To m * 2 Step 2
      Range("A" & i).EntireRow.Insert
          Next
End Sub

[此贴子已经被作者于2010-6-1 10:44:15编辑过]

松籽

对于变量的认识又加了一层

杰

===================

看错题意

[em04]

[此贴子已经被作者于2010-6-1 10:52:54编辑过]

松籽

展翅是老线，最佳给小线吧

[em07]