Collating columns and rows to one columns

[Dougie13]

I have data in columns A through to J (i.e. 10 columns) and rows 1 t
400. So there is a huge block of data. I need to purely move the dat
in columns B to J (in sequence) so they sit under just one column A.

In other words I will have a long column A comprising of the same dat
but all in one column, which will end up being 4000 rows long.

I wondered if there was a quick way to do this? I have no experience o
scripts or anything like that so would appreciate a dummies approach t
this.

Thank

 

[Spencer101]

I have data in columns A through to J (i.e. 10 columns) and rows 1 t
400. So there is a huge block of data. I need to purely move the dat
in columns B to J (in sequence) so they sit under just one column A.

In other words I will have a long column A comprising of the same dat
but all in one column, which will end up being 4000 rows long.

I wondered if there was a quick way to do this? I have no experience o
scripts or anything like that so would appreciate a dummies approach t
this.

Thanks

Hi,

4000 rows of data would probably be quicker to manipulate in this wa
manually than it would be to write some kind of formula/VBA.

How often do you need to do this

 

[Dougie13]

Hi,

4000 rows of data would probably be quicker to manipulate in this wa
manually than it would be to write some kind of formula/VBA.

How often do you need to do this?

Hi, well I forgot to mention I have about 20 worksheets of the same typ
which all need collating into one column in each worksheet. To add,
get this about twice a month so a formula would be of great help, doin
in manually is undesirable really.

Thank

 

[Gord Dibben]

A macro could be much faster when doing that many sheets.

Sub OneColumnV2()
''''''''''''''''''''''''''''''''''''''''''
'Macro to copy columns of variable length'
'into 1 continous column in a new sheet '
'Modified 17 FEb 2006 by Bernie Dietrick
''''''''''''''''''''''''''''''''''''''''''
Dim iLastcol As Long
Dim iLastRow As Long
Dim jLastrow As Long
Dim ColNdx As Long
Dim ws As Worksheet
Dim myRng As Range
Dim ExcludeBlanks As Boolean
Dim myCell As Range

ExcludeBlanks = (MsgBox("Exclude Blanks", vbYesNo) = vbYes)
Set ws = ActiveSheet
iLastcol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
On Error Resume Next

Application.DisplayAlerts = False
Worksheets("Alldata").Delete
Application.DisplayAlerts = True

Sheets.Add.Name = "Alldata"

For ColNdx = 1 To iLastcol

iLastRow = ws.Cells(ws.Rows.Count, ColNdx).End(xlUp).Row

Set myRng = ws.Range(ws.Cells(1, ColNdx), _
ws.Cells(iLastRow, ColNdx))

If ExcludeBlanks Then
For Each myCell In myRng
If myCell.Value <> "" Then
jLastrow = Sheets("Alldata").Cells(Rows.Count, 1) _
.End(xlUp).Row
myCell.Copy
Sheets("Alldata").Cells(jLastrow + 1, 1) _
.PasteSpecial xlPasteValues
End If
Next myCell
Else
myRng.Copy
jLastrow = Sheets("Alldata").Cells(Rows.Count, 1) _
.End(xlUp).Row
myCell.Copy
Sheets("Alldata").Cells(jLastrow + 1, 1) _
.PasteSpecial xlPasteValues
End If
Next

Sheets("Alldata").Rows("1:1").entirerow.Delete

ws.Activate
End Sub


Gord

 

[Dougie13]

;1603147']A macro could be much faster when doing that many sheets.

Sub OneColumnV2()
''''''''''''''''''''''''''''''''''''''''''
'Macro to copy columns of variable length'
'into 1 continous column in a new sheet '
'Modified 17 FEb 2006 by Bernie Dietrick
''''''''''''''''''''''''''''''''''''''''''
Dim iLastcol As Long
Dim iLastRow As Long
Dim jLastrow As Long
Dim ColNdx As Long
Dim ws As Worksheet
Dim myRng As Range
Dim ExcludeBlanks As Boolean
Dim myCell As Range

ExcludeBlanks = (MsgBox("Exclude Blanks", vbYesNo) = vbYes)
Set ws = ActiveSheet
iLastcol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
On Error Resume Next

Application.DisplayAlerts = False
Worksheets("Alldata").Delete
Application.DisplayAlerts = True

Sheets.Add.Name = "Alldata"

For ColNdx = 1 To iLastcol

iLastRow = ws.Cells(ws.Rows.Count, ColNdx).End(xlUp).Row

Set myRng = ws.Range(ws.Cells(1, ColNdx), _
ws.Cells(iLastRow, ColNdx))

If ExcludeBlanks Then
For Each myCell In myRng
If myCell.Value <> "" Then
jLastrow = Sheets("Alldata").Cells(Rows.Count, 1) _
.End(xlUp).Row
myCell.Copy
Sheets("Alldata").Cells(jLastrow + 1, 1) _
.PasteSpecial xlPasteValues
End If
Next myCell
Else
myRng.Copy
jLastrow = Sheets("Alldata").Cells(Rows.Count, 1) _
.End(xlUp).Row
myCell.Copy
Sheets("Alldata").Cells(jLastrow + 1, 1) _
.PasteSpecial xlPasteValues
End If
Next

Sheets("Alldata").Rows("1:1").entirerow.Delete

ws.Activate
End Sub


Gord

On Mon, 25 Jun 2012 21:35:40 +0000, Dougie13

Spencer101;1603115 Wrote: -

Hi, well I forgot to mention I have about 20 worksheets of the sam type
which all need collating into one column in each worksheet. To add, I
get this about twice a month so a formula would be of great help doing
in manually is undesirable really.

Thanks-

Thanks Gord for your work here, it's much appreciated but I'm afrai
I've no idea what to do with this? Do I have to type it out somewhere.
Apologies but I'm very inexperienced in excel

 

[Gord Dibben]

If you're not familiar with VBA and macros, see David McRitchie's site
for more on "getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

or Ron de De Bruin's site on where to store macros.

http://www.rondebruin.nl/code.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic
Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run or edit the macro by going to Tool>Macro>Macros.

You can also assign this macro to a button or a shortcut key combo.


Gord

;1603147']A macro could be much faster when doing that many sheets.

Sub OneColumnV2()
''''''''''''''''''''''''''''''''''''''''''
'Macro to copy columns of variable length'
'into 1 continous column in a new sheet '
'Modified 17 FEb 2006 by Bernie Dietrick
''''''''''''''''''''''''''''''''''''''''''
Dim iLastcol As Long
Dim iLastRow As Long
Dim jLastrow As Long
Dim ColNdx As Long
Dim ws As Worksheet
Dim myRng As Range
Dim ExcludeBlanks As Boolean
Dim myCell As Range

ExcludeBlanks = (MsgBox("Exclude Blanks", vbYesNo) = vbYes)
Set ws = ActiveSheet
iLastcol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
On Error Resume Next

Application.DisplayAlerts = False
Worksheets("Alldata").Delete
Application.DisplayAlerts = True

Sheets.Add.Name = "Alldata"

For ColNdx = 1 To iLastcol

iLastRow = ws.Cells(ws.Rows.Count, ColNdx).End(xlUp).Row

Set myRng = ws.Range(ws.Cells(1, ColNdx), _
ws.Cells(iLastRow, ColNdx))

If ExcludeBlanks Then
For Each myCell In myRng
If myCell.Value <> "" Then
jLastrow = Sheets("Alldata").Cells(Rows.Count, 1) _
.End(xlUp).Row
myCell.Copy
Sheets("Alldata").Cells(jLastrow + 1, 1) _
.PasteSpecial xlPasteValues
End If
Next myCell
Else
myRng.Copy
jLastrow = Sheets("Alldata").Cells(Rows.Count, 1) _
.End(xlUp).Row
myCell.Copy
Sheets("Alldata").Cells(jLastrow + 1, 1) _
.PasteSpecial xlPasteValues
End If
Next

Sheets("Alldata").Rows("1:1").entirerow.Delete

ws.Activate
End Sub


Gord

On Mon, 25 Jun 2012 21:35:40 +0000, Dougie13

Spencer101;1603115 Wrote: -
Hi,

4000 rows of data would probably be quicker to manipulate in this way
manually than it would be to write some kind of formula/VBA.

How often do you need to do this?-

Hi, well I forgot to mention I have about 20 worksheets of the same type
which all need collating into one column in each worksheet. To add, I
get this about twice a month so a formula would be of great help, doing
in manually is undesirable really.

Thanks-

Thanks Gord for your work here, it's much appreciated but I'm afraid
I've no idea what to do with this? Do I have to type it out somewhere.
Apologies but I'm very inexperienced in excel.