¿Cómo contar / sumar celdas tachadas en Excel?
En Excel, siempre formateamos tachado para algunas celdas que indican que los valores de celda son inútiles o inválidos, para que podamos analizar los datos con mayor precisión. En este artículo, hablaré sobre cómo hacer algunos cálculos en el rango con estas celdas tachadas en Excel.
Contar celdas tachadas en Excel
Cuente sin celdas tachadas en Excel
Suma excluye las celdas tachadas en Excel
Contar celdas tachadas en Excel
Si desea saber cuántas celdas con formato tachado en un rango, puede crear una función definida por el usuario, siga los siguientes pasos:
1. Mantenga pulsado el ALT + F11 teclas para abrir 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 las celdas tachadas
Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountStrike = xOut
End Function
3. Luego guarde y cierre este código, vuelva a la hoja de trabajo y luego ingrese esta fórmula = CountStrike (A2: B14) a una celda en blanco, vea la captura de pantalla:
4. Luego presione Participar clave, y se han contado todas las celdas tachadas. Ver captura de pantalla:
Cuente sin celdas tachadas en Excel
Pero, a veces, es posible que desee contar solo el número de células normales que excluyen las células tachadas. El siguiente código puede ayudarte.
1. Mantenga pulsado el ALT + F11 teclas para abrir 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: recuento sin celdas tachadas
Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function
3. Luego guarde y cierre este código, vuelva a su hoja de trabajo, escriba esta fórmula = countnostrike (A2: B14) en una celda en blanco y presione Participar clave, obtendrá el resultado que necesita.
Note: En las fórmulas anteriores, A2: B14 es el rango al que desea aplicar las fórmulas.
Suma excluye las celdas tachadas en Excel
Debido a que las celdas tachadas no se utilizan, aquí quiero sumar solo los números normales sin los números tachados. Para resolver esta tarea, también necesita una función definida por el usuario.
1. Mantenga pulsado el ALT + F11 teclas para abrir 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: la suma excluye las celdas tachadas
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function
3. Luego guarde y cierre este código, vuelva a su hoja de trabajo, escriba esta fórmula = golpe de fuerza (B2: B14) en una celda en blanco y presione Participar clave, y obtendrá la suma de todos los números sin las celdas tachadas. Ver captura de pantalla:
Note: En las fórmulas anteriores, B2: B14 es el rango en el que desea sumar celdas sin formato de tachado.
Artículos relacionados:
¿Cómo sumar / contar números en negrita en un rango de celdas en Excel?
¿Cómo contar y sumar celdas según el color de fondo en Excel?
¿Cómo contar / sumar celdas según los colores de fuente 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!
