求助：如何仅将单元格的条件格式规则复制到另一单元格？

我之前也碰到过这个棘手的小问题——只想复制条件格式，不想带其他单元格格式，搜了一堆帖子大多只提PasteSpecial但没说清楚细节，给你两个亲测有效的方案：

手动操作方案（无需代码） #

这个方法最直接，不会误带其他格式：

• 选中你要复制条件格式的源单元格，按下Ctrl+C复制
• 选中目标单元格，右键点击选择「选择性粘贴」，在弹出的窗口里选仅条件格式（不同Excel版本可能位置略有差异，有的版本在「粘贴格式」的子菜单里）
• 确认后，目标单元格就只会继承源单元格的条件格式规则，原有的单元格格式（比如字体、填充色）不会被覆盖

VBA自动化方案（适合批量或重复操作） #

如果需要频繁做这个操作，写个小宏更高效，下面是精准复制单个单元格条件格式的代码：

Sub CopySingleCellConditionalFormat()
    ' 替换成你的源单元格和目标单元格地址
    Dim sourceCell As Range
    Dim targetCell As Range
    
    Set sourceCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("B1")
    
    ' 可选：清除目标单元格原有条件格式，避免规则冲突
    targetCell.FormatConditions.Delete
    
    ' 仅复制条件格式规则
    sourceCell.FormatConditions.Copy
    targetCell.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False ' 取消复制状态
End Sub

代码说明： #

• 把Sheet1、A1、B1替换成你实际的工作表和单元格地址
• 如果不想清除目标单元格原有条件格式，删掉targetCell.FormatConditions.Delete这一行即可
• 注意：如果源单元格的条件格式用了相对引用（比如公式里的A1），复制到目标单元格后会自动调整为对应位置的引用；如果需要固定引用，要手动修改规则里的公式为绝对引用（比如$A$1）

内容的提问来源于stack exchange，提问作者jackelsey