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