Excel VBA实现单元格颜色匹配并返回指定文本的代码需求

条件格式确实没法直接识别手动设置的单元格填充色，用VBA可以精准处理这个需求，以下是具体实现：

核心代码 #

Sub MatchGreenCells()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 指定操作的工作表，可替换成你的表名比如Sheet1
    Set ws = ActiveSheet
    
    ' 遍历A1到A30的每一行
    For i = 1 To 30
        ' 检查A列和B列对应单元格是否都是标准绿色（RGB(0,255,0)）
        If ws.Cells(i, 1).Interior.Color = RGB(0, 255, 0) And ws.Cells(i, 2).Interior.Color = RGB(0, 255, 0) Then
            ws.Cells(i, 4).Value = "green"
        Else
            ' 不匹配则清空D列内容，按需修改
            ws.Cells(i, 4).Value = ""
        End If
    Next i
End Sub

关键说明 #

• 适配自定义绿色：如果你的绿色不是标准亮绿，先选中该颜色的单元格，按Alt+F11打开VBA编辑器，按Ctrl+G调出立即窗口，输入?ActiveCell.Interior.Color回车，得到的数值替换代码里的RGB(0,255,0)即可（比如改成ws.Cells(i,1).Interior.Color = 65280）。
• 指定工作表：如果不需要操作当前激活的表，把ActiveSheet改成ThisWorkbook.Worksheets("你的工作表名称")。
• 执行方式：按Alt+F11插入模块粘贴代码后，按F5运行，或者回到Excel通过「开发工具」→「宏」选择MatchGreenCells执行。

内容的提问来源于stack exchange，提问作者Mark Lawrence Jose