在VBA中，可以使用循環和多個.FindNext方法來實現多個查找操作。下面是一個示例代碼：
Sub MultipleFindNext()
Dim rng As Range
Dim firstAddress As String
Dim searchValue As String
searchValue = "apple"
' 設置查找范圍
Set rng = Range("A1:A10")
' 查找第一個匹配項
With rng
Set cell = .Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
' 如果找到了匹配項
If Not cell Is Nothing Then
firstAddress = cell.Address
Do
' 處理找到的每個匹配項
' 例如：在找到的單元格上應用格式或執行其他操作
cell.Font.Bold = True
' 繼續查找下一個匹配項
Set cell = .FindNext(cell)
' 如果找到了第一個匹配項，則退出循環
If cell.Address = firstAddress Then Exit Do
Loop While Not cell Is Nothing
End If
End With
End Sub
上述代碼中，首先設置了要查找的范圍rng和要查找的值searchValue。然后使用第一個.Find方法查找第一個匹配項，并使用一個循環來處理每個匹配項。在循環內部，使用.FindNext方法繼續查找下一個匹配項。循環會一直執行，直到再次找到第一個匹配項為止。在處理每個匹配項時，可以執行自定義的操作，例如應用格式或執行其他操作。
