vba查重复数据

你这样只能遍历整行才行，但是有个问题，比如：第1行为：1 2 3 4 1 2 3 4 ，像这样的数据，1234都重复了一遍，那整行都是蓝色的，是否重复数据只有一个？如果多个重复数据，那做了和没做没啥区别，只是知道它重复了。代码如下：Sub a() '被重复和重复的都筛选Dim i As LongDim j As LongDim k As LongFor i = 3 To Range("A3")End(xlDown)Row For j = 1 To Cells(i, 1)End(xlToRight)Column For k = 1 To Cells(i, 1)End(xlToRight)Column If j = k Then GoTo l1 End If If Cells(i, j) = Cells(i, k) Then Cells(i, j)IColorIndex = 5 End Ifl1: Next k Next jNext iEnd SubSub b() '只筛选被重复的，不筛选重复的Dim i As LongDim j As LongDim k As LongFor i = 3 To Range("A3")End(xlDown)Row For j = 1 To Cells(i, 1)End(xlToRight)Column For k = j + 1 To Cells(i, 1)End(xlToRight)Column If Cells(i, j) = Cells(i, k) Then Cells(i, j)IColorIndex = 5 End If Next k Next jNext iEnd Sub这里做了两个，一个只筛选一半，一个全部筛选，你试试，有疑问再追问。望采纳，谢谢。