I have a set of data that goes from A1 to A10,000 and I need the data to split into rows every 3 values. So i want A1 to A3 to become B1-B3 and then A4-A6 to become C1-C3. Any idea? Thanks a lot!
I have a set of data that goes from A1 to A10,000 and I need the data to split into rows every 3 values. So i want A1 to A3 to become B1-B3 and then A4-A6 to become C1-C3. Any idea? Thanks a lot!
Last edited by sarahwilson1000; 09-07-2011 at 03:39 PM. Reason: Thanks!
How about...
Sub ColstoRows() Const SR As Long = 1 Const sCol As String = "A" Dim LR As Long Dim LC As Long Dim i As Long LR = Range(sCol & Rows.Count).End(xlUp).Row For i = SR To LR Step 3 LC = Cells(1, Columns.Count).End(xlToLeft).Column + 1 Range(sCol & i).Resize(3).Copy Destination:=Cells(1, LC) Next i End Sub
HTH
Regards, Jeff
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks