Excel VBA跨列对比修订号时匹配异常的问题求助

问题根源 #

原代码逻辑完全偏离需求：遍历EMP列的每个单元格时，每次都会递增SOPsRow，导致EMP的E列第1行对应SOPs的H2、第2行对应H3……第400行对应H401；而EMP的H列第1行直接对应H402，完全不符合「整列对应SOPs某一行」的规则。这就是为什么E列中部分含B的行被标黄——这些行对应的是SOPs里H2之后的非B行，没被标黄的行恰好对应到了SOPs里同为B的行。

修正后的代码 #

Sub CompareRevisionsAndHighlight()
    Dim SOPsSheet As Worksheet
    Dim EMPSheet As Worksheet
    Dim SOPsRow As Long
    Dim EMPColumn As Range
    Dim EMPCell As Range
    Dim ColumnIndex As Variant
    Dim targetSOPRevision As String ' 存储当前列对应的目标修订号

    ' 绑定目标工作表
    Set SOPsSheet = ThisWorkbook.Sheets("SOPs")
    Set EMPSheet = ThisWorkbook.Sheets("EMP")

    ' 初始化SOPs起始行（对应EMP第一列E的目标行H2）
    SOPsRow = 2

    ' EMP目标列数组：E(5), H(8), K(11), N(14)...
    Dim ColumnOffsets As Variant
    ColumnOffsets = Array(5, 8, 11, 14) ' 可根据实际需求扩展

    ' 遍历每个EMP目标列
    For Each ColumnIndex In ColumnOffsets
        ' 读取当前列对应的SOPs修订号（整列只读取一次）
        targetSOPRevision = SOPsSheet.Cells(SOPsRow, "H").Value
        
        ' 定位当前EMP列的400行数据范围
        Set EMPColumn = EMPSheet.Cells(1, ColumnIndex).Resize(400, 1)
        
        ' 遍历当前列的每个单元格
        For Each EMPCell In EMPColumn
            ' 非空且与目标修订号不匹配时，标记黄色背景
            If Not IsEmpty(EMPCell.Value) And EMPCell.Value <> targetSOPRevision Then
                EMPCell.Interior.Color = RGB(255, 255, 0)
            End If
        Next EMPCell
        
        ' 切换到SOPs的下一行（对应下一个EMP列的目标修订号）
        SOPsRow = SOPsRow + 1
    Next ColumnIndex
End Sub

关键修正点 #

• 调整修订号读取时机：将targetSOPRevision的取值移到列循环内、单元格循环外，每个EMP列仅读取一次对应SOPs行的修订号，避免重复读取和行号混乱。
• 修正行号递增逻辑：只有在处理完一整列EMP数据后，才递增SOPsRow，确保下一个EMP列对应SOPs的下一行数据。
• 新增变量优化逻辑：用targetSOPRevision存储目标修订号，既提升代码可读性，也减少工作表单元格的重复访问（优化运行效率）。

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