merge blocks of columns into a single page

p45cal · #2 02-14-2018, 01:02 PM

As a start, try running this code on your sheet. It doesn't change that sheet, it creates a new sheet and puts data there. It's a bit slow.
Is this doing the right thing?

Code:

Sub blah()
  Set mySht = ActiveSheet
  Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
  Set Destn = NewSht.Range("A1")
  For Each rw In mySht.Range("A1").CurrentRegion.Rows
    For i = 0 To 8 Step 4
      rw.Offset(, i).Resize(, 4).Copy Destn
      Set Destn = Destn.Offset(1)
    Next i
  Next rw
End Sub

It would be better if you were to supply a sheet/workbook with data in.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Writing in columns and text blocks	Vazrael	Word	9	08-19-2016 12:20 AM
Merge csv data onto one A4 page containing columns	gerrymac	Word	1	04-17-2016 02:32 PM
Mail merge conditional adress blocks.	Thrizian	Mail Merge	2	07-17-2012 10:41 PM
how to use Building Blocks or controls to add a page	verbster	Word	11	03-06-2011 04:05 PM
moving data from single to multiple columns?	mzimmers	Excel	3	08-23-2010 08:20 AM