Procurando uma string na coluna do Excel e a célula correspondente movida para outra coluna

Question

Procurando ajuda.   Eu tenho dados na coluna A no Excel (2010) e seqüência de pesquisa na coluna B. No caso de uma célula na coluna A restringe a seqüência de pesquisa da coluna B, em seguida, precisará mover (ou copiar) o conteúdo da célula correspondente na coluna A C.   Obrigado

Coluna A
[email protected]
[email protected]
[email protected]

Coluna B - String de pesquisa
excel
superusuário

Coluna C (como esperado)
[email protected]
[email protected]

    

Answer 1

Acho que seria mais fácil usar o VBA instr

Desbaste, isso deve funcionar -

Sub Lokam()
Dim a As Range
Dim b As Range
For Each a In Range("A:A")
    If a = "" Then Exit Sub
    For Each b In Range("B:B")
        If b = "" Then GoTo yay:
            If InStr(a, b) > 0 Then
                a.Offset(, 2) = a
            End If

    Next
yay:
Next
End Sub