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