今日学习目标

  • 掌握For...Next循环
  • 掌握For Each...Next循环
  • 掌握Do While/Until循环

知识点

1. For...Next

vba
For i = 1 To 10
' 重复执行10次
Next i

2. For Each...Next

vba
For Each item In collection
' 遍历集合
Next item

3. Do While/Until

vba
Do While 条件
' 条件满足时执行
Loop
Do Until 条件
' 条件不满足时执行
Loop

今日代码

vba
For i = 1 To 10
    ' 重复执行10次
Next i

练习题

  1. 计算1-50的偶数和
  2. 遍历工作簿中所有工作表
  3. 使用循环填充A1:A10单元格

参考解答

1. 使用For循环，i从1到50，判断i Mod 2 = 0时累加。 2. 使用For Each ws In Worksheets遍历，打印或处理每个工作表。 3. 使用For i = 1 To 10，Cells(i, 1).Value = i或Range("A" & i).Value = i。

由在线工具箱(www.vba.net)整理制作