Matlab趋势线公式引用,批量提取excel中图表趋势线的公式中的斜率 - 程序语言 - 小木虫 - 学术 科研 互动社区...

解决办法

将以前的数据复制到一个新的xls中，并保存，贴在shee1t中，这样就去除了以前的chart图。在sheet1中，运行下面的vba 宏 就可以了。主要是调用LinEst函数得出拟合的参数。

Sub 保存结果()

'''''删除空的、不需要计算的列

Dim clu1, i, j As Integer

Dim rowzong As Integer

For j = 1 To 3

For i = 1 To 100 / j

If Cells(1, i).Value = "" Then ''''判断该列的第一个单元格无数据，则删除该列

Cells(1, i).EntireColumn.Delete

End If

Next i

Next j

''''''计算斜率存储到sheet2中

For i = 1 To 20 Step 1 ''''i为列数

''''计算有效行数存储到j中

j =Worksheets("sheet1&quot.Range(Chr(64 + i) & "65535&quot.End(xlUp).Row

If Worksheets("sheet1&quot.Range(Chr(64 + i) & "1&quot <> "" Then

'''必须有sheet2，让结果保存在sheet2中的B列，A列说明是那一列计算的结果。

Worksheets("sheet2&quot.Range("A" & Int(i) + 1) = Chr(64 + i) & "列"

Worksheets("sheet2&quot.Range("B" & Int(i) + 1) = Application.WorksheetFunction.Index

(Application.WorksheetFunction.LinEst(Worksheets("sheet1&quot.Range(Chr(64 + i) & "1:" & Chr(64 + i) & j), ,

True, False), 1)

End If

Next i

End Sub，