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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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