¿Cómo contar o sumar celdas tachadas en Excel?
En Excel, es habitual aplicar el formato de tachado a ciertas celdas para marcar datos como obsoletos, irrelevantes o no válidos. Esta señal visual mejora notablemente la gestión de datos y le ayuda a centrarse en la información relevante durante el análisis. No obstante, al realizar cálculos —como contar o sumar—, es posible que desee diferenciar los resultados de las celdas con tachado de las que no lo tienen. Saber cómo manejar estos escenarios puede agilizar su flujo de trabajo y ofrecerle conclusiones más precisas. Este artículo presenta varios métodos prácticos para contar y sumar celdas con o sin formato de tachado en Excel, mediante funciones personalizables de VBA que brindan flexibilidad para adaptarse a distintas necesidades de gestión de datos.
Contar celdas tachadas con VBA en Excel
Contar celdas sin tachado con VBA en Excel
Sumar excluyendo celdas tachadas con VBA en Excel
Contar o sumar celdas con tachado usando Kutools para Excel
Contar celdas tachadas en Excel
Si necesita determinar el número total de celdas con formato de tachado en un rango específico, no podrá hacerlo directamente con las funciones integradas de Excel, ya que ninguna fórmula nativa reconoce formatos de texto como el tachado. En estos casos, una función definida por el usuario (UDF) en VBA se convierte en la solución más práctica. Este enfoque resulta especialmente útil para gestionar listas de tareas, actualizaciones de inventario o cualquier otro escenario en el que el tachado indique elementos completados, no válidos u obsoletos.
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de VBA, haga clic en Insertar > Módulo para crear un nuevo módulo y, a continuación, pegue el siguiente código en la ventana del módulo.
Código VBA: Contar 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. Tras introducir el código, guarde su libro de trabajo (para conservar la macro), cierre el editor de VBA y vuelva a su hoja de cálculo. En cualquier celda vacía donde quiera que aparezca el resultado, introduzca la siguiente fórmula (por ejemplo, para contar las celdas tachadas en el rango)A2:B14):=CountStrike(A2:B14)
Consejo: Puede cambiar A2:B14 por cualquier otro rango que desee comprobar.
4. Pulse la tecla Intro para ejecutar la fórmula, y Excel mostrará inmediatamente el recuento de todas las celdas tachadas en el rango limitado. Así podrá hacer un seguimiento eficaz del progreso o eliminar entradas obsoletas según sea necesario. Vea la captura de pantalla:
Precaución: Para garantizar que este código VBA esté disponible en el futuro, guarde el archivo en formato .xlsm (libro de Excel habilitado para macros).
Contar celdas sin tachado en Excel
A veces necesita contar únicamente las celdas que no tienen formato de tachado en un rango determinado. Por ejemplo, en tablas de seguimiento de proyectos o datos de ventas, normalmente querrá contar solo las entradas activas o válidas (es decir, aquellas sin tachado) para operaciones posteriores. Las funciones predeterminadas CONTAR y CONTARA de Excel ignoran el formato del texto, por lo que una solución personalizada en VBA le ofrece un control preciso para cubrir estas necesidades.
1. Pulse ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Vaya a Insertar > Módulo para añadir un nuevo módulo de código. Pegue el siguiente código en dicha ventana del módulo.
Código VBA: Contar celdas sin tachado
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. Guarde su libro de trabajo habilitado para macros, regrese a la hoja de cálculo y, en una celda vacía, introduzca la fórmula (por ejemplo, para)A2:B14):=countnostrike(A2:B14). A continuación, pulse Intro para obtener el resultado. Excel contará únicamente las celdas del rango seleccionado que no tengan formato de tachado.
Nota: En el ejemplo anterior, A2:B14 es el rango de celdas evaluado. Ajuste la referencia del rango según sus necesidades en la hoja de cálculo. Además, tenga en cuenta que formatos combinados u otros formatos especiales podrían afectar a los resultados; asegúrese de que su rango contenga únicamente las celdas deseadas.
Sumar excluyendo celdas tachadas en Excel
Al trabajar con datos numéricos en los que ciertas entradas ya no están activas o deben ignorarse (es decir, aparecen tachadas), suele ser fundamental sumar únicamente los números válidos. Esta situación es habitual en hojas de presupuesto, gestión de inventario o seguimiento de tareas, donde las entradas tachadas representan elementos obsoletos o completados que deben excluirse de los totales. Como la función SUMA integrada de Excel no distingue entre celdas con formato de tachado y sin él, es necesario recurrir a una función VBA definida por el usuario para realizar esta operación.
1. Utilice ALT + F11 para abrir el editor de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo para añadir un módulo y pegue el siguiente código en dicha ventana del módulo.
Código VBA: Sumar excluyendo 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. Cierre el editor de VBA. En su hoja de cálculo de destino, seleccione una celda vacía e introduzca la siguiente fórmula (por ejemplo, para)B2:B14):=excstrike(B2:B14) Pulse Intro y Excel sumará únicamente las celdas de su rango especificado que no tengan formato de tachado, ofreciéndole al instante un total que excluye valores obsoletos.
Nota: Ajuste B2:B14 a su rango de datos real. Esta función ignora las celdas tachadas independientemente de su valor. Si obtiene resultados inesperados, asegúrese de que todas las celdas contengan valores numéricos y tengan el formato correcto.
Consejo práctico: Si necesita actualizar la suma tras modificar el estado de tachado de alguna celda, recalcule la hoja de cálculo pulsando F9.
Contar o sumar celdas con tachado usando Kutools para Excel
Si desea contar o sumar únicamente las celdas con formato de tachado, Excel no ofrece una forma integrada de hacerlo, pero Kutools para Excel lo facilita gracias a su función Filtro especial.
1. Seleccione la columna
Haga clic en la columna que contiene las celdas con formato tachado.
2. Abra el filtro especial
Vaya a la pestaña KUTOOLS PLUS y, a continuación, haga clic en Filtro especial > Filtrar celdas con tachado.
3. Confirme el filtro
Aparecerá un cuadro de diálogo indicando cuántas celdas coinciden con la condición. Haga clic en Aceptar para continuar.
4. Vea los resultados
Ahora las celdas con tachado están filtradas y visibles. Seleccione el rango de filtro: verá inmediatamente la suma, la media y el recuento en la Barra de estado inferior de Excel.
✨¿Por qué usar Kutools?
Kutools para Excel ofrece más de 300 funciones potentes y sencillas de usar como esta, ayudándole a ahorrar tiempo y aumentar su productividad sin necesidad de escribir fórmulas complejas ni código VBA.
Ya sea que filtre por formato, limpie datos, combine hojas o edite en lotes, Kutools simplifica su trabajo en cuestión de segundos.
¡Pruebe Kutools para Excel gratis durante 30 días y descubra todo lo que se ha estado perdiendo!
Artículos relacionados:
¿Cómo sumar o contar números en negrita dentro de un rango de celdas en Excel?
¿Cómo contar y sumar celdas según su color de fondo en Excel?
¿Cómo contar o sumar celdas según el color de fuente en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos