Delete Linhas duplicadas, exceto linhas com valores zero e nulo

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

Desejo excluir o valor de linhas duplicadas, exceto as linhas com valores 0 ou nulos. Eu continuo recebendo erro 'Tipo incompatível' toda vez que eu executar o código acima. Desde já, obrigado. My ScreenShot

    

Answer 1

Você pode usar este código simples, para excluir Duplicar, exceto linhas com zero e Nulo.

Editado:

Verifique a captura de tela:

N.B.AslinhassãoVERMELHASsãoduplicadas,Nula(embranco)&Zeropreenchidocomcor.

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

End Sub

N.B.

• Você pode alterar o intervalo de dados conforme sua necessidade.
• Se você acha que pode usar esse método com o evento Worksheet_Open também.