如何仅复制单元格颜色而非条件格式？VBA代码合并问题求解

我来帮你解决这个问题！你遇到的核心问题是xlPasteFormats会把合并单元格的格式也一并粘贴，所以才导致B1、B2被合并。以下两种方案都能精准实现只复制填充颜色的需求：

方案1：使用精准的粘贴参数（最简洁） #

直接修改PasteSpecial的Paste参数为xlPasteInterior，这个参数只会复制单元格的背景填充色，不会包含合并格式或条件格式：

' 复制源区域的填充色
Range("A1:A2").Copy
' 仅粘贴填充色到目标区域
Range("B1:B2").PasteSpecial Paste:=xlPasteInterior, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' 清除复制状态，避免后续操作受影响
Application.CutCopyMode = False

执行这段代码后，B1和B2会保留各自的独立状态（不会被合并），同时被设置成和A1:A2一样的红色填充。

方案2：手动设置颜色值（更灵活） #

如果不想用复制粘贴的方式，可以直接获取源单元格的颜色值，然后逐个给目标单元格设置颜色。因为A1:A2是合并单元格，所有子单元格的填充色是一致的，直接取A1的颜色即可：

' 获取合并单元格的填充色
Dim sourceFillColor As Long
sourceFillColor = Range("A1").Interior.Color

' 遍历目标区域，逐个设置颜色
Dim targetCell As Range
For Each targetCell In Range("B1:B2")
    targetCell.Interior.Color = sourceFillColor
Next targetCell

这种方法的优势是完全避免了复制粘贴带来的潜在格式干扰，适合需要对目标区域做更多自定义操作的场景。

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