excel如何删除A列中重复次数少于4次的数值？
求助：excel表格A列中有很多数字，其中有很多是重复的，我只想保留重复4次以上（包括4次）的数值，重复少于4次的要删除，如何实现？急！！如果有多列的话又是否可以一次性完...
求助：excel表格A列中有很多数字，其中有很多是重复的，我只想保留重复4次以上（包括4次）的数值，重复少于4次的要删除，如何实现？急！！
如果有多列的话又是否可以一次性完成？怎么没有高手愿意指点下的吗？ 展开
如果有多列的话又是否可以一次性完成？怎么没有高手愿意指点下的吗？ 展开
展开全部
在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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
假设数据在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结束,公式下拉至出现空白为止.
=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结束,公式下拉至出现空白为止.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用countif函数吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
