在 VBA 中查找和替换循环

Question

我有一张包含文本“apple”的公式的表格。我想做以下事情：

1. 将此工作表中单词 apple 的每个实例替换为“banana”
2. 打印结果（简单复制和粘贴）
3. 用“猫”代替香蕉
4. 打印结果（简单复制和粘贴）
5. 将“猫”替换为“狗”
6. 打印结果（简单复制和粘贴）
7. 最后以恢复基本情况结束，即用苹果替换“狗”

我已经完成了第一次迭代（见下文），只需要有关如何实现循环的帮助。

提前致谢！！

Sub FindReplaceAll()

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant

fnd = "apple"
rplc = "banana"

'Store a specfic sheet to a variable
  Set sht = Sheets("Trace")

'Perform the Find/Replace All
  sht.Cells.Replace what:=fnd, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
    
Range("ResFinal").Copy
    Worksheets("Results").Activate
    Range("E13").PasteSpecial xlPasteValues
   
End Sub

Answer 1

您可以将项目放入两个数组并循环遍历它们，即

Sub FindReplaceAll()

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim i As Long

fnd = Array("apple", "banana", "cats", "dogs")
rplc = Array("banana", "cats", "dogs", "apple")

'Store a specfic sheet to a variable
Set sht = Sheets("Trace")

'Perform the Find/Replace All
For i = LBound(fnd) To UBound(fnd)
    sht.Cells.Replace what:=fnd(i), Replacement:=rplc(i), _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False
    Range("ResFinal").Copy
    Worksheets("Results").Range("E13").PasteSpecial xlPasteValues
Next i

End Sub