¿Cómo sumar los valores de las celdas en una columna hasta llegar a una celda en blanco?

Si tienes una lista de números que contiene algunas celdas en blanco, y ahora necesitas sumar los números por encima o por debajo hasta las celdas en blanco en esta lista para obtener los siguientes resultados. ¿Tienes alguna manera rápida o fácil de resolver este trabajo en Excel?

Sumar los valores de las celdas por debajo hasta llegar a celdas en blanco con una fórmula matricial

Sumar los valores de las celdas por encima hasta llegar a celdas en blanco con código VBA

Sumar los valores de las celdas por debajo hasta llegar a celdas en blanco con una fórmula matricial

Para sumar los valores de las celdas por debajo hasta encontrar celdas en blanco, aquí hay una fórmula matricial; por favor, sigue estos pasos:

1. Introduce esta fórmula en una celda en blanco junto a tu columna de números, E1, por ejemplo.

=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 son las dos primeras celdas de tu columna, D17 es la última celda en blanco en la columna de números).

2. Luego presiona las teclas Ctrl + Shift + Enter juntas, y luego arrastra el controlador de relleno hacia abajo hasta las celdas donde deseas sumar los números por debajo hasta encontrar celdas en blanco, como se muestra en la siguiente captura de pantalla:

Sumar los valores de las celdas por encima hasta llegar a celdas en blanco con código VBA

Si necesitas sumar los valores de las celdas por encima hasta llegar a celdas en blanco, el siguiente código VBA puede ayudarte.

1. Mantén presionadas las teclas ALT + F11 para 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 los valores de las celdas por encima hasta llegar a celdas en blanco:

Sub InsertTotals()
'Updateby Extendoffice
    Dim xRg As Range
    Dim i, j, StartRow, StartCol As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("please select the cells:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    StartRow = xRg.Row
    StartCol = xRg.Column
    For i = StartCol To xRg.Columns.Count + StartCol - 1
        For j = xRg.Row To xRg.Rows.Count + StartRow - 1
            If Cells(j, i) = "" Then
                Cells(j, i).Formula = "=SUM(" & Cells(StartRow, i).Address & ":" & Cells(j - 1, i).Address & ")"
                StartRow = j + 1
            End If
        Next
        StartRow = xRg.Row
    Next
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo que te recordará seleccionar el rango de celdas donde deseas sumar las celdas por encima hasta llegar a celdas en blanco, como se muestra en la siguiente captura de pantalla:

4. Luego haz clic en el botón Aceptar, todos los valores de las celdas por encima de las celdas en blanco se habrán sumado como se muestra en la siguiente captura de pantalla: