时间戳

首页 > 解决方案 > 比较两列，如果两列都匹配，则应突出显示

excel - 比较两列，如果两列都匹配，则应突出显示

问题描述

我有两列 J 和 L。

如果 J 列的值与 L 列的相应值匹配，则两个单元格都应以红色突出显示。

我是这个 Excel 的新手。我无法开发此宏。

我尝试了下面的代码，但如果匹配，它会突出显示 J、K 和 L 列我只想突出显示 J 和 K 列，并且这个宏应该从 J11 和 L11 开始检查

Sub test()    
    Dim LastRow As Long, i As Long
    Dim arr As Variant

    With ThisWorkbook.Worksheets("Sheet1")    
        LastRow = .Cells(.Rows.Count, "J").End(xlUp).Row    
        arr = .Range("J2" & ":L" & LastRow)

        For i = LBound(arr) To UBound(arr)    
            If arr(i, 1) = arr(i, 3) Then    
                .Range("J" & i + 1 & ":L" & i + 1).Interior.Color = vbRed    
            End If    
        Next i    
    End With    
End Sub

标签： excelvba

解决方案

检查这是否是你想要的

Sub test()
    Dim LastRow As Long, i As Long
    Dim arr As Variant

    With ThisWorkbook.Worksheets("Sheet1")
        LastRow = .Cells(.Rows.Count, "J").End(xlUp).Row
        arr = .Range("J11" & ":L" & LastRow)

        For i = LBound(arr) To UBound(arr)
            If arr(i, 1) = arr(i, 3) Then
                .Range("J" & i + 10 & ":J" & i + 10).Interior.Color = vbRed
                .Range("L" & i + 10 & ":L" & i + 10).Interior.Color = vbRed
            End If
        Next i
    End With
End Sub

它从第 11 行开始检查

推荐阅读