Excel VBA宏故障：跨表列比对仅首行生效及条件着色失效

问题1：两列比对仅首行生效，后续行未更新 #

原代码问题分析 #

• 错误操作Range对象：使用For Each i In Range循环后，执行i = i + 1，但i是Range对象，不能直接做数值运算，导致循环逻辑混乱，仅首行执行后就终止。
• 嵌套循环逻辑错误：外层遍历sh2的B列，内层遍历sh1的E列，每个sh1的E列单元格会被多次覆盖颜色，最终仅保留最后一次比对结果，无法正确判断是否存在匹配值。

修正后的代码（实现：sh1的E列单元格若在sh2的B列存在则标绿色，否则标黄色） #

Sub Abc()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim cell As Range, matchFound As Boolean
    
    ' 明确指定工作表对象
    Set sh1 = ThisWorkbook.Sheets("sheet1")
    Set sh2 = ThisWorkbook.Sheets("sheet2")
    
    ' 遍历sh1的目标列
    For Each cell In sh1.Range("E2:E374")
        matchFound = False
        ' 检查sh2的目标列是否有匹配值
        For Each matchCell In sh2.Range("B2:B546")
            If cell.Value = matchCell.Value Then
                matchFound = True
                Exit For ' 找到匹配立即终止内层循环
            End If
        Next matchCell
        
        ' 根据匹配结果设置单元格颜色
        If matchFound Then
            cell.Interior.ColorIndex = 4 ' 绿色
        Else
            cell.Interior.ColorIndex = 6 ' 黄色
        End If
    Next cell
End Sub

问题2：区分大小写的条件着色未达预期 #

原代码问题分析 #

1. 变量未定义：ColDvalueSh2未赋值就直接使用，导致myRange2和循环上限错误，宏执行时会报错或遍历空范围。
2. CountIf不支持区分大小写：Excel的CountIf函数默认不区分大小写，无法满足需求中的精确匹配要求。
3. 逻辑偏差：原条件仅判断sh1的G值是否在sh2的D列存在，未关联“同一文档ID（E列/B列）”的对应关系，不符合“E列匹配但G列不匹配”的核心需求。

修正后的代码（实现：区分大小写匹配，当sh1某行E列值在sh2的B列存在，且对应sh2行的D列值与sh1该行G列值不匹配时，标记sh1该行E、F、G为橙色） #

Sub checkOrangeevalues()
    RemoveCellFillColor ' 假设该宏已实现清除单元格填充色功能
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim lastRowSh1 As Long, lastRowSh2 As Long
    Dim i As Long, j As Long
    Dim docId As String, gValue As String
    Dim matchDocIdFound As Boolean, matchGValueFound As Boolean
    
    Set sh1 = ThisWorkbook.Sheets("sheet1")
    Set sh2 = ThisWorkbook.Sheets("sheet2")
    
    ' 获取两表的有效数据行号
    lastRowSh1 = sh1.Range("E" & Rows.Count).End(xlUp).Row
    lastRowSh2 = sh2.Range("B" & Rows.Count).End(xlUp).Row
    
    For i = 2 To lastRowSh1
        docId = sh1.Cells(i, 5).Value
        gValue = sh1.Cells(i, 7).Value
        matchDocIdFound = False
        matchGValueFound = False
        
        ' 遍历sh2查找匹配的文档ID（区分大小写）
        For j = 2 To lastRowSh2
            ' vbBinaryCompare参数实现区分大小写字符串比较
            If StrComp(sh2.Cells(j, 2).Value, docId, vbBinaryCompare) = 0 Then
                matchDocIdFound = True
                ' 检查对应D列值是否匹配（区分大小写）
                If StrComp(sh2.Cells(j, 4).Value, gValue, vbBinaryCompare) = 0 Then
                    matchGValueFound = True
                    Exit For ' 找到匹配立即终止内层循环
                End If
            End If
        Next j
        
        ' 满足条件：文档ID存在，但对应G值不匹配
        If matchDocIdFound And Not matchGValueFound Then
            sh1.Range(sh1.Cells(i, 5), sh1.Cells(i, 7)).Interior.ColorIndex = 46 ' 橙色
        End If
    Next i
End Sub

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