求救，有AB两列数据，如果A列中单元格的数据在B列中也有，将A列对应的单元格底纹改色

FNO

求救，有AB两列数据，如果A列中单元格的数据在B列中也有，就将A列对应的单元格底纹改色，求助大神，谢谢

JOJO_killua

Sub test()
Dim rngA As Range
Dim rngB As Range
For Each rngA In Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    For Each rngB In Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row)
        If rngA = rngB And rngA <> "" Then
            rngA.Interior.ColorIndex = 3
            GoTo labelNextA
        End If
    Next
labelNextA:
Next

End Sub


初学者，共同进步。

JOJO_killua

Sub test()
Dim rngA As Range
Dim rngB As Range
For Each rngA In Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    For Each rngB In Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row)
        If rngA = rngB And rngA <> "" Then
            rngA.Interior.ColorIndex = 3
            GoTo labelNextA
        End If
    Next
labelNextA:
Next
End Sub

共同进步

xgy一飞

Sub a()
Dim i As Integer, j As Integer
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  For j = 1 To Cells(Rows.Count, 2).End(xlUp).Row
  If Cells(i, 1) = Cells(j, 2) Then
  Cells(i, 1).Interior.Color = vbRed
  End If
  Next j
Next i
End Sub

FNO

JOJO_killua 发表于 2017-10-20 10:16
Sub test()
Dim rngA As Range
Dim rngB As Range

感谢大兄弟，确实起到想要的效果了，好棒啊，谢谢哈哈哈