如何用Excel宏识别无对应绿色行的红色代码行？

完全可以通过VBA宏实现这个需求，以下是针对性的代码及说明：

宏代码 #

Sub FindUnmatchedRedRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim redCode As String
    Dim hasMatch As Boolean
    Dim matchColumn As Integer '假设代码内容在第2列，可根据实际调整
    
    '设置目标工作表，这里用当前激活的工作表，也可改为指定表名如Sheets("对比表")
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    matchColumn = 2 '根据你的表格实际代码所在列修改
    
    '遍历所有行，查找红色填充的行
    For i = 1 To lastRow
        '判断行是否为红色填充（这里用标准红色RGB(255,0,0)，可根据实际颜色调整）
        If ws.Rows(i).Interior.Color = RGB(255, 0, 0) Then
            redCode = ws.Cells(i, matchColumn).Value
            hasMatch = False
            
            '遍历所有行查找对应绿色行的相同代码
            For j = 1 To lastRow
                If ws.Rows(j).Interior.Color = RGB(0, 255, 0) And ws.Cells(j, matchColumn).Value = redCode Then
                    hasMatch = True
                    Exit For
                End If
            Next j
            
            '如果没有找到对应绿色行，标记该行（这里用黄色填充，也可改为高亮、标注等）
            If Not hasMatch Then
                ws.Rows(i).Interior.Color = RGB(255, 255, 0)
                '也可在后面列添加备注，比如：ws.Cells(i, matchColumn + 1).Value = "无对应添加记录"
            End If
        End If
    Next i
    
    MsgBox "识别完成，无对应绿色行的红色记录已标记！"
End Sub

代码说明 #

• 颜色匹配：代码里用RGB(255,0,0)代表红色、RGB(0,255,0)代表绿色，如果你的表格用的是其他红色/绿色色调，可通过Excel的"取色器"获取对应RGB值替换。
• 匹配列设置：matchColumn = 2代表用第2列（B列）的内容作为代码匹配依据，根据你的表格实际代码所在列修改数字即可。
• 标记方式：默认用黄色填充无匹配的红色行，你也可以改成在指定列添加文字备注，或者设置字体颜色等，按需调整。

使用注意事项 #

1. 先备份你的Excel文件，避免宏操作失误导致数据丢失。
2. 启用宏：打开文件时需启用宏功能，或者将文件保存为.xlsm格式（支持宏的Excel文件）。
3. 测试：先在小范围数据上测试宏的效果，确认匹配逻辑和颜色识别正确后再处理大型表格。

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