Sub 删除重复行两者情况都有()
Dim i As Integer, x As Integer, y As Integer, z As String
Do
z = InputBox("请选择所要删除重复行的列")
If z = "" Then
If MsgBox("确定退出?", vbYesNoCancel + vbExclamation, "询问") = vbYes Then Exit Sub
End If
Loop While z = ""
'执行删除操作
End Sub
修改过的。