Split Curves

[develaavi]

Hello all,
Iam student and for a lab test I need to solve about 450 excel sheets for my project.
The spreadsheet has X and Y data and curve is plotted. I need to split the curves into 3 parts based on major slope change and fit a trendline.
I can do it manually but I need an excel Macro which does this work. Iam trying for trendline with Rsquare >0.95 for all curves. How to do it with a vba, I want the idea. I can then write the code.

A sample is attached.

X Y[TABLE="width: 141"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]0[/TD]
[TD]0[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]20[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]70[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]110[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]120[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]135[/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]145[/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]160[/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]170[/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD]180[/TD]
[/TR]
[TR]
[TD]11[/TD]
[TD]190[/TD]
[/TR]
[TR]
[TD]12[/TD]
[TD]200[/TD]
[/TR]
[TR]
[TD]13[/TD]
[TD]210[/TD]
[/TR]
[TR]
[TD]14[/TD]
[TD]220[/TD]
[/TR]
[TR]
[TD]15[/TD]
[TD]230[/TD]
[/TR]
[TR]
[TD]16[/TD]
[TD]240[/TD]
[/TR]
[TR]
[TD]17[/TD]
[TD]250[/TD]
[/TR]
[TR]
[TD]18[/TD]
[TD]260[/TD]
[/TR]
[TR]
[TD]19[/TD]
[TD]270[/TD]
[/TR]
[TR]
[TD]21[/TD]
[TD]280[/TD]
[/TR]
[TR]
[TD]22[/TD]
[TD]290[/TD]
[/TR]
[TR]
[TD]23[/TD]
[TD]300[/TD]
[/TR]
[TR]
[TD]26[/TD]
[TD]310[/TD]
[/TR]
[TR]
[TD]29[/TD]
[TD]325[/TD]
[/TR]
[TR]
[TD]30[/TD]
[TD]335[/TD]
[/TR]
[TR]
[TD]32[/TD]
[TD]345[/TD]
[/TR]
[TR]
[TD]34[/TD]
[TD]355[/TD]
[/TR]
[TR]
[TD]39[/TD]
[TD]365[/TD]
[/TR]
[TR]
[TD]44[/TD]
[TD]375[/TD]
[/TR]
[TR]
[TD]50[/TD]
[TD]385[/TD]
[/TR]
[TR]
[TD]58[/TD]
[TD]395[/TD]
[/TR]
[TR]
[TD]66[/TD]
[TD]405[/TD]
[/TR]
[TR]
[TD]73[/TD]
[TD]415[/TD]
[/TR]
[TR]
[TD]81[/TD]
[TD]425[/TD]
[/TR]
[TR]
[TD]91[/TD]
[TD]435[/TD]
[/TR]
</tbody>[/TABLE]

 

[shg]

If you use a 4th-order polynomial, R2 = 0.995

 

[develaavi]

If you use a 4th-order polynomial, R2 = 0.995

No sir,
These are different soil layers for which strengths are different. These strengths are found out using the slopes of trendlines eq.
So curves should be split based on rsquares of trendlines. I found by adding each xy point to check Rsquare value. When this values is less than 0.95, I decide this to be a single layer. I then start adding a new series ​and then follow the same.

 

[develaavi]

Split Curves

 

[develaavi]

Split a Curve - Vba Macro