excel的高级筛选

来源：百度知道 编辑：UC知道 时间：2024/05/10 11:09:16
excel 没两行的内容都相同，需要删除掉多于的一行，由于行数很多……这个怎么解决？

由于不知道你的表格情况，请做以下操作前，做好备份，
否则如果格式不一样，不负责恢复数据。***

按ALT+F11， 插入 模块 输入以下代码
Sub mm()
Dim zz As Long
zz = [a65536].End(xlUp).Row
For t = zz To 1 Step -1
If Application.CountIf(Range("a1:a" & t), Range("a" & t)) > 1 Then
Rows(t).EntireRow.Delete
End If
Next

End Sub

按F5键

在高级筛选里可以加上条件。