Como identifico duplicatas parciais em uma lista de excel?

Question

Eu tenho uma lista com mais de 1000 nomes de empresas, mas alguns são duplicados, mas não são duplicatas exatas (ex .: Nintendo, Nintendo, Nintendo Video, etc.), existe uma maneira de identificar as duplicatas para que eu pode agrupá-los juntos?

Eu estava usando o código abaixo, mas ele não está pegando alguns deles e não consigo entender o porquê.

Sub TestForDups()

Dim LLoop As Integer
Dim LTestLoop As Integer
Dim LClearRange As String
Dim Lrows As Integer
Dim LRange As String
Dim LChangedValue As String
Dim LTestValue As String

'Test first 2000 rows in spreadsheet for uniqueness
Lrows = 2000
LLoop = 2

'Clear all flags
LClearRange = "A2:A" & Lrows
Range(LClearRange).Interior.ColorIndex = xlNone

'Check first 2000 rows in spreadsheet
While LLoop <= Lrows
  LChangedValue = "A" & CStr(LLoop)

  If Len(Range(LChangedValue).Value) > 0 Then
     'Test each value for uniqueness
     LTestLoop = 2
     While LTestLoop <= Lrows
        If LLoop <> LTestLoop Then
           LTestValue = "A" & CStr(LTestLoop)
           'Value has been duplicated in another cell
           If InStr(Range(LTestValue).Value, Range(LChangedValue).Value) > 0 Then
              'Set the background color to red
              Range(LChangedValue).Interior.ColorIndex = 3
              Range(LTestValue).Interior.ColorIndex = 3

           End If

        End If

        LTestLoop = LTestLoop + 1

     Wend

  End If

  LLoop = LLoop + 1

Wend

End Sub

    

Answer 1

Existem suplementos de pesquisa fuzzy que podem ser ligados ao Excel, como mencionado pelo @Scott Craner.

Faça o download do plug-in Pesquisa Difusa da Microsoft: link

Tutorial para configurar e usar pesquisas difusas no Excel: link

Vídeo tutorial mostrando como usar a ferramenta: link

Existem alguns algoritmos de correspondência bastante complexos acontecendo no plugin, então não é de se surpreender que o seu script não tenha implementado o que você queria perfeitamente com tanto código. Bom para você, por tentar!