От числа удалить буквы

[valerij]

Всем Привет!!
Подскажите в макросе
a(i, 2) = Split(a(i, 2))(5)
получаю значение
МРЛ00000862
а мне надо
862
т. е удалить МРЛ

[motorway]

a = Int(Mid(a, 4))

[alex77755]

Вопрос не однозначен!!!
Надо удалить три первых буквы? Или три первых символа?
Если буквы, то с учётом регистра?

[Казанский]

Фейерверк вариантов http://www.planetaexcel.ru/forum.php?thread_id=32695

[valerij]

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

a = Int(Mid(a, 4))

Я думал, что можно от Split(a(i, 2))(5) - Int(Mid(a, 4)) отнять чета, типа(красным), а вспомнил, что с массивами так нельзя.
Приведу весь, почти, код

a = Range(.Cells(strow + 1, 2), .Cells(endrow - 1, 5)).Value
     For i = 1 To UBound(a)
          If a(i, 4) <> "" Then
               a(i, 2) = Split(a(i, 2))(5)
           Else
               a(i, 2) = 0
          End If
      Next
 With ThisWorkbook.Sheets(1)
        .Range(.Cells(dov, 1), .Cells(dov + UBound(a) - 1, 4)).Value = a
 End With

Это буквы по крайней мере в течение года не меняются, они в формате как я показал.
В оригинале так, без кавычек:
"Реализация товаров и услуг № МРЛ00000862 от 03 01 2012"
все остальное удаляется.

Макрос работал для такого вида оригинала
"Реализация товаров и услуг № 295709 от 02 12 2011"
Остается, синим

[doober]

Лови Валера

    Public Function Kvitok(ByVal s) As Long'вдруг миллионами  булочки продавать будете

bRes = False
  Set RegExp = CreateObject("VBScript.RegExp")
  RegExp.Global = False
    RegExp.IgnoreCase = True
    RegExp.Pattern = "\d{8}"
    bRes = RegExp.test(s)
        If bRes Then
            Set oMatches = RegExp.Execute(s)
            Set oMatch = oMatches(0)
            Kvitok = oMatch
         Exit Function
        End If
      Kvitok = 0
    End Function

ff = Kvitok("Реализация товаров и услуг № МРЛ00000862 от 03 01 2012")

результат 862

[valerij]

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

Лови Валера

Поймал!!!
Сереж, мне же надо что - то добавить к моему коду, я только его часть показал, там двойное открытие разных книг....

Как я твой пришлепну туды???
Может весь показать?

[IgorGO]

Валера, это отдельная функция никуда ее лепить в твой код не надо. положи в модуль и используй в своем коде одну строчку:
хх = Kvitok(cells(r,c))

[valerij]

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

и используй в своем коде одну строчку:
хх = Kvitok(cells(r,c))

А куду, эту строчку вставить, в какое место моего кода?
Что такое r, c?
Сразу ошибка

[RAN.]

заменить строчку

a(i, 2) = Split(a(i, 2))(5)

на

a(i, 2) = Kvitok(a(i, 2))