如何在一个单元格中循环三次以执行多个查找和替换？

Question

我正在尝试查找/替换，但我被卡住了。基本上，我想复制一个单元格的内容，假设它是单元格P6。我想把单元格8的内容放在左边。

因此，在CellAddress of P6中，我有以下内容: 1.活动名称= YES 2.活动/项目经理= YES 30。Creative Indicator = YES Q1。新的法律批准=是Q2。目标指示器= YES

在单元格H6中，我希望看到: 1.活动名称2.活动/计划经理30。创意指标Q1。新的法律审批Q2。目标指示器

基本上，任何带有"YES“、"NO”或"=“的内容都将替换为"”。我知道这个循环的问题是什么了……我似乎就是无法修复它。

这是我不能工作的代码。

fndList = Array("NO", "YES", "=")
rplcList = Array("", "", "")
    For x = LBound(fndList) To UBound(fndList)
        ActiveSheet.Range("AA1").Value = Replace(ActiveSheet.Range(CellAddress).Value, fndList(x), rplcList(x))
        ActiveSheet.Range(CellAddress).Offset(0, -8).Value = ActiveSheet.Range("AA1").Value
        ActiveSheet.Range("AA1").Clear
    Next

这就是问题所在。在循环的第一次迭代中，我得到了这个: 1. Campaign Name = YES 2. Campaign / Program Manager = YES 30。Creative Indicator = YES Q1。新的法律批准=是Q2。目标指示器= YES

在第二次迭代中，我得到了这个: 1.活动名称= 2.活动/项目经理= 30。创造性指示器= Q1。新的法律批准= Q2。目标指示器=

在第三次迭代中，我得到了这个: 1.活动名称YES 2. Campaign / Program Manager YES 30。创意指标是Q1。新的法律批准是Q2。目标指示器是