为什么两个函数结果不一致_activesheet.range两列反了-CSDN博客

本文链接：https://blog.csdn.net/dongzhiquan/article/details/5626319

Option Explicit
Sub Macro2()

    Dim i As Integer
    For i = 5 To 219
        With ActiveSheet.Range("C" & CStr(i))
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(($C$" & CStr(i) & "=$E$" & CStr(i) & "),($E$" & CStr(i) & "=$F$" & CStr(i) & "),($F$" & CStr(i) & "=$G$" & CStr(i) & "))"
            .FormatConditions(1).Interior.ColorIndex = 15
        End With
        With ActiveSheet.Range("E" & CStr(i))
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(($C$" & CStr(i) & "=$E$" & CStr(i) & "),($E$" & CStr(i) & "=$F$" & CStr(i) & "),($F$" & CStr(i) & "=$G$" & CStr(i) & "))"
            .FormatConditions(1).Interior.ColorIndex = 15
        End With
        With ActiveSheet.Range("F" & CStr(i))
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(($C$" & CStr(i) & "=$E$" & CStr(i) & "),($E$" & CStr(i) & "=$F$" & CStr(i) & "),($F$" & CStr(i) & "=$G$" & CStr(i) & "))"
            .FormatConditions(1).Interior.ColorIndex = 15
        End With
        With ActiveSheet.Range("G" & CStr(i))
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(($C$" & CStr(i) & "=$E$" & CStr(i) & "),($E$" & CStr(i) & "=$F$" & CStr(i) & "),($F$" & CStr(i) & "=$G$" & CStr(i) & "))"
            .FormatConditions(1).Interior.ColorIndex = 15
        End With
    Next i
End Sub

Option Explicit
Sub Macro3()

    Dim i As Integer
    For i = 5 To 219
        With ActiveSheet.Range("C" & CStr(i))
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND((C" & CStr(i) & "=E" & CStr(i) & "),(E" & CStr(i) & "=F" & CStr(i) & "),(F" & CStr(i) & "=G" & CStr(i) & "))"
            .FormatConditions(1).Interior.ColorIndex = 15
        End With
        With ActiveSheet.Range("E" & CStr(i))
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND((C" & CStr(i) & "=E" & CStr(i) & "),(E" & CStr(i) & "=F" & CStr(i) & "),(F" & CStr(i) & "=G" & CStr(i) & "))"
            .FormatConditions(1).Interior.ColorIndex = 15
        End With
        With ActiveSheet.Range("F" & CStr(i))
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND((C" & CStr(i) & "=E" & CStr(i) & "),(E" & CStr(i) & "=F" & CStr(i) & "),(F" & CStr(i) & "=G" & CStr(i) & "))"
            .FormatConditions(1).Interior.ColorIndex = 15
        End With
        With ActiveSheet.Range("G" & CStr(i))
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND((C" & CStr(i) & "=E" & CStr(i) & "),(E" & CStr(i) & "=F" & CStr(i) & "),(F" & CStr(i) & "=G" & CStr(i) & "))"
            .FormatConditions(1).Interior.ColorIndex = 15
        End With
    Next i
End Sub