我明白你的困扰——用普通VBA代码读取单元格颜色时，只能识别手动填充的，完全读不到条件格式设置的颜色。这是因为条件格式的颜色属于显示层面的格式，不是单元格本身的Interior属性，得用DisplayFormat.Color来获取才行。下面给你一套完整的解决方案，包含代码、绑定按钮的步骤，正好匹配你的需求：

完整VBA代码 #

打开Excel的VBA编辑器（按Alt+F11），插入一个新模块，粘贴以下代码：

Sub CopyConditionalRedRows()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim currentMonthCol As Integer, lastRow As Integer, lastCol As Integer
    Dim i As Integer
    Dim targetColor As Long
    
    ' 设置目标红色：这里用RGB(255,0,0)代表标准红色，可根据你实际条件格式的红色调整
    targetColor = RGB(255, 0, 0)
    
    ' 定义源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 清空Sheet2中除表头外的旧数据（假设表头在第1行）
    wsTarget.Range("A2:" & wsTarget.Cells(wsTarget.Rows.Count, wsTarget.Columns.Count).Address).ClearContents
    
    ' 定位当前月份对应的列（表头行是第1行）
    currentMonthCol = 0
    lastCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column
    For i = 1 To lastCol
        ' 自动匹配系统当前月份的英文名称，若表头是中文（如"五月"），改成MonthName(Month(Date), True)
        If wsSource.Cells(1, i).Value = MonthName(Month(Date)) Then
            currentMonthCol = i
            Exit For
        End If
    Next i
    
    ' 未找到当前月份列时提示并退出
    If currentMonthCol = 0 Then
        MsgBox "未找到当前月份对应的列！", vbExclamation
        Exit Sub
    End If
    
    ' 获取源表最后一行数据
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    ' 遍历数据行（从第2行开始，第1行是表头）
    For i = 2 To lastRow
        ' 检查当前月份列的单元格是否为条件格式设置的红色
        If wsSource.Cells(i, currentMonthCol).DisplayFormat.Color = targetColor Then
            ' 复制整行到Sheet2的下一行
            wsSource.Rows(i).Copy Destination:=wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    Next i
    
    ' 同步表头到Sheet2（确保表头始终一致）
    wsSource.Rows(1).Copy Destination:=wsTarget.Rows(1)
    
    MsgBox "操作完成！已将符合条件的行复制到Sheet2。", vbInformation
End Sub

关键代码说明 #

• DisplayFormat.Color：这是解决你问题的核心！它能读取单元格当前显示的格式颜色（包括条件格式设置的），而普通的Interior.Color只能读取手动填充的颜色。
• 自动定位月份列：用MonthName(Month(Date))自动获取系统当前的月份名称，适配你表头的英文月份；如果是中文表头，改成MonthName(Month(Date), True)即可生成中文月份名。
• 清空旧数据：代码会清空Sheet2第2行及以后的所有内容，保留表头，彻底避免上月数据残留。

绑定按钮步骤 #

1. 点击Excel顶部的开发工具选项卡（如果没显示，右键菜单栏→自定义功能区→勾选「开发工具」）。
2. 点击插入→选择按钮（窗体控件），在工作表上拖动绘制一个按钮。
3. 在弹出的「指定宏」窗口中，选择刚才创建的CopyConditionalRedRows宏，点击确定。
4. 右键按钮→编辑文字，改成你想要的名称（比如「复制红色行到Sheet2」），以后点击这个按钮就能一键执行宏了。

示例表格参考 #

根据你提供的示例，整理成清晰的表格：

比如iron的May单元格因未达到>=100的目标被条件格式标红，宏就会自动把iron这整行复制到Sheet2中。

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