将范围内的值（例如 D 列）与旁边范围内的值（例如 C 列）进行比较

Question

我正在尝试将范围内的值（例如 D 列）与旁边范围内的值（例如 C 列）进行比较，它以红色突出显示具有不同值的列，然后向右移动以比较下一个值范围在（即 E 列）和 D 列旁边，依此类推，直到出现空白的列范围。

这些是我的代码。应用程序定义的错误。

Sub Macro1()
'
' Macro1 Macro
'

'
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    Do Until IsEmpty(ActiveCell.Offset(, 1))
        Selection.FormatConditions.Add Type:=xlExpression, Formulal:=ActiveCell.Select <> ActiveCell.Offset(0, -1).Value
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0

    End With
    Loop
    ActiveCell.Offset(0, 1).Select
End Sub

Answer 1

试试这个 - 您需要为 CF 规则构建一个公式，使用要比较的两个范围中第一个单元格的 Address() 属性。当您应用规则时，公式将针对每一行进行调整，因此无需逐个单元格。

Sub Macro1()
    Dim rngCF As Range, addr1, addr2, cf As FormatCondition
    
    Set rngCF = Range(ActiveCell, ActiveCell.End(xlDown))
    addr1 = rngCF.Cells(1).Address(False, False)
    addr2 = rngCF.Offset(0, -1).Cells(1).Address(False, False) 'one column to left
    
    Set cf = rngCF.FormatConditions.Add(Type:=xlExpression, _
                        Formula1:="=" & addr1 & "<>" & addr2)
    With cf
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
    End With
End Sub