Creating multiple series chart without hand selecting each dataset

[sophie619]

First time poster here, but I've checked out the cross posting info and hope am doing it correctly. Please let me know if I'm not doing it the correct way, and I will try my best to correct it. I didn't get any replies in the other forum.

Original thread link:
Creating multiple series chart without hand selecting each dataset
Please post replies at the original link, or if you are not registered, let me know and I will post it there and mark both of them solved.

I've been working in Excel for awhile, but not with such large datasets. I'm starting to learn VBA also, but was looking to do this without it, if possible. After searching google, I don't think it's possible, but maybe you all can help me.

Is there an easy way to create a chart with multiple series, but not actually put each of the series in manually?

The problem is that I have 2 columns that I want to plot, but each series could be 1 point or many points. Each series is represented in the example workbook by a letter (j,k,m,n) and then I'd like to plot (3,9) as if it were an (x,y) pair.

j	3	9
j	4	4
j	45	2
k	23	4
k	3	3
k	65	54
k	7	60
m	3	46
n	7	54

<tbody>
</tbody>

The reason I would like to not select all these by hand is that there are about 100 different series (which I would not put all on the same graph) and I'm going to have to do this on multiple spreadsheets for different data sets.

Thanks in advance!

 

[sophie619]

I've written some rough pseudo code, maybe someone can help me turn this into a macro?

I'm trying to capture x data and y data for each series in an array, so that I can use the SERIES function to graph them.

Here's the code:

For Each row In column A <> empty 
    For i=1 To 100 
        If (row In column A) = i 
        xsubi=xsubi+B(row) (this needs To be an array that can grow.  Do I need To know how big it can possibly get, Or Is it possible To create this dynamically?) 
        ysubi=ysubi+C(row) (same As above) 
        go To Next row 
    End If 
    End For i 
    go To Next row 
    End For