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，把文件发我邮箱好了，我帮你看看

如有需要发百度消息

最好别放在下方，便于添加，如图，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))，下拉填充。