UC知道excel数据去重的方法（函数，最好是宏的应用）
来源：百度知道 编辑：UC知道 时间：2024/05/02 14:03:04
A列 B列
a 203.148.191.124
b 203.148.191.124
b 203.148.191.124
c 203.155.200.77
c 203.155.200.77
d 203.155.200.77
要实现，当B列值相等时，将A列中的重复数据删除，最后的结果应为：
a 203.148.191.124
b 203.148.191.124
c 203.155.200.77
d 203.155.200.77
可能是由于我的问题不是太全，shuhua0715的回答不能解决，因为我后面还有几个“字段”（象时间），也有不重复的，但是我给出的是两列关键字段，高级筛选是每个字段都要判断的。
另外，qgrmdtj筛选的结果偏少，不知道是不是条件设置的问题。你用的语句太复杂，我看不太懂。你选出的结果到是不重，但是我看了一下实际结果，缺的太多了！要不把咱们QQ聊（2533620），请注明是qgrmdtj，谢谢
a 203.148.191.124
b 203.148.191.124
b 203.148.191.124
c 203.155.200.77
c 203.155.200.77
d 203.155.200.77
要实现，当B列值相等时，将A列中的重复数据删除，最后的结果应为：
a 203.148.191.124
b 203.148.191.124
c 203.155.200.77
d 203.155.200.77
可能是由于我的问题不是太全，shuhua0715的回答不能解决，因为我后面还有几个“字段”（象时间），也有不重复的，但是我给出的是两列关键字段，高级筛选是每个字段都要判断的。
另外，qgrmdtj筛选的结果偏少，不知道是不是条件设置的问题。你用的语句太复杂，我看不太懂。你选出的结果到是不重，但是我看了一下实际结果，缺的太多了！要不把咱们QQ聊（2533620），请注明是qgrmdtj，谢谢
Sub qgrmdtj()
Dim s
For s = Range("a65536").End(xlUp).Row To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("a1:a" & s), Cells(s, 1)) > 1 Then
Rows(s).Delete
End If
Next
End Sub
--------------------------------------------------
我是以你的数据的A列为筛选重复的标准，你的A列不是“a,b,b,c,c,d...”
像A列的第三个b是重复的，代码就会删除，保留唯一的b,.....
我不用QQ，把文件发我邮箱好了，我帮你看看
如有需要发百度消息
高级筛选，不显示重复记录，确定。复制，粘贴到新表即可。
（筛选前选中ab两列，筛选时不扩展选区。）