Boa tarde!!

Seja bem vindo!!

Esse local é para apresentar se!

Use a pesquisa do fórum!!

Sub AleVBA_11366()
    Dim i As Long
     
    Application.ScreenUpdating = False
    With Plan1
        For i = .Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
            If .Cells(i, "A").Value = "Mangoes" Then .Cells(i, "A").EntireRow.Delete
        Next i
    End With
    Application.ScreenUpdating = True
     
End Sub

Att

Boa tarde Leluir

Movi teu tópico para a sala VBA & Macros, pois neste local não pode postar dúvidas, pois é exclusivo para a apresentação dos novos usuários do fórum.

Por enquanto vou deixar mostrando o tópico nas duas salas.

O Alexandre postou uma macro para você tentar adaptar para o teu caso.

[]s

Boa tarde!!

A dica não fou útil?..poste seu arquivo modelo!!

Att

tenho uma planilha com nomes na coluna "A" e na "B" esta formula,=SE(CONT.SE($A$4:$A$1602;A2)>1;"Excluir A";"OK") , ela me mostra os dados iguais para excluir da coluna "A" quero excluir todos automaticamente com macro, botão, sem ficar procurando e excluir na mão obrigado.

Boa noite!!

Falta seu arquivo!!

Att

tenho uma planilha com nomes na coluna "A" e na "B" esta formula,=SE(CONT.SE($A$4:$A$1602;A2)>1;"Excluir A";"OK") , ela me mostra os dados iguais para excluir da coluna "A" quero excluir todos automaticamente com macro, botão, sem ficar procurando e excluir na mão obrigado.