如何匯總一列中的單元格值,直到到達空白單元格?
現在,如果您有一個由一些空白單元格填充的數字列表,則需要對上下兩個數字求和,直到此列表中的空白單元格得到以下結果。 您有任何快速或簡便的方法來解決Excel中的這項工作嗎?
總和以上的單元格值,直到空白單元格
總和以下的單元格值,直到空白單元格
將以下單元格值求和,直到具有數組公式的空白單元格為止
要匯總下面的單元格值直到空格,這是一個數組公式,請按照以下步驟操作:
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 for Applications 窗口。
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. Then press F5 key to run this code, and a prompt box is popped out to remind you selecting the range of cells that you want to sum cells above until blank cells, see screenshot:

4. Then click OK button, all cell values above blank cells have been added up as following screenshot shown:

The Best Office Productivity Tools
Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%
- Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
- Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
- Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
- Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
- Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- More than 300 powerful features. Supports Office / Excel 2007-2021 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!