vba - loop offset merged columns

[noidea23]

hello! i have to loop through specific columns because some columns are merged. In the code below, i am not sure how to resolve the part on "For j = 1,5,7,13,17". i need the code to run only columns 1,5,7,13,17. Any help will be greatly appreciated!

For k = 1 to N # to loop rows
For j = 1, 5,7,13,17 # to loop specific columns because some are merged
If IsNumeric(ActiveCell.Offset(k, j)) Then
Do something
End If
Next j
Next k

 

[severynm]

Hi! For loops are fundamentally not designed for irregular iteration. You could:

1. Use if statements or a select case statement to increment the index depending on the current value or index
2. If you truly will always only do 5 iterations, just ditch the loop entirely and repeat the code operation 5 times (or better, move the code to its own sub and pass a parameter from for the row, and call it 6 different times with a different parameter).

If you go with 1, you might end up with something like

    For k = 1 To n
        For j = 1 To 17
            Debug.Print j
            Select Case j
                Case 1
                    j = j + 3 'Increment one less than we want because the loop adds +1
                Case 5
                    j = j + 1
                Case 7
                    j = j + 5
                Case 13
                    j = j + 3
            End Select
        Next j
    Next k

 

[Marc L]

Hello !​

​

Just using a For Each loop on an array like For Each V In [{1,5,7,13,17}] …​