Changing columns of rows to a single column

[irisflower7]

Hi.

I am doing some tedious work which I feel may have an easier excel solution. I have forty text files that have forty-eight rows by 4 columns. A row is a single event with four columns of info for that single event. I opened all the text files in excel and am trasnfering the data to a single spread-sheet. I copied the info from one file and pasted specialed it selecting transpose, now I have forty-eight columns (each containing four rows) in excel. I need all forty-eight columns to be in one column. So column 1 has four rows then column 2 goes directly below column 1 (adding four more rows)...see below for example (doesn't contain all 48 rows)

Data from text file:

5 2 2 3
3 3 3 3
5 3 2 3
7 3 3 1


Data when transposed into excel:

5 3 5 7
2 3 3 3
2 3 2 3
3 3 3 1

But now I need:

5
2
2
3
3
3
3
3
5
3
2
3
7
3
3
1

I am currently using cut and paste for this last step....perhaps someone knows of a more quicker way to do this. There are quite a few text files this needs to be done to.

Thanks for your help.

Ris

 

[tactps]

Welcome.

How about something like this:
Sub CopyPaste()
Range("B1:B4").Select
counter = 1
Do Until counter = 47
ReturnCell = ActiveCell.Address
Selection.Cut
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Range(ReturnCell).Select
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(3, 1)).Select
counter = counter + 1
Loop
Application.CutCopyMode = xlCopy
Range("A1").Select
End Sub