如何将条件格式定义的单元格颜色复制到其他单元格（VBA实现）

你的需求是将A3:A6单元格通过条件格式显示的背景色复制到C3:C6，原代码存在几个问题导致无法实现功能，以下是修正后的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xSRg As Range, xDRg As Range, xISRg As Range, xIDRg As Range
    Dim xFNum As Long
    
    ' 修正源区域为A3:A6，与目标区域C3:C6单元格数量匹配
    Set xSRg = Sheet1.Range("A3:A6")
    Set xDRg = Sheet1.Range("C3:C6")
    
    ' 循环遍历每个单元格，复制显示颜色
    For xFNum = 1 To xSRg.Count
        Set xISRg = xSRg.Item(xFNum)
        Set xIDRg = xDRg.Item(xFNum)
        ' DisplayFormat是只读属性，需将源单元格的显示颜色赋值给目标单元格的填充色
        xIDRg.Interior.Color = xISRg.DisplayFormat.Interior.Color
    Next xFNum
End Sub

关键修改点说明： #

• 修正区域范围：原代码源区域为A3:A5，与目标区域C3:C6单元格数量不匹配，改为A3:A6后保证一一对应。
• 修正赋值逻辑：DisplayFormat.Interior.Color是只读属性，不能直接给目标单元格的DisplayFormat赋值，改为将源单元格的显示颜色值赋值给目标单元格的Interior.Color，直接设置目标单元格的填充色。
• 优化变量声明：明确所有Range变量的类型，避免默认Variant类型带来的潜在问题。
• 移除错误屏蔽：去掉On Error Resume Next，便于调试时发现问题。

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