Cambiar celdas sin copiar/pegar

Question

Imagine que la lista es mucho más larga... ¿Hay alguna manera de reemplazar las celdas en A y B con el nombre/ID apropiado de la columna C? "Nombre apropiado" es lo que está en la columna C (nombres coincidentes).este es el resultado finalSÍ, COPIAR/PEGAR FUNCIONA, pero cuando todo esto tiene una longitud de 5000 y la columna C no está en perfecto orden, lleva muchas horas.

Answer 1

Usando vba puede sustituir el valor buscado de esta manera. Ajuste el rango para señalar dónde están sus valores sustitutos y el rango de los elementos que está buscando.

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

Subtítulo final