Alterar células sem copiar / colar

0

Imagine a lista sendo muito mais longa ... Existe uma maneira de substituir as células em A & B com o nome / ID apropriado da Coluna C? "Nome apropriado" é o que está na coluna C (nomes dos jogos). Este é o resultado final SIM COPIAR / COLAR OBRAS, mas quando tudo isso é de 5000 anos e a coluna C não é em perfeita ordem, leva muitas horas.

    
por Jason 15.10.2015 / 04:15

1 resposta

0

Usando vba, você pode substituir o valor pesquisado dessa maneira Ajuste o intervalo para apontar onde estão seus valores substitutos e o intervalo dos itens que você está pesquisando

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

End Sub

    
por 16.10.2015 / 01:58