新手小白在线救助，求好心人指点！

把B列粘到A列下面，“开始” --“条件格式”--“突出显示单元格规则”--“重复值”，没加过的就是没标色的，这样更快

给你代码吧
Sub 复制()
'
' 复制 宏
'
Dim QQ1() As String
Dim QQ2() As String
Dim i As Integer, y As Integer, x As Integer, w As Integer
w = 1
y = 1
i = 1
x = 1
Do Until Cells(i, 1) = ""
i = i + 1
Loop
i = i - 1
Do Until Cells(y, 2) = ""
y = y + 1
Loop
y = y - 1
ReDim QQ1(1 To i) As String
ReDim QQ2(1 To y) As String
For x = 1 To i
QQ1(x) = Trim(Cells(x, 1))
Next x
MsgBox QQ1(2)
For w = 1 To y
QQ2(w) = Trim(Cells(w, 2))
Next w
Dim z As Integer, j As Integer
For z = 1 To i
For j = 1 To y
If QQ1(z) = QQ2(j) Then
Cells(z, 1).Interior.ColorIndex = 3 '如果已经加过就标红色
End If
Next j
Next z
End Sub
执行完之后 可以在第一列QQ那列筛选 不带颜色的