用 EXCEL 函数 删除重复数据

我的方法是:
1.插入新的一列,比如说是A列
2.在第一格敲入公式"=countif(a1,a:a)"
3.把公式拉下来到所有涉及的行
4.根据A列来升序排序
5.A列显示是1的,说明不重复
6.A列是2的,有2个是一样的,3有3个,以此类推
7.应为排过序了,所以上面1的就不用动了
8.在下面的2就删掉1行,3就删掉2行,以此类推

以上应该可以用VBA来解决,不过我没研究过

如果只会有一个重复的以下是能用的，有3个以上，或者不连续重复就不行了。
我也很想知道3个以上怎么能一次都给删除掉。有高手指教阿。

Dim i As Integer
For i = 1 To 13
If Cells(i, 1) = Cells(i + 1, 1) Then
Rows(i & ":" & i).Delete
End If
Next i