excel如何自动筛选相同客户?

2024-12-12 01:24:42

推荐回答（5个）

回答1：

做一个辅助列，比如客户资料在A列的从A2至A100，则在B2中输入：=COUNTIF(A2:A100,A2)，则没有重复的显示为1，重复的则显示为2或者3或者4等等，表明重复的次数。
或者在B2中输入：=IF(COUNTIF(A2:A100,A2)>1,"重复",1)，则没有重复的显示为1，重复的显示为“重复”
公式输入完毕，下拉复制即可。

回答2：

先选取表头的一行，再点“数据”---“筛选”，表头会在每格出现下拉箭头，点下拉箭头就会出现可先的客户名，如要让相同客户名在一块直接在下拉箭头里先排序即可

回答3：

选中那列，假设在A列，点条件格式，点使用公式设置格式，输入公式=countif(a:a,a1)>1,然后选择字体颜色比如红色，那么只要有重复的数据，这个数据就自动变为红色了

回答4：

选中第一行-数据-筛选-

回答5：

excel中假设在A列需要找到相同数值的单元格，在B1输入以下公式
=IF(COUNTIF($A$1:A1,A1)>1,"重复","0")。
然后往下拖，只要是重复，后面就会显示“重复”两个字，显示0的就是不重复，一目了然。
如果要删除重复的行，那么继续做完上面的以后，按下面的步骤：
1、选中B列复制，再依次点击编辑、选择性粘贴，选中数值，确定。
2、Ctrl+H替换窗口，把重复两个字替换为空（就是“替换为”那里什么也不输入），全部替换。
3、依旧选中B列，按F5，在跳出窗口的左下角点击定位条件，选择空值，确定。
4、依次点击编辑，删除，选择整行，确定。
用vba 删除重复的行。
Sub 删除重复行2()。
Dim rCell As Range, rRng As Range, dRng As Range
On Error Resume Next
Application.ScreenUpdating = False
Set rRng = Range("A1:A" & Range("A65536").End(xlUp).Row)
rRng.AdvancedFilter Action:=xlFilterInPlace, unique:=True
For Each rCell In rRng
If rCell.EntireRow.Hidden = True Then
If dRng Is Nothing Then
Set dRng = rCell.EntireRow
Else
Set dRng = Application.Union(dRng, rCell.EntireRow)
End If
End If
Next
If Not dRng Is Nothing Then dRng.Delete
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub