建议你把三列数据都弄到一列里,再用数据/筛选/高级筛选来选 取不重复值后取得你想要的结果
excel 2003版只有6万多行,三列也只能放196608个数据。
建议用2007版,将数据复制到同一列,再用高级筛选选择不重复的记录。
Sub 不重复邮箱()
Dim rng As Range
Dim st As String
Dim i As Integer
i = 2
Range("D2:D60000").Clear
For Each rng In Range("A2:C60000")
If st Like "*" & rng.Text & "*" Then
ElseIf rng.Text <> "" Then
Cells(i, 4) = rng.Text
i = i + 1
st = st & ";" & rng.Text
End If
Next
End Sub