Como Eliminar Valores A Uma Tabela De Valores

[Guest Hugo Lima]

Viva,

Não sei se isto é possível fazer-se em Excel ou se será necessário realizar em Visual Basic. De qualquer das formas nada entendo de VB.

Eu tenho uma coluna A com centenas de endereços de e-mail, cada celula tem um. Numa outra coluna B, tenho também varios endereços de e-mail, um por celula.

O que eu quero:

Quero executar uma acção que faça com que os valores da coluna B sejam pesquiados na coluna A e em caso de existir algum identico, o da coluna A seja eliminado.

Como posso eu fazer isto?

Agradeço toda a ajuda, muito obrigado.

[Graymalkin]

O que você quer pode ser feito assim:

Sub T()
    Dim c As Range
    Dim j As Range
    
    For Each c In Range("B:B").Cells
        Set j = Range("A:A").Find(c.Value)
        
        If Not j Is Nothing Then
            j.Delete xlUp
        End If
        If c.Value = "" Then Exit For
    Next c
End Sub

Cole isso em no editor do VBA (ALT+F11) na planilha desejada (Plan1, provavelmente) e execute pressionando F5 com o cursor dentro da rotina.

Abraços,

Graymalkin