怎样删除execl中重复的行 在一列中出现重复数据 Sub deleterepeat() ' ' deleterepeat 宏表 ' Administrator记录的宏2003-11-11 ' Dim x As Long Dim a As String Dim b As String Dim c As String Dim d As String x = 3 While ActiveSheet.Cells(x, 4) <> "" Range("A1").Select a = ActiveSheet.Cells(x, 1) b = ActiveSheet.Cells(x - 1, 1) c = ActiveSheet.Cells(x, 2) d = ActiveSheet.Cells(x - 1, 2) If a = b And c = d Then ActiveSheet.Cells(x - 1, 1).Select Selection.EntireRow.Delete x = x - 1 End If x = x + 1 Wend ' End Sub 高级筛选,勾选不重复值