☰

删除重复行，除零值和空值的行外

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
删除重复行，除零值和空值的行外 
Sub Workbook_Open()
Dim value As Integer
value = Range("B3:N1955").value
If IsEmpty(value) Or value > 0 Then
Range("B3:N1955").RemoveDuplicates Columns:=13, Header:=xlsm
Else
End If
End Sub

我想删除重复的行值，但那些值为 0 或空的行除外。每次运行上述代码时，我都会收到“类型不匹配”错误。提前致谢。 我的截图

答案1

您可以使用这个简单的代码来删除除零和空行之外的重复行。

編輯：

检查屏幕截图：

在此处输入图片描述

注意： 行为红色的是重复项，Null（空白）和零用颜色填充。

Private Sub CommandButton1_Click()

ActiveSheet.Range("A1:D20").RemoveDuplicates Columns:=4, Header:=xlNo

End Sub

注意：

  • 您可以根据需要更改数据范围。
  • 如果您觉得您也可以将此方法与 Worksheet_Open 事件一起使用。

相关内容