Note: The other languages of the website are Google-translated. Back to English

¿Cómo encontrar y reemplazar texto y luego conservar el formato en Excel?

doc buscar reemplazar preservar formato 1
doc buscar reemplazar preservar formato 2
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

flecha azul burbuja derecha 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

 

doc buscar reemplazar preservar formato 5

3. Prensa F5 , aparece un cuadro de diálogo para que seleccione un rango para buscar y reemplazar, vea la captura de pantalla:
doc buscar reemplazar preservar formato 6

4. Haga clic en Aceptar, y la cadena específica en la celda seleccionada se reemplaza por otra y mantiene el formato.
doc buscar reemplazar preservar formato 4

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.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (5)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Probé su solución en una celda que tiene más de 255 caracteres y nada cambia. ¿Hay alguna solución para este caso?
Este comentario fue minimizado por el moderador en el sitio
Recibo un error de sintaxis en VBA
Este comentario fue minimizado por el moderador en el sitio
La misma pregunta que John Birk. Necesito una solución con las celdas que tienen más de 255 signos.
Este comentario fue minimizado por el moderador en el sitio
El método solo funciona con caracteres de menos de 255 dígitos.
Este comentario fue minimizado por el moderador en el sitio
¿Puede aclarar si hay una solución que funcione en celdas con más de 255 caracteres, o es una limitación de Excel? ¿Su complemento admite celdas con más de 255 caracteres que contienen formato?
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL