エクセルの散布図の近似式の係数をセルに取り込む

係数を取り出すのは下記のようなコードでどうでしょうか。 使えるようなら、マクロに組み込んでみてください。 Sub test() Dim str As String Dim strv As Variant Dim i As Integer str = "y = 0.0452x5 - 8.6275x4 + 658.58x3 - 25133x2 + 4795.20x - 4E+0.6" strv = Split(str, " ") For i = 0 To UBound(strv) If strv(i) Like "*E+*" Then MsgBox strv(i) Else If Val(strv(i)) > 0 Then MsgBox Val(strv(i)) End If End If Next i End Sub