Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как оставить в ячейке только нужный текст
 
Здравствуйте! Сразу извинюсь, если повторяюсь, поиском ответ на вопрос не нашел. Буду рад, если кто-то сможет помочь.

У меня такой вопрос:
Есть столбец данных с произвольным текстом, в подавляющем большинстве ячеек встречается одна и та же комбинация данных:
набор!
 слов что-то: еще данные 45 пробел 56 Морковка - 1. Капуста - 17. Свекла -
 3в34в35467 пробел данные ;текст символы
набор Морковка - 32. Капуста - 3. Свекла - 6 ! слов что-то: еще
 данные 45 пробел 56 пробел данные
 ;текст символы
набор! слов что-то: еще данные 45 пробел 56 пробел данные ;текст Морковка - 4. Капуста
 - 56. Свекла - 3к4567 символы
Каким образом можно оставить в ячейках только необходимые данные, чтобы таблица выглядела так:
Морковка - 1. Капуста - 17. Свекла - 3в34в35467
Морковка - 32. Капуста - 3. Свекла - 6
Морковка - 4. Капуста - 56. Свекла - 3к4567
Данные, которые должны остаться, всегда имеют формат:  Морковка - "любое значение". Капуста - "любое значение". Свекла - "любое значение"
При этом "любое значение" не более 20 символов.
 
Код
Function morkovka(s As String)
    Dim krit$, arr, i&, out$
    krit = " Морковка Капуста Свекла "
    arr = Split(s)
    For i = 0 To UBound(arr) - 2
        If InStr(krit, " " & arr(i) & " ") Then out = out & " " & arr(i) & " " & arr(i + 1) & " " & arr(i + 2)
    Next
    morkovka = Mid(out, 2)
End Function

Страницы: 1
Читают тему (гостей: 1)