¿Cómo contar el número de celdas con comentarios en Excel?
¿Alguna vez has intentado contar el número de comentarios en una hoja de cálculo? En este artículo, te presentaré algunos trucos rápidos para contar cuántas celdas contienen comentarios en una hoja de cálculo.
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 una 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 función Ir a Especial en Excel, puedes seleccionar primero todas las celdas con comentarios y luego ver el número de comentarios en la barra de estado.
1. Ve a Inicio > Buscar y Seleccionar > Ir a Especial, consulta la captura de pantalla:
2. En el cuadro de diálogo Ir a Especial, selecciona la opción Comentarios bajo la sección Seleccionar, consulta la captura de pantalla:
3. Luego haz clic en el botón Aceptar para cerrar este cuadro de diálogo, y todas las celdas en la hoja de trabajo activa que contienen comentarios se seleccionarán al mismo tiempo. Puedes obtener el recuento de los comentarios en la barra de estado. Consulta la captura de pantalla:
Nota: Si tienes celdas en blanco con comentarios, los comentarios de las celdas en blanco no se contarán.
Consejo: También puedes presionar los atajos Ctrl + G para abrir el cuadro de diálogo Ir a, y hacer clic en el botón Especial para mostrar el cuadro de diálogo Ir a Especial.
Contar el número de celdas que contienen comentarios con una Función Definida por el Usuario
El método anterior tiene sus propias desventajas, así que podemos crear una Función Definida por el Usuario para contar todos los comentarios de las celdas, incluidos los comentarios en celdas en blanco.
1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Contar 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 guarda y cierra el código, regresa a la hoja de cálculo, en una celda en blanco introduce esta fórmula: =countcomments(A1), (A1 es una referencia de celda, puedes cambiarla a cualquier otra dirección de celda), consulta la captura de pantalla:
4. Luego presiona la tecla Enter, y obtendrás el número de comentarios en las celdas.
Contar el número de celdas que contienen comentarios con código VBA
El siguiente código VBA también puede ayudarte a contar todos los comentarios de las celdas, incluidos los comentarios en celdas en blanco.
1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Contar 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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de mensaje para recordarte que selecciones un rango de datos donde deseas contar los comentarios de las celdas. Consulta la captura de pantalla:
4. Y luego haz clic en Aceptar, obtendrás el número de comentarios en las celdas dentro de la selección.
Artículos relacionados:
¿Cómo listar todos los comentarios en una nueva hoja de cálculo o libro en Excel?
¿Cómo buscar 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 para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!