Aqui está uma solução VBA.
Instruções: cole seu texto na coluna A e execute este código VBA.
Sub ParseData()
Dim counter As Long
counter = 2
For Each cell In Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))
If Left(Trim(cell), 19) = "Mean Absolute Error" Then
Cells(counter, 3) = Mid(cell, InStr(1, cell, ":") + 1, InStr(1, cell, "/") - InStr(1, cell, ":") - 1)
End If
If InStr(1, cell, "Root Mean Squared Error:") > 0 Then
Cells(counter, 4) = (Mid(cell, InStr(1, cell, "Root Mean Squared Error:") + 25, 30))
counter = counter + 1
End If
Next
End Sub
Aviso: esteja ciente da limitação da precisão decimal do Excel, porque ela é cortada após 11 pontos decimais.