如何在Excel中查找同一列中相同值？

[tqqonline]

如：
AAA
BBB
BBB
CCC
DDD
DDD
DDD
EEE

结果：
BBB
BBB
DDD
DDD
DDD
用不用颜色标记。

[DeRoshia]

Private Sub CommandButton1_Click()
Dim strRangeE As String
Dim strRangeF As String
Dim index As Integer '列的范围
Dim indexi As Integer '列的范围
Dim indexj As Integer '列的范围
Dim strRV(101) As String

index = 1

For indexi = 1 To 10
strRangeE = "E" + CStr(indexi)
strRV(indexi) = Range(strRangeE).Value
Next

For indexi = 1 To 9
For indexj = indexi + 1 To 10
strRangeE = "E" + CStr(indexj)

If (Range(strRangeE).Value = strRV(indexi)) Then
strRangeF = "F" + CStr(index)
Range(strRangeF).Value = strRV(indexi)
a = (index Mod 5) + 3

Selection.Font.ColorIndex = a '颜色
index = index + 1
Exit For
End If
Next
Next

End Sub
给你现写的，已调试，颜色通过a可随意改变