Localizando palavras comuns de duas colunas e retornando valor

Question

Eu tenho duas colunas no excel e quero ver se há uma palavra comum entre as minhas células, por exemplo:

Cula A1: 76A08, 26A65, 22A26, 2A01, 12A05

Célula B1 Eu: 26A65, 22A26

Na célula C1, o resultado é: 26A65, 224A26

Tenho mais de 7000 linhas.

    

Answer 1

Este VBa fará isso

Lembre-se de fazer um backup do seu arquivo primeiro, por precaução. (Não há opção de desfazer no VBa)

Como você tem linhas em branco, mas sabe quantas linhas, você pode usar este código UNTESTED.

Option Explicit
Sub doTheThing()

Dim row As Integer
row = 1

Dim totalRows as Integer
totalRows = 7000                      'Change the number to the total rows

for row = 1 to totalRows 

    Dim splitty() As String
    splitty = Split(Range("B" & row), ",")
    Dim i As Integer

    For i = 0 To UBound(splitty)
        Dim sp As String
        sp = splitty(i)
        If InStr(Range("A" & row).Value, Trim(sp)) Then
            Range("C" & row).Value = Range("C" & row) & sp & " "
        End If

    Next i

Next row

End Sub

Como eu adiciono o VBA no MS Office?

Antes

Depois