Как суммировать значения ячеек в столбце, пока не будет достигнута пустая ячейка?
Если у вас есть список чисел, заполненный некоторыми пустыми ячейками, и теперь вам нужно просуммировать числа выше или ниже пустых ячеек в этом списке, чтобы получить следующие результаты. Есть ли у вас какие-либо быстрые или простые способы решения этой задачи в Excel?
Суммировать значения ячеек выше до пустой ячейки
Суммируйте значения ячеек ниже до пустой ячейки
Суммируйте значения ячеек ниже до пустых ячеек с формулой массива
Суммируйте значения ячеек выше до пустых ячеек с кодом VBA
Суммируйте значения ячеек ниже до пустых ячеек с формулой массива
Чтобы суммировать значения ячеек ниже до пробелов, вот формула массива, сделайте следующее:
1. Введите эту формулу в пустую ячейку рядом со столбцом чисел, E1, Например.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 первые две ячейки в столбце, D17 - последняя пустая ячейка в числовом столбце).
2, Затем нажмите Shift + Ctrl + Enter вместе, а затем перетащите дескриптор заполнения вниз к ячейкам, в которых вы хотите суммировать числа ниже, до пустых значений, см. снимок экрана:
Суммируйте значения ячеек выше до пустых ячеек с кодом VBA
Если вам нужно суммировать указанные выше значения ячеек до пустых ячеек, следующий код VBA может оказать вам услугу.
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: суммируйте значения ячеек выше до пробелов:
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, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно подсказки, напоминающее вам о выборе диапазона ячеек, в котором вы хотите суммировать ячейки выше до пустых ячеек, см. снимок экрана:
4. Затем нажмите OK кнопки, все значения ячеек над пустыми ячейками были добавлены, как показано на следующем снимке экрана:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!