vba - 引用列号VBA的求和函数

Question

我需要在Sum函数中按数字引用列(即列B = 2，C = 3，E = 5等)

我尝试了这段代码，但是没有用(COLN是从列表框索引中读取的列号)

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

我也更喜欢使用FormulaR1C1 cos这个函数需要应用于其余的行(即下一个单元格将是F3:F6的总和，依此类推)

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

Answer 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)))