VBA DO 循环问题

在VBA中，DO循环是一种重复执行一段代码的结构。它使用一个条件来判断是否继续执行循环，如果条件为真，则继续执行循环，直到条件为假为止。DO循环提供了灵活性和控制，使程序员能够根据需要重复执行特定的代码块。

Sub DoWhileLoopExample()
    Dim i As Integer
    i = 1
    
    Do While i <= 10
        MsgBox "当前的值是：" & i
        i = i + 1
    Loop
    
    MsgBox "循环结束"
End Sub

Sub DoUntilLoopExample()
    Dim i As Integer
    i = 1
    
    Do Until i > 10
        MsgBox "当前的值是：" & i
        i = i + 1
    Loop
    
    MsgBox "循环结束"
End Sub

Sub FindAndReplace()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") '假设我们要查找和替换的范围是A1到A10
    
    Do While rng.Cells(1, 1).Value <> "" '当第一个单元格的值不为空时执行循环
        For Each cell In rng
            If InStr(1, cell.Value, "查找") > 0 Then '如果单元格中包含"查找"字符串
                cell.Value = Replace(cell.Value, "查找", "替换") '将"查找"替换为"替换"
            End If
        Next cell
        
        Set rng = Range(rng.Cells(1, 1).Offset(1, 0), rng.Cells(rng.Cells.Count, 1)) '将范围向下移动一行
    Loop
    
    MsgBox "查找和替换完成"
End Sub