ゼロ値とNULL値を持つ行を除く重複行を削除

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またはNULL値を持つ行以外の重複行の値を削除したい。上記のコードを実行するたびに、 'Type Mismatch'エラーが発生します。前もって感謝します。 私のスクリーンショット

この単純なコードを使用して、ゼロとNullを持つ行を除くDuplicateを削除できます。

編集：

スクリーンショットを確認してください。

N.B. 行が赤の場合は重複、Null（空白）＆amp; Aゼロは色でいっぱいです。

Private Sub CommandButton1_Click()

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

End Sub

N.B.

• 必要に応じてデータ範囲を変更できます。
• あなたがWorksheet_Openイベントでもこのメソッドを使うことができると感じるならば。