嘿，我一眼就看出问题出在哪了——你用c.Interior.Color来判断条件格式的填充色，但这个属性只认手动设置的单元格底色，条件格式应用的颜色根本不会存在这里！这就是为什么你的代码能遍历单元格，但永远触发不了复制粘贴逻辑。

核心修改点：判断条件格式的填充色 #

要识别条件格式设置的填充色，你需要遍历单元格的ConditionalFormatting规则集合，检查每个规则的填充颜色是否匹配目标RGB值。我帮你重写了判断逻辑，同时也修正了原代码里的一些小问题（比如变量定义不规范，这里假设你已经正确定义了HosKvikOff变量）：

Sub LoopForCondFormatCells()
    Dim sht3 As Worksheet, sht4 As Worksheet ' 修正变量类型定义
    Dim c As Range
    Dim targetColor As Long
    Dim cfRule As FormatCondition
    
    Set sht3 = Sheets("Compare")
    Set sht4 = Sheets("Print ready")
    targetColor = RGB(250, 191, 143) ' 把目标颜色存为变量，方便维护
    
    ' 直接遍历目标区域，不用额外赋值
    For Each c In sht3.Range("G3:G86").Cells
        ' 遍历单元格的所有条件格式规则
        For Each cfRule In c.FormatConditions
            ' 检查规则是否是填充色规则，且颜色匹配
            ' 如果你的条件格式是基于公式，把xlCellValue改成xlExpression
            If cfRule.Type = xlCellValue And cfRule.Interior.Color = targetColor Then
                ' 复制左侧单元格内容到右侧
                c.Offset(0, -1).Copy c.Offset(0, 1)
                
                ' 把相关内容粘贴到Print ready工作表
                c.Offset(0, -1).Resize(1, 2).Copy
                sht4.Range(HosKvikOff).Offset(0, -1).PasteSpecial xlPasteAll ' 按需选择粘贴类型，比如xlPasteFormats
                
                ' 找到匹配规则后退出内层循环，避免重复处理
                Exit For
            End If
        Next cfRule
    Next c
    
    ' 清除剪贴板，避免弹窗提示
    Application.CutCopyMode = False
End Sub

关键细节说明 #

• 条件格式判断逻辑：通过c.FormatConditions遍历单元格的所有条件格式规则，筛选出填充色匹配的规则。如果你的条件格式是基于公式触发的，只需把cfRule.Type = xlCellValue改成xlExpression即可。
• 简化复制步骤：不用通过地址字符串操作单元格，直接用Offset和Resize定位，代码更简洁可靠。
• 变量规范：修正了原代码中sht3未指定类型的问题，避免变体类型带来的潜在bug。

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