一、excel数据去重的方法
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，把文件发我邮箱好了，我帮你看看
如有需要发百度消息
二、excel按条件去重
最好别放在下方，便于添加，如图，F2输入：
=INDEX(B:B,SMALL(IF(MATCH($B$2:$B$100&"",$B$2:$B$100&"",0)=ROW($1:$99),ROW($2:$100),4^8),ROW(1:1)))&""，数组公式，即同时按住Ctrl+Shift+Enter三键结束公式编辑，会自动生成一对｛｝，下拉。
E2输入：=IF(F2="","",INDEX(A:A,MATCH(F2,B:B,0)))，下拉填充。
G2输入：=IF(F2="","",VLOOKUP(F2,B:C,2,0))，下拉填充。
