Note: The other languages of the website are Google-translated. Back to English

如何快速將Excel中的每隔一行或第n行/列求和?

眾所周知,我們可以應用Sum函數添加一個單元格列表,但有時出於某種目的我們需要對其他所有單元格求和,而Excel沒有標準函數允許我們對第n個單元格求和。 在這種情況下,我們如何才能在Excel中隔行相加或第n行/列相加?

每隔一個或第n行/列與公式求和

使用用戶定義的函數求和每隔第n行/第n行

用Kutools for Excel求和/平均值/每隔一個或第n行/列進行計數


通過以下示例,我將向您展示如何應用將所有其他單元格相加的公式。

1.使用數組公式對其他所有行或列求和

在空白單元格中,請輸入以下公式: =SUM(IF(MOD(ROW($B$1:$B$15),2)=0,$B$1:$B$15,0)), 然後按 Ctrl + Shift + Enter 鍵,以及B列中的所有其他單元格值都已求和。 查看屏幕截圖:

doc-sum-other-cell1 2 doc-sum-other-cell2

筆記:

1.在上面的數組公式中,您可以將數字2更改為3、4、5…,這意味著每3行,每4行,每5行求和……

2.如果要對其他所有列求和,則可以輸入以下公式: =SUM(IF(MOD(COLUMN($A$1:$O$1),2)=0,$A$1:$O$1,0)),然後按 Ctrl + Shift + Enter 獲得結果的鍵。 看截圖:

doc-sum-other-cell3

2.使用公式對其他所有行或列求和

這是另一個公式,可以幫助您對工作表中的每隔n個單元格求和。

在一個空單元格中,請輸入以下公式: =SUMPRODUCT((MOD(ROW($B$1:$B$15),3)=0)*($B$1:$B$15))。 然後按 Enter 鍵,並添加了每個第三個單元格。 查看屏幕截圖:

doc-sum-other-cell4 2 doc-sum-other-cell5

筆記:

1.在上面的公式中,您可以將數字3更改為4、5、6…,這意味著每4行,每5行,每6行求和……

2.如果要對其他所有列求和,則可以輸入以下公式: =SUMPRODUCT((MOD(COLUMN($A$1:$O$1),3)=0)*($A$1:$O$1)).

doc-sum-other-cell6


以下用戶定義的函數還可以幫助您在Excel中添加每隔第n個單元格。

1。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到“模塊”窗口中。

Function SumIntervalRows(WorkRng As Range, interval As Integer) As Double
'Updateby Extendoffice
Dim arr As Variant
Dim total As Double
total = 0
arr = WorkRng.Value
For i = interval To UBound(arr, 1) Step interval
    total = total + arr(i, 1)
Next
SumIntervalRows = total
End Function
Function SumIntervalCols(WorkRng As Range, interval As Integer) As Double
Dim arr As Variant
Dim total As Double
total = 0
arr = WorkRng.Value
For j = interval To UBound(arr, 2) Step interval
    total = total + arr(1, j)
Next
SumIntervalCols = total
End Function

3。 然後保存此代碼,並根據需要在空白單元格中鍵入以下公式,請參見屏幕截圖:

用於匯總第四行: = SumIntervalRows(B1:B15,4)

doc-sum-other-cell7

用於匯總第四列: = SumIntervalCols(A1:O1,4)

doc-sum-other-cell8

4。 然後按 Enter 鍵,您將得到計算。 查看屏幕截圖:

每四行求和:

doc-sum-other-cell9

每四列求和:

doc-sum-other-cell10

備註:您可以將數字4更改為任何其他數字,例如2、3、5…,這意味著每隔第二行,每隔第三行,每隔第五行或每列求和。


也許對於大多數人來說,公式和用戶定義函數都有些困難,在這裡,我可以向您介紹一種解決此任務的簡便方法。

這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分, Excel的Kutools選擇間隔行和列,您可以先選擇每個其他或第n個單元格,然後使用Sum函數對單元格求和,然後為選定的單元格定義一個名稱。

Excel的Kutools : 帶有300多個便捷的Excel加載項,可以在30天內免費試用. 

安裝後 Excel的Kutools,請執行以下步驟:

1。 選擇要對每隔兩個或第n個單元求和的列。

2。 點擊 庫工具 > 選擇 > 選擇間隔行和列,請參見屏幕截圖:

3。 在 選擇間隔行和列 對話框中,根據需要指定操作,請參見屏幕截圖:

doc-sum-other-cell12

4。 點擊 OK,並且已經從第一行中選擇了每隔一行,現在,您可以查看計算的結果,例如平均值,總和,計數顯示在狀態欄的底部。 看截圖:

doc-sum-other-cell13

筆記:

1.使用此功能,您可以在中設置數字2、3、4… 間隔 選項,然後從第2步中範圍的第一行開始選擇間隔為3、4、3行的單元格。

2.通過上述步驟,您還可以根據需要對每隔第n列進行求和。

如果您想進一步了解此功能,請單擊 選擇間隔行和列.

立即下載和免費試用Excel的Kutools!


Excel的Kutools:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即下載並免費試用!

相關文章:

如何在Excel中僅匯總經過過濾或可見的單元格?

如何在Excel中求和絕對值?


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (20)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
嗨,我試過了 - 但是這個公式 =SUM(IF(MOD(ROW($B$1:$B$15),2)=0,$B$1:$B$15)) 僅當您從不均勻的行開始時才起作用。否則會給出錯誤的結果。 試試看,在第一行之前插入一行。 建議:改為插入第 2 行或第 3 行來求和(它是一個變量,插入一個參考單元格(B20)左右,然後在其中插入你想要求和的每一行。無論如何,我想知道你到底用了什麼公式???最好的問候克雷姆斯
網站主持人對此評論進行了最小化
嗨,這很有幫助,但公式很瘋狂(至少如果您嘗試將其應用於列) Column(REGION) 返回該區域中第一列的列索引。 因此,該公式完全不適用於列......但它有助於您開始朝著正確的方向工作。
網站主持人對此評論進行了最小化
這是一篇精彩的文章! 我不知道 MOD 函數可以處理數組參數。 我非常喜歡配方解決方案,簡直太棒了!
網站主持人對此評論進行了最小化
這很有幫助。 我正在尋找總計 Ro1 1 col 1、4、7 等的東西。使用 SumIntervalCols 無法正常工作,因此只需將 For 循環更改為: For j = 1 To UBound(arr, 2) 步驟間隔給出我想要什麼,例如 (F2:BH2,3)。 現在我想平均每三個單元格中的總數,所以我添加了函數: Function CountIntervalCols(WorkRng As Range, interval As Integer) As Double Dim arr As Variant Dim total As Double total = 0 arr = WorkRng.Value For j = 1 To UBound(arr, 2) 步長區間 If (Not IsEmpty(arr(1, j)) And IsNumeric(arr(1, j))) Then If arr(1, j) > 0 Then total = total + 1 End If End If Next CountIntervalCols = total End Function 然後創建一個 AvgIntervalCols 很簡單: Function AvgIntervalCols(WorkRng As Range, interval As Integer) As Double Dim totalsum As Double Dim totalcount As Double totalsum = SumIntervalCols(WorkRng, interval) totalcount = CountIntervalCols( WorkRng, interval) If totalcount = 0 Then totalsum = 0 Else totalsum = totalsum / totalcount End If AvgIntervalCols = totalsum End Function 謝謝!
網站主持人對此評論進行了最小化
希望這有助於解決問題
網站主持人對此評論進行了最小化
列的總和也可以,但是您需要從 A 列開始,否則它會返回錯誤的結果。
網站主持人對此評論進行了最小化
我現在對excel非常感興趣,所以請指導我。 所以,在最後你會添加4個為什麼。
網站主持人對此評論進行了最小化
這個公式很容易修改以適用於以奇數或偶數行/列開頭的範圍。 例如: =SUM(IF(MOD(ROW($B$1:$B$15),2)=0,$B$1:$B$15,0)) 將僅對指定範圍內的偶數行求和,但 = SUM(IF(MOD(ROW($B$1:$B$15),2)=1,$B$1:$B$15,0)) 將僅對奇數行求和。 這是因為 MOD 功能的工作方式。 MOD(4,2) 返回 0,因為 2 除以 4 沒有餘數,因為 4 是偶數,但 MOD(5,2) 返回 1,因為 2 分為 5 剩下 1。
網站主持人對此評論進行了最小化
這種方法對我不起作用。 我在 B 列 (B15:B1) 中輸入了 15 個數字,如示例中所示,並將公式複製到空白單元格,結果為 0。如果我將 if 語句更改為 IF(MOD(ROW($B$1:$ B$15),2)=1,結果是 3795,即 sum(B1:B15)。有什麼問題?
網站主持人對此評論進行了最小化
先生,如上所述,我已將 Visual Basic 用於 SumIntervalCols 函數,並將文件保存為宏啟用工作表。 下次打開文件時,下拉功能菜單中缺少用戶定義命令請幫助如何修復用戶定義宏,並可用於其他 Excel 工作表。 關於 D KUMAR
網站主持人對此評論進行了最小化
使用了 Visual Basic 編程——太棒了! 除第 n.º 1 行外,其他選項運行良好。
網站主持人對此評論進行了最小化
有沒有辦法在這個公式中添加另一個標準? 我想添加大於 -9 的每 40 行。 我會很感激你的幫助。 提前致謝!
網站主持人對此評論進行了最小化
該公式不適用於該列,任何人都可以幫我添加奇數列
網站主持人對此評論進行了最小化
嗨,尼萊什,
如果您想對所有奇數行中的單元格值求和,下面的公式可能會對您有所幫助! (請根據您的需要更改單元格引用。)

=SUMPRODUCT(B1:B15,MOD(ROW(B1:B15)+0,2))

請嘗試,希望對您有所幫助!
網站主持人對此評論進行了最小化
這些 vma 教程是有史以來最好的。 非常有幫助謝謝各位!
網站主持人對此評論進行了最小化
該 VBA 代碼很有幫助,是否可以對其進行修改,使其也對序列的第一個值求和?
網站主持人對此評論進行了最小化
抱歉,最後一個問題是有一種方法可以在 Sumproduct 公式中的一個數組中完成,因為我希望這些值仍然單獨保存。
網站主持人對此評論進行了最小化
嗨,我想每 4 行總結一次,但是我的這些總結值的新表的間隔是每 12 行,知道嗎?
例如:匯總每 4 個月的數據,並在每年 12 月(XNUMX 間隔行)將這些數據放入新表中。
網站主持人對此評論進行了最小化
上面給出的代碼有效,但是當文件關閉並重新打開時,它不起作用。 同樣的代碼需要復制和粘貼。 請給出永久解決方案
網站主持人對此評論進行了最小化
你好,
粘貼代碼後,關閉工作簿時,應將工作簿另存為 Excel 啟用宏的工作簿格式以保存代碼。
下次打開工作簿時,單擊安全警告欄中的啟用內容按鈕。
請嘗試,謝謝!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護