KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo listar todos los comentarios del libro de trabajo actual en una hoja de cálculo nueva o en un libro nuevo en Excel?

AutorSoporte técnico Fecha de modificación

Si tiene un libro con demasiados comentarios y desea listarlos todos en una hoja de cálculo nueva o en otro libro para revisarlos, ¿cómo puede hacerlo? Los siguientes métodos le permiten listar rápidamente todos los comentarios de una hoja o de un libro completo en una hoja de cálculo nueva o en un libro distinto en Excel.

Usar código VBA para listar todos los comentarios del Libro de trabajo actual en un Hoja de cálculo nueva

Usar Kutools para Excel para listar todos los comentarios del Libro de trabajo actual en un Hoja de cálculo nueva o libro


Usar código VBA para listar todos los comentarios del Libro de trabajo actual en un Hoja de cálculo nueva

El siguiente código VBA listará todos los comentarios del Libro de trabajo actual en un Hoja de cálculo nueva. En el Hoja de cálculo nueva, se mostrarán todos los comentarios del libro completo en una lista que incluye el nombre de la hoja, la dirección de la celda, el contenido del comentario y el nombre de la celda. Siga estos pasos para usar este método:

1. Haga clic en «Desarrollador» > «Visual Basic» para abrir la ventana de «Microsoft Visual Basic para Aplicaciones». A continuación, seleccione «Insertar» > «Módulo» e introduzca el siguiente código VBA en el módulo.

VBA: enumera todos los comentarios en una nueva hoja de cálculo.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Luego, haga clic en botón ejecutar código VBA el botón para ejecutar el código y obtendrá una hoja de cálculo nueva con todos los comentarios del libro de trabajo actual. Vea la captura de pantalla:

todos los comentarios se muestran en todo el libro de trabajo


Usar Kutools para Excel para listar todos los comentarios del Libro de trabajo actual en un Hoja de cálculo nueva o libro

Con la función «Crear lista de comentarios» de Kutools para Excel, podrá listar rápidamente todos los comentarios en una hoja de cálculo nueva o en un libro de trabajo nuevo.

Kutools para Excel: más de 300 complementos útiles para Excel. ¡Pruébelo gratis sin limitaciones durante 30 días!Consígalo ahora.

1. Si ha instalado Kutools para Excel, haga clic en «Kutools» > «Más» > «Crear lista de comentarios».

2. En el cuadro de diálogo «Crear lista de comentarios»:

  • Seleccione el ámbito del que desea listar los comentarios: puede elegir entre «Hoja de cálculo actual» o «Todas las hojas».
  • A continuación, indique dónde desea colocar la lista de comentarios: puede incluirla en un libro de trabajo nuevo o en una hoja nueva. Vea la captura de pantalla:

crear lista de comentarios con Kutools

3. A continuación, haga clic en el botón «Crear». Se añadirá una hoja de cálculo nueva con todos los comentarios de la hoja activa, incluidos atributos como el nombre de la hoja, las referencias de celda, la fila y la columna. Vea la captura de pantalla:

crear lista de comentarios con Kutools para obtener el resultado

Para obtener más información sobre «Crear lista de comentarios», visite la descripción de la función Crear lista de comentarios.


Artículos relacionados:

Las mejores herramientas de productividad para Office

🤖KUTOOLS AI Asistente: Revolucione Análisis de datos basándose en:Ejecución Inteligente   |  Generar código|  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos|  Invocar Funciones mejoradas
Funciones populares:Buscar, resaltar o Marcar duplicados   |  Eliminar filas en blanco   |  Combinar Columnas o celdas sin perder datos   |   Redondeo sin usar fórmulas...
Super BUSCARV:Búsqueda vertical (VLookup) con múltiples criterios  |  Búsqueda vertical (VLookup) con múltiples valores  |   Búsqueda vertical (VLookup) entre varias hojas   |   Coincidencia difusa....
Lista desplegable avanzada:Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple....
Gestor de columnas:Añadir un número específico de columnas|Mover columnas|Alternar el estado de visibilidad de columnas ocultas|Comparar rangos y columnas...
Funciones destacadas:Cuadrícula de enfoque   |  Vista de diseño   |Barra de fórmulas mejorada   | Gestor de libros y hojas   |  Biblioteca de recursos(Texto automático)|  Selector de Fecha   |  Combinar Hojas de Cálculo  |  Cifrar/Descifrar celdas   | Enviar correos electrónicos desde una lista   |  Super Filtro   |   Filtro especial(Filtrar celdas con fuente en negrita/cursiva/tachado...) ...
Principales conjuntos de herramientas 15:12 Herramientasde texto(Agregar texto,Eliminar caracteres específicos, ...)|   50+Tiposde gráfico(Diagrama de Gantt, ...)|   40+ Fórmulas prácticas(Calcular la edad basada en la fecha de nacimiento, ...)|   19 Herramientasde inserción(Insertar Código QR,Insertar imagen desde ruta, ...)|   12 Herramientasde conversión(Convertir a palabras,Conversión de moneda, ...)|   7 Herramientasde combinación y división(Combinar filas avanzado,Dividir celdas, ...)|...y muchas más
Use Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y 40+ más idiomas.¡

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


Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
  • ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!

Todos los complementos de Kutools en un solo instalador.

Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.

ExcelWordOutlookTabsPowerPoint
  • Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
  • Un instalador, una licencia— configuración en minutos (compatible con MSI)
  • Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
  • Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
  • La mejor relación calidad-precio— ahorre frente a la compra individual de complementos