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

如何快速求和Excel中的每隔第n行/第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))。 然后按 输入 键,并添加了每个第三个单元格。 查看屏幕截图:

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应用程序 窗口。

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。 然后按 输入 键,您将得到计算。 查看屏幕截图:

每四行求和:

doc-sum-other-cell9

每四列求和:

doc-sum-other-cell10

备注:您可以将数字4更改为任何其他数字,例如2、3、5…,这意味着每隔第二行,每隔第三行,每隔第五行或每列求和。


也许对于大多数人来说,公式和用户定义函数都有些困难,在这里,我可以向您介绍一种解决此任务的简便方法。

Kutools for Excel选择间隔行和列,您可以先选择每个其他或第n个单元格,然后使用Sum函数对单元格求和,为选定的单元格定义一个名称。

Kutools for Excel : 带有300多个便捷的Excel加载项,可以在30天内免费试用. 

安装后 Kutools for Excel,请执行以下步骤:

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!


Kutools for Excel:具有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) Step interval 给出我想要什么,例如 (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保护