excel vba приращение a

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 

В этом коде я хочу увеличить диапазон («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

Один из способов, сохраняя свой синтаксис, было бы изменить 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 

Answer 2

Не знаю, если это решить вашу проблему, но и синтаксис для For-Loop в VBA является:

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

Next