merge blocks of columns into a single page

p45cal · #1 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.

GEORGEJUNGCOCAINE · #2 02-16-2018, 07:54 PM

Quote:

Originally Posted by p45cal

As a start

Yet, there's one more operation I need to carry out that I forgot to mention.

I need to divide into two those cells containing a string of Chinese characters follow by a string of Latin ones, which are separated by a space, so that each string of different scripts belong to a different column. These cells always appear in the second colum of a block of four columns.

Supposing one block of four columns, and four rows as a mere example
Captura.JPG

Finally, a new sheet/page of four columns, A-D, would contain all the fixed rows.

Here's the whole document I need to process elastic list.perpage50.xlsx

Please, notice the the last row of each page (number 42, except for the las page 61, which is number 6) just contains merged cells with the number of page, so these rows should not be taken into account, and if possible deleted.

I am afraid I am a newbie, so I trust your recommendations. I hope the whole process can be fully automated.

If any further clarification is necessary, please let me know.

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