Saltar al contenido principal

¿Cómo sumar valores de celda en una columna hasta que se alcance una celda en blanco?

Si tiene una lista de números que se llenaron con algunas celdas en blanco, y ahora, debe sumar los números de arriba o de abajo hasta las celdas en blanco en esta lista para obtener los siguientes resultados. ¿Tiene alguna forma rápida o fácil de resolver este trabajo en Excel?

Sumar los valores de celda anteriores hasta la celda en blanco

doc suma hasta el espacio en blanco 1

Suma los valores de celda a continuación hasta la celda en blanco

doc suma hasta el espacio en blanco 2

Suma los valores de celda a continuación hasta celdas en blanco con fórmula de matriz

Suma los valores de celda anteriores hasta celdas en blanco con código VBA


flecha azul burbuja derecha Suma los valores de celda a continuación hasta celdas en blanco con fórmula de matriz

Para sumar los valores de celda a continuación hasta espacios en blanco, aquí hay una fórmula de matriz, haga lo siguiente:

1. Ingrese esta fórmula en una celda en blanco al lado de la 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 su columna, D17 es la última celda en blanco en la columna numérica).

2. Entonces presione Ctrl + Shift + Enter teclas juntas, y luego arrastre el controlador de relleno hacia abajo a las celdas que desea sumar los números a continuación hasta espacios en blanco, vea la captura de pantalla:

doc suma hasta el espacio en blanco 3


flecha azul burbuja derecha Suma los valores de celda anteriores hasta celdas en blanco con código VBA

Si necesita sumar los valores de celda anteriores hasta celdas en blanco, el siguiente código VBA puede hacerle un favor.

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: sume los valores de celda anteriores hasta espacios 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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione el rango de celdas que desea sumar las celdas anteriores hasta que queden celdas en blanco, vea la captura de pantalla:

doc suma hasta el espacio en blanco 4

4. Luego haga clic OK , todos los valores de celda encima de las celdas en blanco se han sumado como se muestra en la siguiente captura de pantalla:

doc suma hasta el espacio en blanco 5

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The formula doesn't work for me. It gives me an error in the part (A1:A100=""), it tells me false in that step
This comment was minimized by the moderator on the site
Como adicionar negrito no resultado?
This comment was minimized by the moderator on the site
tükçe kod olsaydı iyiydi...
This comment was minimized by the moderator on the site
How to Sum Cell Values Below Until Blank Cells With VBA Code
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations