如何快速求和Excel中的每隔第n行/第n行？

众所周知，我们可以应用Sum函数添加一个单元格列表，但有时出于某种目的我们需要对其他所有单元格求和，而Excel没有标准函数允许我们对第n个单元格求和。在这种情况下，我们如何才能在Excel中隔行相加或第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列中的所有其他单元格值都已求和。查看屏幕截图：

笔记：

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))。然后按输入键，并添加了每个第三个单元格。查看屏幕截图：

笔记：

1.在上面的公式中，您可以将数字3更改为4、5、6…，这意味着每4行，每5行，每6行求和……

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

以下用户定义的函数还可以帮助您在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天内免费试用.

前往下载
30天免费试用购买
贝宝/ MyCommerce

安装后 Kutools for Excel，请执行以下步骤：

1。选择要对每隔两个或第n个单元求和的列。

2。点击 库工具 > 选择 > 选择间隔行和列，请参见屏幕截图：

3。在 选择间隔行和列 对话框中，根据需要指定操作，请参见屏幕截图：

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 天退款保证。

阅读更多免费下载... 采购...

Office选项卡为Office带来了选项卡式界面，使您的工作更加轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多免费下载... 采购...

注释 (20)

还没有评分。成为第一位评论！

克雷姆斯

大约8年前

#11258

该评论由网站上的主持人最小化

嗨，我试过了 - 但是这个公式 =SUM(IF(MOD(ROW($B$1:$B$15),2)=0,$B$1:$B$15)) 仅当您从不均匀的行开始时才起作用。否则会给出错误的结果。试试看，在第一行之前插入一行。建议：改为插入第 2 行或第 3 行来求和（它是一个变量，插入一个参考单元格（B20）左右，然后在其中插入你想要求和的每一行。无论如何，我想知道你到底用了什么公式???最好的问候克雷姆斯

彼得

大约8年前

#11264

该评论由网站上的主持人最小化

嗨，这很有帮助，但是公式很疯狂（至少如果您尝试将其应用于列） Column(REGION) 返回该区域中第一列的列索引。因此，该公式完全不适用于列......但它有助于您开始朝着正确的方向工作。

坦率

大约8年前

#11809

该评论由网站上的主持人最小化

这是一篇精彩的文章！我不知道 MOD 函数可以处理数组参数。我非常喜欢配方解决方案，简直太棒了！

丰富

大约8年前

#12466

该评论由网站上的主持人最小化

这很有帮助。我正在寻找总计 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 谢谢！

艾尼莎

大约7年前

#14205

该评论由网站上的主持人最小化

希望这有助于解决问题

德卡

大约7年前

#14225

该评论由网站上的主持人最小化

列的总和也可以，但是您需要从 A 列开始，否则它会返回错误的结果。

hemanth

大约7年前

#14444

该评论由网站上的主持人最小化

我现在对excel非常感兴趣，所以请指导我。所以，在最后你会添加4个为什么。

哈里·Flashman

大约7年前

#14702

该评论由网站上的主持人最小化

这个公式很容易修改以适用于以奇数或偶数行/列开头的范围。例如： =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。