I have a set of 2001 data points in 3 columns:
1 2 3
4 5 6
7 8 9
10 11 ..
and I want to convert it to 9 columns:
1 2 3 4 5 6 7 8 9
10 11 ..
Is there any way I can do this?
Big thanks to anyone who can help.
Sub sample2()
Dim i, n As Long
Application.ScreenUpdating = False
n = 4
For i = 1 To Range("a" & Rows.Count).End(xlUp).Row
Cells(i, "d").Resize(, 3).Value = Cells(i + 1, "a").Resize(, 3).Value
Cells(i, "g").Resize(, 3).Value = Cells(i + 2, "a").Resize(, 3).Value
Cells(i + 1, "a").Resize(3, 3).Value = Cells(n, "a").Resize(3, 3).Value
n = n + 3
Next
Application.ScreenUpdating = True
End Sub