¿Cómo sumar rápidamente valores excluyendo las columnas ocultas en Excel?
Para sumar valores excluyendo filas ocultas, puede usar la fórmula =SUBTOTAL(), pero ¿y si desea sumar valores ignorando columnas ocultas? En este artículo descubrirá trucos para sumar rápidamente valores solo en las columnas visibles.
Sumar valores excluyendo columnas ocultas con VBA
Sumar/promediar/contar excluyendo columnas ocultas con Kutools para Excel 
Sumar valores excluyendo columnas ocultas con VBA
A continuación, un código VBA que le permite sumar rápidamente únicamente las columnas visibles.
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la nueva ventana de Módulo.
VBA: Sumar únicamente los valores de columnas visibles
Public Function SumVisible(Rg As Range) As Double
'UpdatebyExtendOffice20160302
Dim xCell As Range
Dim xRg As Range
Dim xOutRg As Range
On Error Resume Next
Application.Volatile
Set xRg = Application.Intersect(Rg, Rg.Worksheet.UsedRange)
If Not (xRg Is Nothing) Then
For Each xCell In xRg
If (xCell.EntireRow.Hidden = False) And _
(xCell.EntireColumn.Hidden = False) Then
If xOutRg Is Nothing Then
Set xOutRg = xCell
Else
Set xOutRg = Application.Union(xCell, xOutRg)
End If
End If
Next
End If
If Not xOutRg Is Nothing Then
SumVisible = Application.Evaluate("SUM(" & xOutRg.Address & ")")
Else
SumVisible = 0
End If
End Function3. Guarde el código y cierre esta ventana. Luego, regrese y seleccione una celda vacía donde desee colocar el resultado calculado e introduzca esta fórmula: =SumVisible(A1:C9). Pulse la tecla Intro y aparecerá el resultado correcto de la suma.
Consejo: En la fórmula, A1:C9 son las celdas que desea sumar.
Sumar/promediar/contar excluyendo columnas ocultas con Kutools para Excel
Quizá no esté familiarizado con el código VBA, pero si tiene instalado Kutools para Excel, podrá resolver esta tarea de forma rápida y sencilla.
1. Seleccione una celda vacía donde quiera colocar el resultado de la suma, por ejemplo E1, y haga clic en Kutools > Funciones mejoradas > Estadística y matemáticas > SUMVISIBLE. Vea la captura de pantalla:
2. En el cuadro de diálogo Argumentos de función, haga clic para seleccionar las celdas que desea sumar en el cuadro de texto Referencia y podrá previsualizar el resultado calculado en la parte inferior. Vea la captura de pantalla:
3. Haga clic en Aceptar y solo se sumarán las columnas visibles.
Con Kutools para Excel también puede contar o calcular el promedio en celdas, filas o columnas visibles. Vea la captura de pantalla:
Consejo: También puede escribir directamente esta fórmula =SUMVISIBLE(A1:C9), =COUNTVISIBLE(A1:C9) o =AVERAGEVISIBLE(A1:C9) en la celda para obtener el resultado tras instalar Kutools para Excel.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
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