You could do something like

Sub ABC()
Dim v as Variant, i as Long
Dim j as Long, k as Long
v = Range("A1:G1").Value
k = 1
for i = 1 to ubound(v,2)
for j = i to i + 2
cells(1,k).Value = v(1,j)
k = k + 1
next j
Next i
End Sub

--
Regards,
Tom Ogilvy



"Sergo" wrote in
message ...

Could please anyone help me with problem:

I have data row a,b,c,d,e,f,g......
I need to transform it using some functions in Excel to the following
row:
a,b,c, b,c,d, c,d,e, d,e,f ... etc.

Appreciate any advice


--
Sergo
------------------------------------------------------------------------
Sergo's Profile:
http://www.excelforum.com/member.php...o&userid=31188
View this thread: http://www.excelforum.com/showthread...hreadid=508580