在没有循环的情况下在VBA中查找和替换整个工作簿？

Sub FindAndReplace()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 在当前工作表中查找指定的值
        Set rng = ws.Cells.Find(What:="要查找的值", LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到了指定的值，则进行替换
        If Not rng Is Nothing Then
            rng.Value = "要替换的值"
        End If
    Next ws
End Sub

Sub FindAndReplace()
    Dim ws As Worksheet
    Dim rng As Range
    Dim firstAddress As String
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 在当前工作表中查找指定的值
        Set rng = ws.Cells.Find(What:="要查找的值", LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到了指定的值，则进行替换
        If Not rng Is Nothing Then
            firstAddress = rng.Address ' 记录第一个匹配项的地址
            Do
                rng.Value = "要替换的值"
                Set rng = ws.Cells.FindNext(rng) ' 继续查找下一个匹配项
            Loop While Not rng Is Nothing And rng.Address <> firstAddress
        End If
    Next ws
End Sub