ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   need advice (https://www.excelbanter.com/excel-programming/352412-need-advice.html)

Sergo

need advice
 

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


Tom Ogilvy

need advice
 
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





All times are GMT +1. The time now is 10:53 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com