data arranging

Hi,

I have data from an old instrument coming off in an awkward format and i need to graph and process 100's of files.

The file format is some redundant text of sampling time, description, and the raw data in the following format:

COLUMN NO.
1 2 3 4
ROW1 50 25 60 20
ROW2 25 12 45 23
ROW3 16 16 50 12

We need to plot this raw data (y axis) against a fixed time domain (x axis), for each replicate (1-15 replicates). Please find attached a xls file of what I am trying to do.

Time Intensity
0 50
0.1 25
0.2 60
0.3 20
0.4 25
0.5 12
0.6 45
0.7 23
ETC. ETC.

I really need some help on this as we have a grant related deadline for this data and my macro skills are not the best

Help please :-)

Not sure what you want doing with the time:

Sub x()

Dim rng As Range

Set rng = Sheet1.Range("A6").Resize(, 4)
Do While Len(rng(1, 1)) > 0
    rng.Copy
    Sheet2.Cells(Rows.Count, "C").End(xlUp)(2).PasteSpecial Transpose:=True
    Set rng = rng.Offset(1)
Loop

End Sub

Hi,
Thank you for the reply and sorry for the delay in replying. The time part of the data is always fixed so the column of intensity data (y) that is rearranged is plotted against the time domain (x) using a xy plot.

Best,

Frank

Hi,

It would be great to get this macro to know that there is three lines of text for every sample data which i want keep with the data. I need the fixed time domain (see previously attached xls file) in column A and plot it against all sample data that we are rearranging.

It would be if the macro would continue to move down the worksheet and process each sample replicate until it reaches the end of the data set.
Then place 2nd replicate in column b,c,d etc.

Best,

Frank.