Reemplazar valores de una tabla con otra tabla de referencia

09 Abr Reemplazar valores de una tabla con otra tabla de referencia

Nombre de la función: REPLACE

La siguiente macro nos permite reemplazar valores de una tabla en hoja1 con otra tabla de referencia en hoja2:

    Sub Replace()
    Dim Sh1 As Worksheet
    Dim Sh2 As Worksheet
    Dim FndList, x&
    Set Sh1 = Sheets(1)
    Set Sh2 = Sheets(2)
    FndList = Sh2.Cells(1, 1).CurrentRegion
    For x = 1 To UBound(FndList)
        Sh1.Cells.Replace What:=FndList(x, 1), Replacement:=FndList(x, 2), LookAt:=xlPart
    Next
    End Sub

Dentro de la hoja2 la columna A debe contener todos los valores originales que queremos reemplazar y la columna B debe contener todos los valores nuevos que queremos incluir en la tabla de la hoja1.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.