在EXCEL中如何一次性删除所有内容相同的行?

1. 选择要排序的行或记录上方的列标题。
2. 在数据菜单中，指向筛选，然后单击高级筛选。如果收到如下提示，请单击确定。
未检测到任何标题。是否将选定区域的首行用作标题行？
3. 在方式下，单击“将筛选结果复制到其他位置”。
4. 单击以选中“选择不重复的记录”复选框。
5. 在“列表区域”框中，键入或选择一个记录范围（如 A3:H10）。
6. 在“条件区域”框中，键入或选择相同的记录范围（即 A3:H10）
7. 在“复制到”框中，键入用于存放信息的第一个单元格的地址，或直接选择该单元格。请确保该区域有足够的空间，以免覆盖已存在的数据。
注意：只能在活动的工作表中执行此操作。
8. 单击确定。

移动鼠标指到你想删除的行列起始行，按下鼠标左键，往下移动到想删除的行为止。右击，单击“删除”。

删除指定列,指定值所对应的行.
Sub delete()
A = InputBox("Inter your column:", "wen xin ti shi ", "A")
B = InputBox("Inter your value:", "wen xin ti shi ", "")
K = 0
For i = 1 To 65535
On Error GoTo send:
addr = Trim(UCase(A)) + Trim(Str(i))
If Trim(Range(addr).Value) = Trim(B) Or Range(addr).Value = Val(B) Then
Rows(i).Select
Selection.delete Shift:=xlUp
i = i - 1
End If
If Len(Range(addr).Value) <= 0 Then
K = K + 1
End If
If K >= 5 Then
Exit For
End If
Next
send:
End Sub

先排序后删除