Удалить дублирующиеся строки, кроме строк с нулевыми и нулевыми значениями

Question

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

Я хочу удалить дублирующиеся строки, за исключением тех строк с нулевыми или нулевыми значениями. Я получаю ошибку «Несовпадение типов» каждый раз, когда запускаю приведенный выше код. Заранее спасибо. Мой скриншот

Answer 1

Вы можете использовать этот простой код для удаления дубликатов, кроме строк с нулем и нулем.

Отредактировано:

Проверьте снимок экрана:

NB Строки КРАСНЫЕ - это дубликаты, ноль (пустой) и ноль заполнены цветом.

Private Sub CommandButton1_Click()

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

End Sub

NB

• Вы можете изменить диапазон данных в соответствии с вашими потребностями.
• Если вы чувствуете, что можете использовать этот метод также с событием Worksheet_Open.