如何在vba中获取每个循环的取值范围？

Dim i As Integer
For i = 1 To 10
    ' 在这里可以使用变量i来获取每个循环的取值范围
    Debug.Print "当前循环的取值范围是：" & i
Next i

Dim i As Integer
i = 1
Do While i <= 10
    ' 在这里可以使用变量i来获取每个循环的取值范围
    Debug.Print "当前循环的取值范围是：" & i
    i = i + 1
Loop