如何在 Excel 的列中添加每第 n 个单元格?
How to add every nth cell in a column in Excel?
我有 2 个电子表格。
电子表格 1:A 列每 6 行有一个数字
电子表格 2:我想将 A 列中每第 6 个单元格中的每个数字添加到此电子表格的一个单元格中
在Sheet2
任意单元格中输入以下公式:
=SUM(Sheet1!A1:A60*(MOD(ROW(Sheet1!A1:A60),6)=0))
这是一个数组公式,因此请按 Ctrl+Shift+Enter 提交。
根据需要更改范围 A1:A60
。
您可以使用 VBA 宏来完成此操作。
Sub everySixth()
Dim f As String
f = "=Sheet1!A6"
Dim i As Long
For i = 1 To 5
f = f & "+Sheet1!A" & (i * 6)
Next
ActiveCell.formula = f
End Sub
以防万一您想使用非数组公式,并且据我了解您希望每 6 个值相加一次。您可以在 sheet2 列 B1
上使用以下公式作为辅助列,并仅通过简单的输入来填写。我假设您的数据在两张纸的 A
列中。
=IF(MOD(ROW($A1),6)+MOD(ROW(Sheet1!$A1),6)=0,A1+Sheet1!$A1," ")
快照显示获得的结果。
如果你想要总和,其他答案已经涵盖了。
我认为 sumproduct 是一个很好的解决方案。我们将要忽略的值乘以 0,将要保留的值乘以 1。
=SUMPRODUCT(--(MOD(ROW(A1:A16), 6)=0), A1:A16)
我有 2 个电子表格。
电子表格 1:A 列每 6 行有一个数字 电子表格 2:我想将 A 列中每第 6 个单元格中的每个数字添加到此电子表格的一个单元格中
在Sheet2
任意单元格中输入以下公式:
=SUM(Sheet1!A1:A60*(MOD(ROW(Sheet1!A1:A60),6)=0))
这是一个数组公式,因此请按 Ctrl+Shift+Enter 提交。
根据需要更改范围 A1:A60
。
您可以使用 VBA 宏来完成此操作。
Sub everySixth()
Dim f As String
f = "=Sheet1!A6"
Dim i As Long
For i = 1 To 5
f = f & "+Sheet1!A" & (i * 6)
Next
ActiveCell.formula = f
End Sub
以防万一您想使用非数组公式,并且据我了解您希望每 6 个值相加一次。您可以在 sheet2 列 B1
上使用以下公式作为辅助列,并仅通过简单的输入来填写。我假设您的数据在两张纸的 A
列中。
=IF(MOD(ROW($A1),6)+MOD(ROW(Sheet1!$A1),6)=0,A1+Sheet1!$A1," ")
快照显示获得的结果。
如果你想要总和,其他答案已经涵盖了。
我认为 sumproduct 是一个很好的解决方案。我们将要忽略的值乘以 0,将要保留的值乘以 1。
=SUMPRODUCT(--(MOD(ROW(A1:A16), 6)=0), A1:A16)