excel vba增加一个范围

Question

For i = 10 to 21

    c = WorksheetFunction.SumIfs(Worksheets("Input").Range("J:J"), Worksheets("Input").Range("A:A"), "Sales ValueExternal", Worksheets("Input").Range("H:H"), "Europe")

Next i

在这段代码中，我想将Range（“J：J”）从“J：J”增加到“U：U”。 我试用了Cells ：

c = WorksheetFunction.SumIfs(Worksheets("Input").Cells(1, i), Worksheets("Input").Range("A:A"), "Sales ValueExternal", Worksheets("Input").Range("H:H"), "Europe")

我收到了一个错误

我也尝试了Range(Chr(Asc("J")+1) 。

Answer 1

不知道它是否解决了您的问题，但VBA中For-Loop的语法是：

Dim i as Integer
For i=0 To 20 Step 1

Next

Answer 2

保持语法的一种方法是将Range("J:J")更改为Columns(i)

For i = 10 to 21

    c = WorksheetFunction.SumIfs(Worksheets("Input").Columns(i), Worksheets("Input").Range("A:A"), "Sales ValueExternal", Worksheets("Input").Range("H:H"), "Europe")

Next i