How to define variable in loop?

[dmadhup]

I have defined variable like this:

Dim sumColumn15, sumColumn16, sumColumn17, sumColumn18, sumColumn19 As Long
sumColumn15 = 0
sumColumn16 = 0
sumColumn17 = 0
sumColumn18 = 0
sumColumn19 = 0

and I want to optimize this:

For i=15 To 19
  Dim sumColumn & i = 0
Next i

But no success. Any help please

 

[Joe4]

I don't think you can do that.
And your original code does not even do what you think it does.

This:

Dim sumColumn15, sumColumn16, sumColumn17, sumColumn18, sumColumn19 As Long

declares sumColumn19 as Long, and the rest are declared as Variant.
Each variable needs to be declared explicitly like this:

Dim sumColumn15 As Long, sumColumn16 As Long, sumColumn17 As Long, sumColumn18 As Long, sumColumn19 As Long

or

Dim sumColumn15 As Long
Dim sumColumn16 As Long
Dim sumColumn17 As Long
Dim sumColumn18 As Long
Dim sumColumn19 As Long

What you are looking to do might require Arrays.
See: https://excelmacromastery.com/excel-vba-array/

 

[Fluff]

You could use an array like

   Dim sumColumn(15 To 19) As Long

As it's declared as long the values are automatically 0

 

[Scott Huish]

You can't do that. Also Dim doesn't go there, it's only used to declare variables.

As you have it written, use arrays.

Sub test()
Dim x As Long, sumColumn(15 To 19) As Long
For x = 15 To 19
    sumColumn(x) = 0
Next
End Sub

Although dimming a variable as Long will default it to 0 anyway.

 

[dmadhup]

Thank you all