删除表格中空行的代码，有一个语句不理解，求教

riigfn · 发表于 2013-3-1 23:08

行数 = Application.WorksheetFunction.Max(Sheets("企业账").Range("D65536").End(xlUp).Row, Sheets("企业账").Range("E65536").End(xlUp).Row)
P = 0

With Sheets("企业账")

For I = 3 To 行数

If .Cells(I, 4) - .Cells(I, 5) = 0 Then
   .Rows(I).Delete
   I = I - 1
End If

P = P + 1

If P > 行数 Then
   Exit For
End If

Next I

里面的 I=I-1 是什么意思，求指教

TP512926 · 发表于 2013-3-1 23:49

With Sheets("企业账")

For I = 3 To 行数

If .Cells(I, 4) - .Cells(I, 5) = 0 Then
   .Rows(I).Delete
   I = I - 1
End If

这里的I = I -1,是表示从最大行到第3行递减的循环判断
效果等同于以下代码

For I =  行数 to 3 step -1

dajiahaoxinku12 · 发表于 2013-3-1 23:52

删除一行少一行，所以就是 i = i - 1

xiaozhuboe · 发表于 2013-3-7 04:15

\(^o^)/学习中

okeey · 发表于 2013-3-12 09:16

学习中！！！

异路天涯 · 发表于 2013-3-12 22:15

本帖最后由异路天涯于 2013-3-12 22:18 编辑

TP512926 发表于 2013-3-1 23:49
With Sheets("企业账")

For I = 3 To 行数

请问下用step-1 和用变量p停止循环的区别在哪，是某种情况下他们的循环次数不同吗
还是说完全没区别。
我试了下如果是用step-1的方式就不需要p变量了，还是说我考虑的不够周全

		自动登录	找回密码
密码			免费注册