¿Cómo contar el número de celdas con comentarios en Excel?
¿Alguna vez ha intentado contar la cantidad de comentarios en una hoja de trabajo? En este artículo, le presentaré algunos trucos rápidos para contar cuántas celdas con comentarios en una hoja de trabajo.
Contar el número de celdas que contienen comentarios con la función Ir a especial
Contar el número de celdas que contienen comentarios con la función definida por el usuario
Contar el número de celdas que contienen comentarios con código VBA
Contar el número de celdas que contienen comentarios con la función Ir a especial
Con la Ir a Especial característica en Excel, puede seleccionar todas las celdas de comentarios primero y luego ver el número de recuento en la barra de estado.
1. Ir a hacer clic Inicio > Buscar y seleccionar > Ir a Especial, ver captura de pantalla:
2. En la Ir a Especial cuadro de diálogo, verifique Comentarios opción bajo Seleccione sección, ver captura de pantalla:
3. A continuación, haga clic en OK para cerrar este cuadro de diálogo, y todas las celdas de la hoja de trabajo activa que contienen el comentario se han seleccionado a la vez. Y puede obtener el número de recuento de los comentarios en la barra de estado. Ver captura de pantalla:
Nota: Si tiene celdas en blanco con comentarios, los comentarios de la celda en blanco no se contarán.
Consejo: También puede presionar Ctrl + G atajos para abrir Para ir cuadro de diálogo y haga clic en Especiales botón para mostrar Ir a Especial diálogo.
Contar el número de celdas que contienen comentarios con la función definida por el usuario
El método anterior tiene su propia desventaja, por lo que podemos crear una función definida por el usuario para contar todos los comentarios de celda, incluidos los comentarios de celda en blanco.
1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: cuente el número de celdas con comentario
Function CountComments(xCell As Range)
'Update 20140924
Application.Volatile
CountComments = xCell.Parent.Comments.Count
End Function
3. Luego guarde y cierre el código, vuelva a la hoja de trabajo, en una celda en blanco ingrese esta fórmula: = contar comentarios (A1), (A1 es una referencia de celda, puede cambiarla a cualquier otra dirección de celda), vea la captura de pantalla:
4. Entonces presione Participar clave, y obtendrá el número de comentarios de celda.
Contar el número de celdas que contienen comentarios con código VBA
El siguiente código VBA también puede ayudarlo a contar todos los comentarios de la celda, incluidos los comentarios de la celda en blanco.
1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: cuente el número de celdas con comentario
Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
MsgBox 0
Else
MsgBox WorkRng.Count
End If
End Sub
3. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione un rango de datos en el que desea contar los comentarios de la celda. Ver captura de pantalla:
4. Y luego haz clic OK, obtendrá el número de comentarios de celda en la selección.
Artículos relacionados:
¿Cómo enumerar todos los comentarios en una nueva hoja de trabajo o libro de trabajo en Excel?
¿Cómo encontrar y reemplazar texto dentro de los comentarios en Excel?
¿Cómo insertar rápidamente un comentario en varias celdas 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!