在 VBA 中，可以使用循环语句重复执行一段代码。以下是一个使用 `For` 循环的示例：
```vbnet
Sub ForLoopExample()
Dim i As Integer
For i = 1 To 5
Debug.Print i
Next
End Sub
```
在这个示例中，我们首先定义了一个变量 `i`。然后，我们使用 `For` 循环从 1 循环到 5。在循环体中，我们使用 `Debug.Print` 语句将 `i` 的值打印到 Immediate 窗口中。最后，我们使用 `Next` 语句结束循环。
运行这个代码后，您可以在 Immediate 窗口中看到以下输出：
```csharp
1
2
3
4
5
```
这个示例演示了如何使用 VBA 中的 `For` 循环重复执行一段代码。
除了 `For` 循环，VBA 中还有其他类型的循环，包括：
1. `Do While` 循环：在循环体执行之前评估条件，如果条件为真，则执行循环体，直到条件为假为止。
```vbnet
Do While condition
' 执行循环体
Loop
```
2. `Do Until` 循环：在循环体执行之前评估条件，如果条件为假，则执行循环体，直到条件为真为止。
```vbnet
Do Until condition
' 执行循环体
Loop
```
3. `For Each` 循环：用于遍历集合中的每个元素。
```vbnet
For Each element In collection
' 执行循环体
Next
```
以下是一个使用 `Do While` 循环的示例：
```vbnet
Sub DoWhileLoopExample()
Dim i As Integer
i = 1
Do While i <= 5
Debug.Print i
i = i + 1
Loop
End Sub
```
在这个示例中，我们首先定义了一个变量 `i`，并将其初始化为 1。然后，我们使用 `Do While` 循环重复执行循环体，直到 `i` 的值大于 5 为止。在循环体中，我们使用 `Debug.Print` 语句将 `i` 的值打印到 Immediate 窗口中，并使用 `i = i + 1` 语句将 `i` 的值加 1。最后，我们使用 `Loop` 关键字结束循环。
运行这个代码后，您可以在 Immediate 窗口中看到与 `For` 循环示例相同的输出。