Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old May 2nd 06, 05:39 PM posted to microsoft.public.excel.misc
Tom
 
Posts: n/a
Default Combine the data in 2 columns of 20 rows into one column of 40 row

I want to combine the data in 2 columns each of 2000 rows in to 1 column of
4000 rows. I want the data to end up in the order A1, B1, A2, B2 and so on.
Any help would be great!
Cheers Tom

  #2   Report Post  
Old May 2nd 06, 05:51 PM posted to microsoft.public.excel.misc
NonIllegitimiCarborundum
 
Posts: n/a
Default Combine the data in 2 columns of 20 rows into one column of 40 row

Hi Tom,

In column C, I'd do this:
In C1: =A1
In C2: =B1

Then highlight both C1 & C2 and drag down to C4000. The cell references are
relative, so it'll keep repeating as: A1, B1, A2, B2, etc. Then, I'd copy
column C, then Edit-Paste Special-Values to get rid of the formulae.

Cheers,
Pat

"Tom" wrote:

I want to combine the data in 2 columns each of 2000 rows in to 1 column of
4000 rows. I want the data to end up in the order A1, B1, A2, B2 and so on.
Any help would be great!
Cheers Tom

  #3   Report Post  
Old May 2nd 06, 08:06 PM posted to microsoft.public.excel.misc
Gord Dibben
 
Posts: n/a
Default Combine the data in 2 columns of 20 rows into one column of 40 row

Sub Two_To_One()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
numRows = 1
For R = 2000 To 1 Step -1
ActiveSheet.Rows(R + 1).Resize(numRows).EntireRow.Insert
Next R
Range("B1").Select
Selection.Insert Shift:=xlDown
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 2 May 2006 09:39:02 -0700, Tom wrote:

I want to combine the data in 2 columns each of 2000 rows in to 1 column of
4000 rows. I want the data to end up in the order A1, B1, A2, B2 and so on.
Any help would be great!
Cheers Tom


  #4   Report Post  
Old May 2nd 06, 08:07 PM posted to microsoft.public.excel.misc
Gord Dibben
 
Posts: n/a
Default Combine the data in 2 columns of 20 rows into one column of 40 row

Pat

Did you actually test this method?

Try it and see what the results are.


Gord Dibben MS Excel MVP

On Tue, 2 May 2006 09:51:01 -0700, NonIllegitimiCarborundum
m wrote:

Hi Tom,

In column C, I'd do this:
In C1: =A1
In C2: =B1

Then highlight both C1 & C2 and drag down to C4000. The cell references are
relative, so it'll keep repeating as: A1, B1, A2, B2, etc. Then, I'd copy
column C, then Edit-Paste Special-Values to get rid of the formulae.

Cheers,
Pat

"Tom" wrote:

I want to combine the data in 2 columns each of 2000 rows in to 1 column of
4000 rows. I want the data to end up in the order A1, B1, A2, B2 and so on.
Any help would be great!
Cheers Tom


  #5   Report Post  
Old May 2nd 06, 10:15 PM posted to microsoft.public.excel.misc
Tom
 
Posts: n/a
Default Combine the data in 2 columns of 20 rows into one column of 40

Hi, Pat thanks for trying! its what I tryed first! Excel doesn't like it!
Gord, your reply looks like computer programming to me! If it is how do I go
about using it? Oh I have just thought is it a macro? how do I use it?
Cheers Tom

"Gord Dibben" wrote:

Sub Two_To_One()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
numRows = 1
For R = 2000 To 1 Step -1
ActiveSheet.Rows(R + 1).Resize(numRows).EntireRow.Insert
Next R
Range("B1").Select
Selection.Insert Shift:=xlDown
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 2 May 2006 09:39:02 -0700, Tom wrote:

I want to combine the data in 2 columns each of 2000 rows in to 1 column of
4000 rows. I want the data to end up in the order A1, B1, A2, B2 and so on.
Any help would be great!
Cheers Tom





  #6   Report Post  
Old May 2nd 06, 11:35 PM posted to microsoft.public.excel.misc
Gord Dibben
 
Posts: n/a
Default Combine the data in 2 columns of 20 rows into one column of 40

Tom

Yes, it is VBA code.

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

http://www.mvps.org/dmcritchie/excel/getstarted.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 InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.

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


Gord

On Tue, 2 May 2006 14:15:01 -0700, Tom wrote:

Hi, Pat thanks for trying! its what I tryed first! Excel doesn't like it!
Gord, your reply looks like computer programming to me! If it is how do I go
about using it? Oh I have just thought is it a macro? how do I use it?
Cheers Tom

"Gord Dibben" wrote:

Sub Two_To_One()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
numRows = 1
For R = 2000 To 1 Step -1
ActiveSheet.Rows(R + 1).Resize(numRows).EntireRow.Insert
Next R
Range("B1").Select
Selection.Insert Shift:=xlDown
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 2 May 2006 09:39:02 -0700, Tom wrote:

I want to combine the data in 2 columns each of 2000 rows in to 1 column of
4000 rows. I want the data to end up in the order A1, B1, A2, B2 and so on.
Any help would be great!
Cheers Tom




Gord Dibben MS Excel MVP
  #7   Report Post  
Old May 3rd 06, 09:27 AM posted to microsoft.public.excel.misc
Tom
 
Posts: n/a
Default Combine the data in 2 columns of 20 rows into one column of 40

Top job Gord!
It worked like a charm!
I have lots to learn on excel but I am getting there.
Many thanks -Tom

"Gord Dibben" wrote:

Tom

Yes, it is VBA code.

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

http://www.mvps.org/dmcritchie/excel/getstarted.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 InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.

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


Gord

On Tue, 2 May 2006 14:15:01 -0700, Tom wrote:

Hi, Pat thanks for trying! its what I tryed first! Excel doesn't like it!
Gord, your reply looks like computer programming to me! If it is how do I go
about using it? Oh I have just thought is it a macro? how do I use it?
Cheers Tom

"Gord Dibben" wrote:

Sub Two_To_One()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
numRows = 1
For R = 2000 To 1 Step -1
ActiveSheet.Rows(R + 1).Resize(numRows).EntireRow.Insert
Next R
Range("B1").Select
Selection.Insert Shift:=xlDown
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 2 May 2006 09:39:02 -0700, Tom wrote:

I want to combine the data in 2 columns each of 2000 rows in to 1 column of
4000 rows. I want the data to end up in the order A1, B1, A2, B2 and so on.
Any help would be great!
Cheers Tom



Gord Dibben MS Excel MVP



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Positioning Numeric Values Resulting from 6 Column Array Formula Sam via OfficeKB.com Excel Worksheet Functions 2 January 5th 06 02:03 AM
Help PLEASE! Not sure what answer is: Match? Index? Other? baz Excel Worksheet Functions 7 September 3rd 05 03:47 PM
Arithmetical Mode of Criteria in Multiple Non-Adjacent columns Sam via OfficeKB.com Excel Worksheet Functions 4 July 14th 05 09:15 PM
Removing Near-Duplicate Rows, Leaving Those w/Most Data in Specific Columns foofoo Excel Discussion (Misc queries) 1 April 2nd 05 12:02 AM
Data from a number of rows and columns to one column mark_h82 Excel Discussion (Misc queries) 2 January 15th 05 03:02 AM


All times are GMT +1. The time now is 11:39 AM.

Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright 2004-2019 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017