查找/replace有条件格式化的单元格

我一直在使用条件格式formula =OR(B2=B1,B2=B3)来突出显示连续的重复项。 然后，我使用格式画家将公式复制到我的Excel表中的所有列。

我已经设置了一个button，其中包括将工作簿复制到新的工作簿中。 我现在想在这个macros中包含上面的公式。 我的最终目标是用星号（*）replace用这个公式find的所有单元格。

我首先试图把公式推入macros观，作为一个起点 –

 For Each sh In Destwb.Worksheets With sh.UsedRange.FormatConditions _ .Add(Type:=xlExpression, Formula1:="=OR(B2=B1,B2=B3)") .Interior.Color = RGB(198, 239, 206) End With Next sh 

但是这只是一堆看似随机突出的单元格。 我不确定我哪里出了问题。 即使B列的亮点都是错误的。 B1中的标题可以影响这个吗？ 当我正常使用CF时不会。 如何将CF扩展到所有列中？

最后，我怎样才能将格式化的单元格replace成这个公式？ 还是有更快更简单的方法来达到这个最终目标？

我没有意识到我可以用这种方式添加自定义文本。 这让我感动了好几步。

考虑到巴林蒂的build议，我试过一个解决方法。 我正在做出一些结果是错误的假设。 我已经能够将CFinput到我原始工作簿中的数据arrays中。 这并不像把它放在表格中那么简单，而是通过手动select每一列中的范围并input我使之工作的CF。

我也不确定格式是否会传递到新工作表，因为我已经使用了“粘贴特殊”命令将数组公式转换为新工作表中的值。 不过，它的格式是非常方便的。

这不是我的完美解决scheme，但它似乎工作到目前为止。 我仍然需要testing当更改date和获取更新的数据时会发生什么。 知道我是否可以将这个格式化到我的macros中仍然很有趣。 有小费吗？