move columns to separate worksheets

  • Thread starter Thread starter amanda
  • Start date Start date
A

amanda

Hello,

I have large amounts of imported data that I would like to separate
onto indivual tabs based on the header name. Is there a non-manual
way to do so?

Thanks,
Amanda
 
Sub test()

Set oldsht = ActiveSheet
ColCount = 1
Do While oldsht.Cells(1, ColCount) <> ""
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = oldsht.Cells(1, ColCount).Value
Set newsht = ActiveSheet
oldsht.Columns(ColCount).Copy _
Destination:=newsht.Columns("A:A")

ColCount = ColCount + 1
Loop

End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Combing Student list and Classes they took to one sheet 1
PowerPoint Separate lines (line break) - PowerPoint Footer 1
insert a row when theres change in a row. 6
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
Separating data in the same cell 1
Copy certain rows from one worksheet to another 4
Excel 2011 Mac - Import Worksheets into a Single File 0
Copy data from 1 sheet to multiple worksheets 2

Back
Top