excel如何删除A列中重复次数少于4次的数值？

求助：excel表格A列中有很多数字，其中有很多是重复的，我只想保留重复4次以上（包括4次）的数值，重复少于4次的要删除，如何实现？急！！
如果有多列的话又是否可以一次性完成？怎么没有高手愿意指点下的吗？

假设数据在A1:A100,实际情况自己稍作修改:

=IF(ROW()>SUM(1*(COUNTIF($A$1:$A$100,$A$1:$A$100)>3)),"",INDEX(A:A,SMALL(IF(COUNTIF($A$1:$A$100,$A$1:$A$100)>3,ROW($A$1:$A$100),4^8),ROW(1:1))))

输入完公式后按CTRL+SHIFT+ENTER结束,公式下拉至出现空白为止.

在B1输入=IF(COUNTIF($A:$A,A1)<=3,"删除"," 保留")，然后按B列筛选，删除“删除”。

使用VBA，代码如下：

Sub Del_Less4()
Dim i, j As Single
Dim Times As Single
For j = 1 To Cells(10000, 1).End(xlUp).Row
For i = 1 To Cells(10000, 1).End(xlUp).Row
If Application.WorksheetFunction.CountIf _
(Range(Cells(1, 1), Cells(Cells(10000, 1).End(xlUp).Row, 1)), Cells(i, 1)) < 4 Then
Cells(i, 1).Delete Shift:=xlUp
End If

Next
Next

End Sub