Select Cells using STEP in VBA

[jjlafond]

Hello,

I would like to select every other (or ever third/fourth) cell in a row using STEP (or a better method if there is one). Every other cell needs to be selected at the same time (similar to holding ctrl and clicking on multiple cells).


My end goal is to create a line graph (without copying the table and switching rows/columns). I plan on selecting every other cell in a row and setting the graph data range as those selected cells using vba. (The graph will be constantly updated as the human user enters more data into the long row of data.)

Any ideas on how to make this work?

 

[GregHitchon]

Hey There!

This sounds like a case where you might want to reconsider the structure of your data but nonetheless here is a naive looping solution to your issue. Note that it gets slow at about 1-2000 columns on my computer so if you are doing anything longer than that this is not the best approach.

Sub SelectNthCell(inputRange As Range, _
                    Optional inputN As Long = 2)
Dim i As Long
Dim rOutput As Range


'no error handling here
Set rOutput = inputRange.Cells(1)
For i = 1 + inputN To inputRange.Columns.Count Step inputN
    Set rOutput = Union(rOutput, inputRange.Cells(1, i))
Next i


'select cells
rOutput.Select
End Sub