仅复制条件格式

Question

我正在为一些看起来相当简单的事情而苦苦挣扎。我正在尝试将 just 单元格的条件格式规则复制到另一个单元格。我在这里搜索过类似的问题：

1) Copy Format Conditions from one cell to another?

和其他地方：

1)https://www.ozgrid.com/forum/forum/help-forums/excel-general/9956-solved-macro-to-copy-conditional-formatting

2)https://www.mrexcel.com/forum/excel-questions/369089-vba-copy-conditional-formatting.html

...但大多数答案往往只是说使用.PasteSpecial xlPasteFormats，10 次中有 9 次可以完成这项工作，但不是我想要做的真正答案（请参阅用户的评论SO问题：“这不仅复制了条件格式，而且我可以处理它”）。

我正在尝试从一个单元格中获取条件格式规则，并将它们应用于另一个标准格式不同的单元格。从.PasteSpecial 枚举的这组示例来看，没有一个可以完成确切的工作 - xlPasteAllMergingConditionalFormats 看起来很接近，但我实际上不想将任何内容从一个单元格粘贴到另一个单元格。

尝试了一些无望的猜测，例如：

For Each cond In rng1.FormatConditions rng2.FormatConditions.Add (cond) Next cond

但我知道它需要的远不止这些...任何帮助表示赞赏！

Answer 1

这有点便宜（又名“The Swap”），但应该可以。假设您只关心以下属性：

• 字体名称
• 字体大小
• 内饰.颜色

因此，在复制单元格之前，您可以简单地记住“hiddenRange”中的属性。因此，您可以简单地将copyRange 复制到hiddenRange，然后使用xlPasteAllMerginingConditionalFormats 将copyRange 复制到pasteRange，然后从hiddenRange 中调用pasteRange 的正确属性。

看比解释好一点：

Option Explicit

Sub TestMe()

    Dim hiddenRange As Range
    Dim copyRange   As Range
    Dim pasteRange  As Range

    Set hiddenRange = Range("A1")
    Set copyRange = Range("B2")
    Set pasteRange = Range("B3")

    pasteRange.Copy hiddenRange
    copyRange.Copy
    pasteRange.PasteSpecial Paste:=xlPasteAllMergingConditionalFormats

    With pasteRange
        .Font.Name = hiddenRange.Font.Name
        .Font.Size = hiddenRange.Font.Size
        .Interior.Color = hiddenRange.Interior.Color
    End With

    hiddenRange.Clear
    Application.CutCopyMode = False

End Sub