vba\x20循环常用 vba循环语句实例

for.next------ for each xx in xxx.next------- do wile xxx.loop-------- do.loop until xxx

循环是用for each,判断是用if for each rg in worksheets.range(＂A1:D10＂) if rg.value=＂abc＂ then //代码 end if next

循环变量是可以在循环体内改变的.E = 1 For D = E + 21 To 2000 Sheets(＂分组统计表＂).Cells(D, 2) = Sheets(＂分组统计表＂).Cells(E + 3, 2) If E > 10 Then E = 1 D = D + 4 Else E = E + 1 End If Next

直接用单元格查找方法(Find)比如要找“张三”:Set ra = Cells.Find(＂张三＂) If Not ra Is Nothing Then '找到“张三”后要运行的代码段 End If 代码中 ra 就是张三所在单元格,对其它单元格的引用就可用 ra.Offset 进行

1、For ……Next 语句,适用于顺序操作 例1.在立即窗口输出1到100 For n=1 to 100 . 100 '当n大于100时退出循环6、Do ……Loop While 语句 ,鬼老的思维真是最诡异.

for i=0 to 9next--------------while i<>0wend---------------do while i<>0loop----------------doloop while i<>0-------------------do until i=0loop--------------------doloop until i=0----------------------

把do while ……loop改成for……next 直接搜VBA for next循环

通常有下面一些循环语句:1、For . Next 如: For i=1 to 100 Cells(i,1)=1 Next2、Do Until .. Loop 如: i=1 Do Until i=100 Cells(i,1)=i i=i+1 Loop3、Do Where . Loop 如: i=1 Do Where i Cells(i,1)=i i=i+1 Loop

Sub 公式() Dim arr(1 To 26) For i = 1 To 26 Cells(i, 7) = ＂=IF(IFERROR(FIND(＂＂＂ & Chr(i + 96) & ＂＂＂,R1C2),0)=0,0,1)＂ arr(i) = Chr(i + 96) Next End Sub不要定义26个变量 使用Dim arr(1 To 26) 然后用arr(i)来做调用

你的行标写错位置了,应该卸载Next h的位置: For h = 4 To Z3 ******If Cells(3, 2) = ＂＂ And Cells(6, 3) = ＂本月合计＂ Then h = h + 1 GoTo 10 End If ******* 10: '写这里!!!Next h