¿Cómo enumerar todos los comentarios en una nueva hoja de trabajo o libro de trabajo en Excel?
Si tiene un libro de trabajo con demasiados comentarios y desea incluir todos los comentarios en una nueva hoja de trabajo o libro de trabajo para revisar todos los comentarios, ¿cómo puede hacerlo? Los siguientes métodos pueden ayudarlo a enumerar rápidamente todos los comentarios de una hoja de trabajo / libro de trabajo en una nueva hoja de trabajo o libro de trabajo en Excel.
Enumere todos los comentarios en una nueva hoja de trabajo con código VBA
Enumere todos los comentarios en una nueva hoja de trabajo o libro de trabajo con Kutools para Excel
Enumere todos los comentarios en una nueva hoja de trabajo con código VBA
El siguiente código de VBA enumerará todos los comentarios a una nueva hoja de trabajo en el libro de trabajo actual. En la nueva hoja de trabajo, enumerará todos los comentarios de todo el libro en una lista con el nombre de la hoja, la dirección de la celda, el contenido del comentario y el nombre de la celda. Utilice este método de la siguiente manera:
1. Haga Clic en Developer > Visual Basic, muestra el Microsoft Visual Basic para aplicaciones ventana. Y haga clic en recuadro > Móduloy luego ingrese los siguientes códigos VBA en el Módulo.
VBA: enumera todos los comentarios en una nueva hoja de trabajo.
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 para ejecutar el código, y obtendrá una nueva hoja de trabajo con todos los comentarios en el libro de trabajo actual. Ver captura de pantalla:
Enumere todos los comentarios en una nueva hoja de trabajo o libro de trabajo con un solo clic
Con la Crear lista de comentarios of Kutools for Excel, puede enumerar rápidamente todos los comentarios en una nueva hoja de trabajo o un nuevo libro de trabajo.
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 .
1. Si ha instalado Kutools para Excel, haga clic en Kutools > Más > Crear lista de comentarios, ver captura de pantalla:
2. En la Crear lista de comentarios caja de diálogo:
- Seleccione el alcance en el que desea incluir el comentario, puede elegir Hoja activa or Todas las hojas.
- Luego especifique la ubicación en la que desea colocar la lista de comentarios, puede enumerar los comentarios en un nuevo libro de trabajo o una nueva hoja, vea la captura de pantalla:
3. Y luego haz clic Crearbotón. Se agregará una nueva hoja de trabajo para enumerar todos los comentarios activos de la hoja de trabajo con sus atributos, como el nombre de la hoja, las referencias de celda, la fila y la columna. Ver captura de pantalla:
Para obtener información más detallada acerca de Crear lista de comentarios, Por favor visite Descripción de la función Crear lista de comentarios.
Artículos relacionados:
- Cambiar todos los formatos de comentarios en las celdas
- Cambiar el nombre del autor de todos los comentarios
- Buscar y reemplazar texto en comentarios
- Mostrar u ocultar todos los comentarios e indicadores de comentarios en Excel
- Convierta el contenido de la celda en comentarios en Excel
- Convierta comentarios a contenido de celda en Excel
Las mejores herramientas de productividad de oficina
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...
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!