引用列号 VBA 的 Sum 函数

【问题标题】：Sum function referenced to column number VBA引用列号 VBA 的 Sum 函数
【发布时间】：2014-09-26 00:04:36
【问题描述】：

我需要在 Sum 函数中按数字引用列（即 B 列 =2、C=3、E=5 等）

我尝试了这段代码，但它不起作用（ColN 是从列表框索引中读取的列号）

Range("M5") = WorksheetFunction.Sum(Range(ColN& "2" : ColN&"5"))) '(F2:F5) for example

我也更喜欢使用 formulaR1C1 因为这个函数需要应用于其余的行（即下一个单元格将是 F3:F6 的总和等等）

我们将不胜感激所有帮助解决问题的人。

【问题讨论】：

标签： vba excel syntax syntax-error

【解决方案1】：

你可以这样做：

Range("M5") = WorksheetFunction.Sum(Range(Cells(2, 6), Cells(5, 6)))

Cells 函数接受行和列参数，这类似于您想要的 R1C1 表示法。在这种情况下，6 表示第 6 列，即F 列。在您的情况下，您将 colN 作为列号，因此您可以这样做：

'Dim colN As Long
'colN = 6 ' read from a listbox index in your case, for example
Range("M5") = WorksheetFunction.Sum(Range(Cells(2, colN), Cells(5, colN)))

【讨论】：