Verifique quais (múltiplas) células na coluna A contêm substrings especificadas na coluna B?

Question

Na coluna A, tenho descrições de ofertas de M & A que mencionam nomes de empresas. Na coluna B tenho nomes de empresas, para cada um dos quais quero ver onde é mencionado na coluna A.

Com o que estou tendo problemas: algumas das strings na coluna B estarão presentes como substrings na coluna A várias vezes e quero retornar todas as instâncias, não apenas uma.

    

Answer 1

Tente esta macro pequena:

Sub DataLocator()
  Dim nA As Long, nB As Long, i As Long, j As Long, k As Long
  Dim v As String
  nA = Cells(Rows.Count, "A").End(xlUp).Row
  nB = Cells(Rows.Count, "B").End(xlUp).Row

  For i = 1 To nB
    v = Cells(i, "B").Value
    k = 3
    For j = 1 To nA
      If InStr(1, Cells(j, "A").Value, v) > 0 Then
        Cells(i, k).Value = Cells(j, "A").Address(0, 0)
        k = k + 1
      End If
    Next j
  Next i
End Sub

Por exemplo:

Asmacrossãomuitofáceisdeinstalareusar:

1. ALT-F11exibeajaneladoVBE
2. ALT-IALT-Mabreumnovomódulo
3. coleomaterialefecheajaneladoVBE

Sevocêsalvarapastadetrabalho,amacroserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx

Pararemoveramacro:

1. abrirajaneladoVBEcomoacima
2. limpeocódigo
3. fecheajaneladoVBE

ParausaramacrodoExcel:

1. ALT-F8
2. Selecioneamacro
3. ToqueemEXECUTAR

Parasabermaissobremacrosemgeral,consulte:

link

e

link

As macros devem estar ativadas para que isso funcione!