Отсечь лишнее в ячейке

[Iskin]

Здравствуйте! Есть числа. Например: 1/1287,000 или 22/23,560. Нужно чтобы функция, отсекла все ненужное до знака "/" и оставила только числа после "/". т.е. 1287,000 и 23,560

[Eugene-LS]

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

Например: 1/1287,000 или 22/23,560. Нужно чтобы функция, отсекла все ненужное до знака "/" и оставила только числа после "/". т.е. 1287,000 и 23,560

Например так:

Public Function GetNumberFromString(vCellValue, Optional sSeparator As String = "/") As Currency
Dim vVal, iVal%
On Error GoTo GetNumberFromString_Err
    iVal = InStr(1, vCellValue & "", sSeparator)
    If iVal > 0 Then
        vVal = Mid(vCellValue, iVal + 1)
    Else
        vVal = vCellValue
    End If
    If IsNumeric(vVal) Then GetNumberFromString = CCur(vVal)
    Exit Function

GetNumberFromString_Err:
    Err.Clear
End Function

Формула в ячейке результата: =GetNumberFromString(A1)
Поддерживается до 4-х знаков после запятой.

[сфинкс]

=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ("/";A1))

ввёл контрольные
1/1287,000
22/23,560
66/7881.687

и вижу
1287,000
23,560
7881.687


https://www.youtube.com/watch?v=I0QV2AZ5W5E

[Iskin]

Спасибо!