Ich habe zwei Spalten in einem Arbeitsblatt von Titel Name List 1und Name List 2.
Ich möchte diese beiden Spalten vergleichen und rot hervorheben, welcher Name nicht vorhanden ist, Name List 1aber in Name list 2und umgekehrt. Wenn Namen in beiden Spalten gemeinsam sind, lassen Sie sie weiß.
Der Bereich der Spalten beider Listen ist nicht gleich.
Sub indicators()
lastrowlist1 = Range("C1000000").End(xlUp).Row
lastrowlist2 = Range("K1000000").End(xlUp).Row
For i = 5 To lastrowlist1
Range("C" & i).Value = findval
For j = 5 To lastrowlist2
If Range("K" & j).Value <> Range("C" & i).Value Then
Range("K" & j).Interior.ColorIndex = 4
Range("C" & i).Interior.ColorIndex = 4
Else
Range("K" & j).Interior.ColorIndex = 2
Range("C" & i).Interior.ColorIndex = 2
End If
Next j
Next i
End Sub
Mit VBA Spalten A, B.
Sub duplicates()
Dim i As Integer
Dim var As Variant
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
var = Application.Match(Cells(i, 1).Value, Columns(2), 0)
If Not IsError(var) Then
Cells(i, "A").Interior.Color = 255
End If
Next i
End Sub
Dieser Artikel stammt aus dem Internet. Bitte geben Sie beim Nachdruck die Quelle an.
Bei Verstößen wenden Sie sich bitte [email protected] Löschen.
Lass mich ein paar Worte sagen