Удаление букв перед цифрами

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление букв перед цифрами (Формулы/Formulas)

alia_i-88

Дата: Пятница, 28.03.2014, 17:07 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день. нужна помощь!
Есть данные в ячейке, необходимо удалить буквы, стоящие перед цифрами.
Можно ли это сделать с помощью формул?

К сообщению приложен файл: _1.xlsx (12.0 Kb)

Сообщение отредактировал alia_i-88 - Пятница, 28.03.2014, 17:09

Ответить

Hugo

Дата: Пятница, 28.03.2014, 17:16 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3742

Репутация: 797 ±

Замечаний: 0% ±

365

Если всегда 2 (или 3) буквы то можно так (UDF):
[vba]

Код

Function ik(s As String)
          Dim arr, i As Long
          arr = Split(s, ",")
          For i = 0 To UBound(arr)
              arr(i) = Mid(Trim(arr(i)), 3)
          Next
          ik = Trim(Join(arr, ","))
End Function

[/vba]
Или даже так:
[vba]

Код

Function ik(s As String)
     Dim arr, i As Long: arr = Split(s, ",")
     For i = 0 To UBound(arr): arr(i) = Trim(Mid(Trim(arr(i)), 3)): Next
     ik = Trim(Join(arr, "," & vbLf))
     ik = Left(ik, Len(ik) - 2)
End Function

[/vba]
и ячейке поставить в формате перенос по строкам. Но всё тогда не помещается в видимой части...