Excel 把所有的东西加总到左边

我正在寻找代码，将所有内容累加到活动单元格的左侧。我的目的是：我创建了一个宏来协调事件。适用于任何包含8列“会话”的事件，但是有些事件包含更多的“会话”，因此如果我的SUM（A1:H1）公式不适用于包含10列会话的事件。我的理想公式是把所有的东西都加到活动细胞的左边，我有6、7或15列。非常感谢你的帮助

您可以使用

偏移量

，但它不稳定，所以我更喜欢

索引

：

=SUM($A1:INDEX(1:1,COLUMN()-1))

---

这意味着从A1求和到第1行的单元格，其索引比公式所在的列少一个。

您可以使用

偏移量

，但它是可变的，因此我更喜欢

索引

：

=SUM($A1:INDEX(1:1,COLUMN()-1))

---

这意味着从A1求和到第1行的单元格，其索引比公式所在的列少一个。

您可以使用

偏移量

，但它是可变的，因此我更喜欢

索引

：

=SUM($A1:INDEX(1:1,COLUMN()-1))

---

这意味着从A1求和到第1行的单元格，其索引比公式所在的列少一个。

您可以使用

偏移量

，但它是可变的，因此我更喜欢

索引

：

=SUM($A1:INDEX(1:1,COLUMN()-1))

---

这表示从A1求和到第1行的单元格，该单元格的索引比公式所在的列少一个。

非常感谢！这很好用，我很抱歉今天早上太慢了，但是我怎样才能让它循环呢？这是我的密码。我有一个标题行，所以我从A2开始。再次感谢您的帮助！Cells.Find（What:=“会话之和”，After:=ActiveCell，LookIn:=xlFormulas，LookAt:=xlWhole，SearchOrder:=xlByRows，SearchDirection:=xlNext，MatchCase:=False，SearchFormat:=False）。激活ActiveCell.Offset（1，0）。范围（“A1”）。选择Do直到ActiveCell.Offset（1，1）=空的ActiveCell.FormulaR1C1=“=Sum（A2:索引（2:2，列（）-1））”也很抱歉有这么多的评论。我确实完成了代码中的循环，我的意思是，当这是循环时，它显然只计算第2行。非常感谢！这非常有效，我为今天早上的慢表示歉意，但是我如何才能让它循环？这是我的代码。我有一个标题行，所以我从A2开始。非常感谢ain需要您的帮助！Cells.Find（What:=“会话之和”，After:=ActiveCell，LookIn:=xlFormulas，LookAt:=xlWhole，SearchOrder:=xlByRows，SearchDirection:=xlNext，MatchCase:=False，SearchFormat:=False）。激活ActiveCell.Offset（1，0）。范围（“A1”）。选择Do直到ActiveCell.Offset（1，1）=Empty ActiveCell.FormulaR1C1=“=SUM（A2:索引（2:2，列（）-1））”也很抱歉有这么多的评论。我确实完成了代码中的循环，我的意思是，当这是循环时，它显然只计算第2行。非常感谢！这非常有效，我为今天早上的慢表示歉意，但是我如何才能让它循环？这是我的代码。我有一个标题行，所以我从A2开始。非常感谢ain需要您的帮助！Cells.Find（What:=“会话之和”，After:=ActiveCell，LookIn:=xlFormulas，LookAt:=xlWhole，SearchOrder:=xlByRows，SearchDirection:=xlNext，MatchCase:=False，SearchFormat:=False）。激活ActiveCell.Offset（1，0）。范围（“A1”）。选择Do直到ActiveCell.Offset（1，1）=Empty ActiveCell.FormulaR1C1=“=SUM（A2:索引（2:2，列（）-1））”也很抱歉有这么多的评论。我确实完成了代码中的循环，我的意思是，当这是循环时，它显然只计算第2行。非常感谢！这非常有效，我为今天早上的慢表示歉意，但是我如何才能让它循环？这是我的代码。我有一个标题行，所以我从A2开始。非常感谢ain需要您的帮助！Cells.Find（What:=“会话之和”，After:=ActiveCell，LookIn:=xlFormulas，LookAt:=xlWhole，SearchOrder:=xlByRows，SearchDirection:=xlNext，MatchCase:=False，SearchFormat:=False）。激活ActiveCell.Offset（1，0）。范围（“A1”）。选择Do直到ActiveCell.Offset（1，1）=Empty ActiveCell.FormulaR1C1=“=SUM（A2:INDEX（2:2，COLUMN（）-1））”也很抱歉有这么多注释。我确实完成了代码中的循环，我的意思是，在循环时，它显然只计算第2行。