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

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

1 ответ1

0

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

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

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

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

Private Sub CommandButton1_Click()

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

End Sub

NB

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .