Need to Reference a sequence of data on one sheet in another sheet but with 3 rows in between each value

[bwest]

I have a list of values from A1 to A30 on sheet1 and I need it to be displayed on sheet2 but with 3 rows in between each one. For example:

A1, A2, A3 on sheet1 would be

A1, A5, A9 on sheet 2.

 

[VoG]

Try

Sub Xfer()
Dim i As Long
For i = 1 To 30
    Sheets("Sheet2").Range("A" & 4 * i - 3).Formula = "=Sheet1!A" & i
Next i
End Sub

 

[ukmikeb]

Hi

Welcome to the forum.

As a formula try in Sheet 2, cell A1 -

=INDEX(Sheet1!$A$1:$A$30,(ROWS($A$1:$A1)-1)*4+1)

and copied down as far as required

hth