EXCEL VBA 学习笔记(3)
4/2 2019
学习笔记三主要记录VBA 循环语句 for next、do loop
for next语句
Sub forlanguage()
'define the variable(wyq)'s type
Dim wyq As Integer
'set the inital value for the variable
wyq = 5
For wyq = 5 To 520 Step 5
'"a"&wyq = cell(A5)
Range("a" & wyq) = 20
Next wyq
'wyq can omit there
End Sub
do loop循环(可能会成为死循环)
造成死循环的原因可能如下:
- do until 后面的条件永远无法达到
- do until 内部没有这只增加语句,变量始终为原来的数值
- 需要注意do until最后一个条件不会执行
下面的wyq=525不会执行,只会执行到520
Sub doloop()
Dim wyq As Integer
wyq = 5
Do Until wyq = 525
Range("b" & wyq) = 520
wyq = wyq + 5
Loop
End Sub
- until wyq =525 可以放在loop后面
- until wyq =525 可以改为 while wyq <521
author:llovewyq