Imagine a lista sendo muito mais longa... Existe uma maneira de substituir as células em A e B pelo nome/ID apropriado da Coluna C? "Nome apropriado" é o que está na coluna C (nomes correspondentes).Este é o resultado finalSIM COPIAR/COLAR FUNCIONA, mas quando tudo isso tem 5.000 caracteres e a coluna C não está em perfeita ordem, leva muitas horas.
Responder1
Usando o vba vocêpoderásubstituir o valor procurado desta forma Ajuste o intervalo para apontar onde estão os seus valores substitutos e o intervalo dos itens que vocêestá procurando
Sub substituteLookedUp()
Dim myStr As String
Dim matchDbl As Double
Dim Rng As Range
Set Rng = Range("C1:C10")
For Each cell In Range("a1:b12")
If cell <> "" Then
myStr = Mid(cell, WorksheetFunction.Find(" ", cell) + 1, Len(cell) - WorksheetFunction.Find(" ", cell)) & "_" & Left(cell, WorksheetFunction.Find(" ", cell) - 1) & "*"
matchDbl = WorksheetFunction.Match(myStr, Rng, 0)
newStr = Range("C" & matchDbl)
Else: newStr = ""
End If
cell.Value = newStr
Next
Finalizar sub