¿Cómo encontrar y reemplazar texto y luego conservar el formato en Excel?
![]() |
![]() |
La función Buscar y reemplazar es poderosa y útil cuando necesitamos encontrar un valor específico y reemplazarlo por otro. Pero si hay un rango de celdas, y algunas de las celdas incluyen diferentes valores de formato. En este caso, buscar y reemplazar el valor por la función Buscar y reemplazar romperá el formato de los valores en las celdas como se muestra a continuación, ¿cómo podemos preservar el formato de los valores en cada celda mientras buscamos y reemplazamos en Excel?
Busque y reemplace el formato de conservación con código macro
Busque y reemplace el formato de conservación con código macro
Busque y reemplace el formato de conservación con código macro
No hay otros métodos, pero el código de macro puede ayudarlo a encontrar y reemplazar texto y conservar el formato.
1. Prensa Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el siguiente código en el script.
VBA: busque y reemplace conservar formato
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
3. Prensa F5 , aparece un cuadro de diálogo para que seleccione un rango para buscar y reemplazar, vea la captura de pantalla:
4. Haga clic en Aceptar, y la cadena específica en la celda seleccionada se reemplaza por otra y mantiene el formato.
Consejo: En el código, KK es la cadena que desea encontrar y Kutools es la cadena con la que desea reemplazar, puede cambiarla cuando lo necesite.
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Ordenar comentarios por

#32476
Este comentario fue minimizado por el moderador en el sitio
0
0

#32670
Este comentario fue minimizado por el moderador en el sitio
0
0

#33490
Este comentario fue minimizado por el moderador en el sitio
0
0

#33491
Este comentario fue minimizado por el moderador en el sitio
Reportar
0
0

#33801
Este comentario fue minimizado por el moderador en el sitio
0
0
No hay comentarios publicados aquí todavía