excel删除重复数字数据

我已经叫你Q了
QQ上一步一步的教你~~
希望你早日学会

1.增加一个新列A，并且A1、A2、A3...依次填充1、2、3...
2.原来的数据列为B、C、D... 所谓的重复项即；Cx=Cy；Dx=Dy ...（ x y为两个不同的行,B为序数列）
依次按C列、D列...进行排序，则重复项则全部集中到页面上半部或下半部分（由从大到小还是由小到大的排序而定）。将其全部删除（也可以用填充法在其后部单元格中作上标记，如填充“重复”）。
3.然后再按A列排序，下一步再删除A列。这时可能会有许多空的数据行，最后再按A列排序一下即可

Private Sub CommandButton1_Click()
Dim arr(), x%, a%, i%, temp(), ar() As String, r%
a = Len(Cells(1, 1))
On Error Resume Next
For x = 1 To a
ReDim Preserve temp(1 To a)
temp(x) = Application.Evaluate("=mid(a1," & x & ",1)")
Next x
r = 0
b = UBound(temp)
For i = 0 To b
ar = Filter(arr, temp(i))
If UBound(ar) = -1 Then
r = r + 1
ReDim Preserve arr(1 To r)
arr(r) = temp(i)
End If
Next i
Range("a2") = Join(arr, "")
End Sub

C1输入 =VLOOKUP