Wie färbe ich eine Zelle, wenn sich der Wert von der obigen Zelle unterscheidet?

Ich habe eine Reihe von Zellen, und ich möchte, dass die gesamte Reihe eingefärbt wird, wenn eine Zelle in einer bestimmten Spalte einen anderen Wert aufweist als die darüber liegende Zelle. z.B

      +
a b c d e
x y z d k
b d s d 2
a a a a f    < color this whole row >
g j k a q
p o i b d    < color this whole row >
      +

Im obigen Beispiel ist die entsprechende Spalte mit '+' markiert.

Möglicherweise können Sie die bedingte Formatierung verwenden oder dieses kurze VBA-Makro ausprobieren:

Sub ColorMeRed()
    Dim i As Long, N As Long

    N = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To N
        If Cells(i - 1, 4).Value <> Cells(i, 4).Value Then
            Range(Cells(i, 1), Cells(i, 5)).Interior.Color = vbRed
        End If
    Next i

End Sub

Vor:

und danach: