Every 3rd column?

[Tom]

Is there a way of creating a column of data such that it comes from every
nth column in a given row?

For example, I want to put values as follows:

Put the value from B1 into I4
Put the value from E1 into I5
Put the value from H1 into I6
etc.


Thanks,

Tom

 

[Bob Phillips]

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

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Frank Kabel]

Hi
a non VBA approach: put the following in I4
=OFFSET($B$1,0,(ROW()-4)*3)
and copy down

 

[Tom]

Hi
a non VBA approach: put the following in I4
=OFFSET($B$1,0,(ROW()-4)*3)
and copy down

Thanks to all who replied. I used Frank's approach and it worked great!

--Tom