Visual Basic para Aplicaciones - Buscar y reemplazar automatizados en Excel con Macros

Sub Actualizar ()

For i=2 To 53

	Sheets ("Lista"). Select

	origen = Cells (i,1)

	destino = Cells (i, 2)

	Sheets ("Datos"). Select

	For j = 2 To 314

		If Cells (j, 1) = origen Then

		    Cells (j, 1) = destino

	Enf If

	Next

Next

End Sub

Buscar      Cambiar por

Cliente1              1

Cliente2              2

Cliente3              3

... hasta Cliente 53

A                         B

Cliente1               Cliente3

Cliente3               Cliente4

etc..

Sub accion()

'verifica cuan grande son tus datos. Te recomendaría que lo colocaras en una tabla

tamano_tabla = Sheets("Lista").Range(Range("A1"), Range("A1").End(xlDown)).Count

For i = 2 To tamano_tabla ' Recorre toda tu informacion y asigna lo que queres en las dos variables

    a_reemplazar = Sheets("Lista").Cells(i, 1).Value

    reemplazo = Sheets("Lista").Cells(i, 2).Value

    reemplazar Sheets("Datos").Cells, a_reemplazar, reemplazo ' Corre la funcion de abajo. Que lo que hace en en la Hoja "Datos, "Reemplaza a_reemplazar" por "Reemplazo"

Next i

End Sub

Sub reemplazar(Rango As Range, a_reemplazar As Variant, reemplazo As Variant)

On Error GoTo Err:

    Rango.Replace What:=a_reemplazar, Replacement:=reemplazo, LookAt:=xlWhole, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

        Exit Sub

Err:

End Sub