For循环如何结束

大神来救我

Sub 按钮1_Click()
  Dim i

For i = 2 To 100 Step 1

  Cells(2, 2) = Cells(1, 1) - Cells(2, 1)
  Cells(i + 1, 2) = Cells(i, 1) - Cells(i + 1, 1)

Next i


End Sub



请问下，我现在的for循环是2到100行结束，但有时候又是150行或者78行等等，请问这时候，For i=2 后面添加什么才能完美结束呢，谢谢

小小鸟前滚翻

把100弄成变量咯
s=100
for i=2 to s
.....
next
改变s就能控制循环次数
如果想在循环内部中止跳出循环，用exit for

maditate

Sub 按钮1_Click()
  Dim i
i = 1
Do
  If i > 500 Then Exit Do
  Cells(2, 2) = Cells(1, 1) - Cells(2, 1)
  Cells(i + 1, 2) = Cells(i, 1) - Cells(i + 1, 1)
  i = i + 1
Loop


End Sub

lsc900707

r=cells(rows.count,1).end(3).row
For i = 2 To r

liulang0808

1. Sub 按钮1_Click()
   
2.     Dim i
   
3.     x = Application.InputBox("请输入结束行号：", "行号", 100, , , , , 1)
   
4.     If x = False Then
   
5.         MsgBox "输入行号无效"
   
6.         Exit Sub
   
7.     End If
   
8.     Application.ScreenUpdating = False
   
9.     For i = 2 To x Step 1
   
10.    
    
11.         Cells(2, 2) = Cells(1, 1) - Cells(2, 1)
    
12.         Cells(i + 1, 2) = Cells(i, 1) - Cells(i + 1, 1)
    
13.    
    
14.     Next i
    
15.     Application.ScreenUpdating = True
    
16.    
    
17. End Sub

复制代码

楼主的问题描述不是很清楚，关键所谓的租后一行，是按照什么标准确定，没有明确。
所以针对楼主的问题做了输入框。