Excel VBA 根据可变数量的单元格向后求和单元格？

Question

我需要编写一个代码，将单元格添加到同一行但向后添加 3 列，然后每个单元格向后添加 4 列一定次数。 我想输入一个数字并让它添加 3 列，然后添加 4 列，就像我在输入框中所说的那样多次。

例如，如果我选择了 range("AS2")，运行宏，然后在输入框中输入 4，则在 AS2 中打印的公式将是“=AP2+AL2+AH2+AD2”。 如果我在输入框中输入 6，AS2 中的公式将是“=AP2+AL2+AH2+AD2+Z2+V2”

到目前为止我正在做的事情是这样的：

I2 = Selection.Column
I3 = 3 'I3 will be changed to inputbox.  practicing adding 2 rows backwards 3 times for now

rngS = Replace(Cells(2, (I2 - 2)).Address, "$", "")
FormulaS = "=" & rngS

For I = 2 To I3

rngS = Replace(Cells(2, I2 - (2 * I)).Address, "$", "")
FormulaS = FormulaS & "+" & rngS

Next I

Cells(2, I2).Value = FormulaS

谢谢，

Answer 1

使用Selection.Column获取所选单元格的列号。 现在，您可以简单地从获得的列号中减去输入值并获得下一个单元格的列号。 现在，您需要使用Cells(Selection.Row, obtainedColumnNumber).Address单元格的地址（如果需要相对引用，请添加False, False ）。 然后，只需将获得的地址用加号连接起来，并在开头添加等号。