将格式条件从一个单元复制到另一个单元

Question

我希望能够写出如下内容：

wks.Range("A1").FormatConditions = r.FormatConditions 

将条件格式从一个单元格复制到另一个单元格。这可能吗？我想通过使用一行代码将条件格式从一个单元格复制到另一个单元格，就像我将公式从一个单元格复制到另一个单元格一样：

wks.Range("A1").Formula = r.Formula

也许在VBA中有一个我没有找到的内置命令？ 也许有人为此写了一个自定义子？

以上示例中的r是一个范围。

Answer 1

我认为你不能用一行代码来做。但是，您可以使用两行来完成：

wks.Range("A1").Copy
r.PasteSpecial xlPasteFormats

这将复制所有格式，包括格式条件。