Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo encontrar y reemplazar texto en comentarios en Excel?

Como sabemos, hay una función Buscar y Reemplazar en excel, y con esta función, podemos encontrar y reemplazar el contenido en las celdas rápidamente. Pero, ¿podemos encontrar y reemplazar contenidos en comentarios en Excel?

Usar código VBA para buscar y reemplazar texto en comentarios

Para buscar y reemplazar texto en comentarios de forma rápida y sencilla

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutilizar cualquier cosa: Agregue las fórmulas más utilizadas o complejas, gráficos y cualquier otra cosa a sus favoritos, y reutilícelos rápidamente en el futuro.
  • Más de características de texto 20: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convertir números y monedas a palabras en inglés ...
  • Herramientas de fusión: Múltiples libros de trabajo y hojas en uno; Fusionar múltiples celdas / filas / columnas sin perder datos; Combinar filas duplicadas y sumar ...
  • Herramientas divididas: Dividir datos en varias hojas en función del valor; Un libro de trabajo para múltiples archivos Excel, PDF o CSV; De una columna a varias columnas ...
  • Saltar pasta Filas ocultas / filtradas; Cuenta y suma por color de fondo; Crear lista de correo y Enviar correos electrónicos por el valor de la celda...
  • Súper filtro: Cree esquemas de filtro avanzados y aplique a cualquier hoja; Tipo de Propiedad por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de potentes funciones de 300; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derecha Usar código VBA para buscar y reemplazar texto en comentarios


En Excel, parece que no hay otra manera de resolver este problema, excepto usar el código VBA, puede usar el siguiente código VBA para buscar y reemplazar texto en todos los comentarios. Por ejemplo, reemplazaré 2011 con 2012 en todos los comentarios en Excel.

1. Hacer clic Desarrollador >Visual Basic, Un nuevo Microsoft Visual Basic para aplicaciones se mostrará la ventana, haga clic recuadro > Módulo y luego ingrese el siguiente código VBA en el Módulo:

VBA: encuentre y reemplace el texto en todos los comentarios en Excel.

Sub ReplaceComments ()
Dim cmt Como comentario
Dim wks como hoja de trabajo
Dim sFind como cadena
Dim sReplace como cadena
Dim sCmt como cadena
sFind = "2011"
sReplace = "2012"
Para cada semanas en ActiveWorkbook.Worksheets
Por cada cmt en sem. Comentarios
sCmt = cmt.Text
Si InStr (sCmt, sFind) <> 0 Entonces
sCmt = Application.WorksheetFunction. _
Substitute (sCmt, sFind, sReplace)
cmt.Text Text: = sCmt
Si terminar
Siguiente
Siguiente
Set wks = Nada
Establecer cmt = Nada
End Sub

Nota: En el código anterior, puede configurar el sEncuentre y sSustituir variables para lo que está buscando y con lo que quiere reemplazar.

2. Luego haga clic dpc-replace-comment-1 para ejecutar el código, y todos los 2011 en todos los comentarios serán reemplazados con 2012 en todo el libro de trabajo.


flecha azul burbuja derecha Una herramienta útil para encontrar y reemplazar texto dentro de los comentarios de forma rápida y fácil

Podemos encontrar y reemplazar rápidamente el texto en todos los comentarios con Kutools for Excel, Herramientas de comentario celular.

Kutools for Excel: con más de 300 útiles complementos de Excel, de prueba sin límite en días 30. Get it Now

Si ha instalado Kutools para Excel, puede encontrar y reemplazar fácilmente el texto en todos los comentarios en Excel.

1. Hacer clic Kutools > Más > Herramientas de comentario celular. Ver captura de pantalla:

doc-replace-comment-2

2. En la Herramientas de comentario celular caja de diálogo:

  • (1.) Clic Encontrar / Reemplazar lengüeta;
  • (2.) Seleccione el ámbito al que desea aplicar esta utilidad, puede seleccionar Hoja activa or Todas las hojas;
  • (3.) Ingrese el texto (2011) que desea reemplazar en el Encuentra texto en comentarios cuadro e ingrese el texto específico (2012) que desea usar en Reemplazar con encajonar.

doc-replace-comment-3

3. Y luego haz clic reemplazar botón. Todo 2011 se reemplazará con 2012 dentro de los comentarios en la hoja de trabajo activa. Ver capturas de pantalla:

doc-replace-comment-4 -2 doc-replace-comment-5

Nota: Si marcó Mostrar resumen, habrá un cuadro de aviso para recordarle cuántos comentarios de celda se han cambiado.

Para obtener información más detallada acerca de Herramientas de comentario celular, Por favor visite Descripción de la función Cell Comment Tools.


Artículos relacionados:


Kutools for Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Insertar rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita 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 células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Admite Office / Excel 2007-2019 y 365. Soporta todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas de prueba gratuita de 30-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jack · 7 months ago
    This is really amazing. Great information about blog. https://www.kodi.link/
  • To post as a guest, your comment is unpublished.
    Nick Seigal · 5 years ago
    The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem.

    Sub ReplaceComments()
    Dim cmt As Comment
    Dim wks As Worksheet
    Dim sFind As String
    Dim sReplace As String
    Dim lTitleLength As Long
    Dim sCmt As String

    sFind = "2011"
    sReplace = "2014"

    For Each wks In ActiveWorkbook.Worksheets
    For Each cmt In wks.Comments
    sCmt = cmt.Text
    If InStr(sCmt, sFind) 0 Then
    sCmt = Application.WorksheetFunction. _
    Substitute(sCmt, sFind, sReplace)
    cmt.Text Text:=sCmt
    End If
    lTitleLength = InStr(cmt.Text, ":")
    With cmt.Shape.TextFrame
    .Characters(1, lTitleLength).Font.Bold = True
    .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False
    End With
    Next
    Next
    Set wks = Nothing
    Set cmt = Nothing
    End Sub