Удалить лишнее

[ProoShift]

Есть множество ячеек с данными типа "2014-05-15,86.84,86.90,85.69,85.74,3877100, 82.78017"
Нужно каким-то образом превратить этот текст в другой, который является всем, что стоит после последней запятой. В данном случае это 82.78017.
Количество запятых всегда 7, но количество знаков по обе стороны вариируется.
Помогите)

[ProoShift]

Нужно срочно, через пару часов сдаю дипломную((

[Hugo121]

Каким образом нужно?
Можно с помощью формулы, можно макросом, можно вручную разбив по столбцам.

[ProoShift]

Сообщение от Hugo121

Каким образом нужно?
Можно с помощью формулы, можно макросом, можно вручную разбив по столбцам.

Макросом, если можно

[Hugo121]

Можно макросом, можно UDF - тут оба, макрос использует UDF, но её можно использовать на листе.

Option Explicit

Sub tt()
Dim c As Range
    For Each c In Selection.Cells
        c = SubstringRev(c, ",", 1)
    Next
End Sub


Function SubstringRev(Txt, Delimiter, N) As String
    Dim x As Variant
    x = Split(Txt, Delimiter)
    If N > 0 And N - 1 <= UBound(x) Then
        SubstringRev = x(UBound(x) - (N - 1))
    Else
        SubstringRev = ""
    End If
End Function