View Single Post
  #5   Report Post  
BK
 
Posts: n/a
Default

Many Thanks Gord! This website is very helpful.

"Gord Dibben" wrote:

BK

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 Dibben Excel MVP


On Tue, 3 May 2005 05:27:02 -0700, "BK" wrote:

You assumed correctly. For this application, I will not need to use all 256
columns. I'm new to macros. Could you explain where I should put the
program or kindly refer me where I can learn more about them? Thanks for
your help.

"Otto Moehrbach" wrote:

I would use a macro something like the following. I assumed that your data
was in Columns A & B starting in A1 and that you wanted everything in Row 1.
Don't forget that you have only 256 columns on the sheet. I didn't write in
any error trap for running out of columns. HTH Otto
Sub ShuffleData()
Dim RngA As Range
Dim i As Range
Set RngA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For Each i In RngA
i.Resize(, 2).Copy [A1].End(xlToRight).Offset(, 1)
i.Resize(, 2).ClearContents
Next i
End Sub
"BK" wrote in message
...
I have the following spreadsheet:

1 a
2 b
3 c
4 d

I would like to have this format:
1 a 2 b 3 c 4 d

Any suggestions would be greatly appreciated!!