如何将A列条件格式填充色同步到B列？VBA代码无效求解决

方法1：手动快速复制格式（无需代码） #

选中A1:A4单元格，点击「开始」选项卡中的「格式刷」按钮，然后选中B1:B4区域，即可直接复制包括条件格式在内的所有格式到B列。

方法2：VBA代码复制当前显示的填充色 #

你的原代码失效的原因是：Interior.Color获取的是单元格的默认填充色，而条件格式触发的是临时显示的颜色，需要通过DisplayFormat.Interior.Color获取当前生效的显示颜色。正确代码如下：

Sub CopyConditionalFormatColor()
    Dim rngSource As Range, rngTarget As Range
    Dim i As Integer
    
    Set rngSource = ThisWorkbook.Worksheets("Sheet1").Range("A1:A4")
    Set rngTarget = ThisWorkbook.Worksheets("Sheet1").Range("B1:B4")
    
    ' 逐个匹配源单元格的显示填充色
    For i = 1 To rngSource.Cells.Count
        rngTarget.Cells(i).Interior.Color = rngSource.Cells(i).DisplayFormat.Interior.Color
    Next i
End Sub

方法3：VBA复制条件格式规则（推荐，支持动态更新） #

如果希望B列和A列一样，随着数据变化自动触发条件格式变色，直接复制条件格式规则会更合适：

Sub CopyConditionalFormatRules()
    ThisWorkbook.Worksheets("Sheet1").Range("A1:A4").Copy
    ThisWorkbook.Worksheets("Sheet1").Range("B1:B4").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False ' 清除复制状态
End Sub

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