Saltar al contenido principal

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

Como sabemos, existe 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 dentro de comentarios

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

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

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

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

VBA: busque y reemplace texto en todos los comentarios en Excel.

Sub ReplaceComments ()
Dim cmt como comentario
Dim wks como hoja de trabajo
Dim s Buscar como cadena
Dim s Reemplazar como cadena
Dim sCmt como cadena
sFind = "2011"
sReplace = "2012"
Para cada semana en ActiveWorkbook.
Por cada cmt en semanas.
sCmt = cmt.Texto
Si InStr (sCmt, sFind) <> 0 Entonces
sCmt = Aplicación.FunciónHojaDeTrabajo. _
Sustituir (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 sBuscar y s Reemplazar variables para lo que está buscando y con lo que desea reemplazar.

2. Luego haga clic dpc-reemplazar-comentario-1 para ejecutar el código, y todo 2011 en todos los comentarios se reemplazará con 2012 en todo el libro de trabajo.

flecha azul burbuja derecha Una herramienta útil para buscar y reemplazar texto dentro de los comentarios de forma rápida y sencilla.

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

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. Comprar ahora

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 de celda. Ver captura de pantalla:

doc-reemplazar-comentario-2

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

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

doc-reemplazar-comentario-3

3. Y luego haz clic Reemplaza botón. Todo 2011 será reemplazado por 2012 dentro de los comentarios en la hoja de trabajo activa. Ver capturas de pantalla:

doc-reemplazar-comentario-4 -2 doc-reemplazar-comentario-5

Note: 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 de celda, Por favor visite Descripción de la función de herramientas de comentario de celda.

Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples  |   Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas   |  Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas   |  Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas:  12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción

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!
Comments (4)
No ratings yet. Be the first to rate!
ahmetgns
ahmetgns
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
Reply
0
0
ahmetgns
ahmetgns
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
Reply
0
0
ahmetgns
ahmetgns
This comment was minimized by the moderator on the site
How to replace line break in comments?
Reply
0
0
Nick Seigal
Nick Seigal
This comment was minimized by the moderator on the site
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
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations