¿Cómo sumar / contar números en negrita en un rango de celdas en Excel?

Si tienes un rango de datos que contiene números en negrita en una hoja de cálculo y deseas sumar o contar solo las celdas en negrita, podrías agregarlas manualmente, pero sería muy laborioso. ¿Cómo puedes sumar o contar rápidamente solo las celdas en negrita en Excel?

Contar números en negrita en un rango con una Función Definida por el Usuario (VBA y fórmula)
Sumar números en negrita en un rango con una Función Definida por el Usuario (VBA y fórmula)
Varios clics para contar y sumar celdas en negrita en un rango con Kutools para Excel

Contar números en negrita en un rango con una Función Definida por el Usuario

La siguiente Función Definida por el Usuario puede ayudarte a obtener rápidamente el número de celdas en negrita. Por favor, sigue estos pasos:

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 números en negrita en un rango de celdas

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Luego guarda este código, y escribe esta fórmula =CountBold(A1:C9) en una celda en blanco, ver captura de pantalla:

4. Luego presiona la tecla Enter, y contarás las celdas en negrita en el rango A1:C9.

Nota: A1:C9 en la fórmula indica el rango que deseas usar para contar las celdas en negrita, puedes cambiarlo según sea necesario.

Sumar números en negrita en un rango con una Función Definida por el Usuario

Si deseas sumar solo los números en negrita en un rango de datos, puedes crear una función definida por el usuario para lograr esto.

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: Sumar números en negrita en un rango de celdas

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Luego guarda este código, y escribe esta fórmula =sumbold(A1:C9) en una celda en blanco, ver captura de pantalla:

4. Y luego presiona la tecla Enter, todos los números en negrita en el rango A1:C9 se habrán sumado. Ver captura de pantalla:

Nota: A1:C9 en la fórmula indica el rango que deseas usar para sumar las celdas en negrita, puedes cambiarlo según sea necesario.

Varios clics para contar y sumar celdas en negrita en un rango con Kutools para Excel

Puedes contar o sumar fácilmente todas las celdas en negrita en un rango con varios clics sin manejar complicados códigos VBA ni recordar fórmulas.

1. Para contar celdas en negrita, selecciona una celda en blanco para ubicar el resultado, y luego haz clic en Kutools > Funciones mejoradas > Contar > COUNTBYFONTBOLD.

Y para sumar celdas en negrita, haz clic en Kutools > Funciones mejoradas > Contar > SUMBYFONTBOLD. Ver captura de pantalla:

2. En el cuadro de diálogo Argumentos de la función, especifica el rango con las celdas en negrita que necesitas contar o sumar en el cuadro Referencia, y luego haz clic en el botón Aceptar.

El recuento o la suma de todas las celdas en negrita en el rango especificado ahora se muestra en la celda seleccionada. Ver captura de pantalla:

Demostración: Contar y sumar celdas en negrita en un rango con Kutools para Excel

Artículos relacionados:

¿Cómo identificar y seleccionar todas las celdas o texto en negrita en Excel?