Buscar y reemplazar en una cadena de texto
¿Tendrán una macro que permita buscar en una cadena de texto una parte del mismo y lo reemplace por otra? Me explico con un ejemplo:
Tengo en una hoja una lista de usuario para buscar y reemplazar por así:
Por otro lado tengo en otra hoja la información a buscar y reemplazar asi:
El resultado seria asi:
En pocas palabras que busque en toda la hoja 1 un texto y lo reemplace segun una lista en la hoja 2
(El color rojo es solo para indicar el resultado)
2 Respuestas
Respuesta de James Bond
Prueba este código
Sub BUSCA_Y_REEMPLAZA()
Set H1 = Worksheets("HOJA1")
Set H2 = Worksheets("HOJA2")
MATRIZ = H1.Range("A1").CurrentRegion
R = H1.Range("A1").CurrentRegion.Rows.Count
ULTIMO = Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To R
With H2
NOMBRE = MATRIZ(I, 1)
NOMBRE2 = MATRIZ(I, 2)
.Cells.Replace What:=NOMBRE, Replacement:=NOMBRE2
End With
Next I
End Sub
Respuesta de Programar Excel
Estos ejemplos
Visita https://programarexcel.com descarga cientos de ejemplos de macros gratis Suscribe https://www.youtube.com/c/programarexcel?sub_confirmation=1 activa la campana y youtube te avisará cuando se suban nuevos vídeos