Question

I am trying to program a simple loop to run through the user selected values and filter out some number display and the numbers I want in a different column.
I have 10 random numbers in a column in this order:

3
7
10
12
5
2
7
13
9
23

I essentially want to ignore the first value, retrieve the next two values, skip the fourth
value, retrieve the next two values and so on. So my output would be:

7
10
5
2
13
9

All I have is a loop that runs through the column. I think I would have to use the mod() function but I can’t sem to get it right. All I have so far is this empty loop:

Sub findValues()

Do While Cells(x, 3).Value <> "" 'go through values in column 3 until empty cell is encountered
    'skip first value
    'retrieve next two values and put them in different column
    '...
Loop

End Sub

Answer 1

Here’s one solution to do it using a loop and Step 3.

It’s not the fastest or optimized way, but it’s one of many methods that works and this method is rather simplistic. The example assumes that the data is in column A and the new list will be output to column B.

Since you want to skip the first value, I start the loop at A2, then do a Step 3 each loop (but copy over 2 elements, so it’ll always skip the 3rd element).

Sub test()

Application.ScreenUpdating = False
Dim i As Long, j As Long
Dim lastRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
j = 1

For i = 2 To lastRow Step 3
    Cells(j, 2).Value = Cells(i, 1).Value
    Cells(j + 1, 2).Value = Cells(i + 1, 1).Value
    j = j + 2
Next

Application.ScreenUpdating = True
End Sub

Note that using Cells(row, column) is better for looping than Range() notation (and faster, too).