Извлечение текста из текстовых строк - из нескольких мест

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Извлечение текста из текстовых строк - из нескольких мест (Формулы/Formulas)

Werwolfik

Дата: Пятница, 04.05.2018, 00:09 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

Добрый вечер.
Подскажите с решением вопроса.

Есть макрос который извлекает текст из строки по разделителям "НОМЕР" и ","
Затем макрос проходится по нескольким ячейкам, складируя найденное в одной ячейке.
Но этот макрос может работать при условии, что текстовый диапазон "НОМЕР...," может встречаться только один раз.
Если таких диапазонов больше - он просто выбирает первый попавшийся, а остальные не замечает.

[vba]

Код

Sub Макрос1 ()
    Dim r As Range
    With CreateObject("VBScript.RegExp")
        .Global = True
        .IgnoreCase = True
        .Pattern = "НОМЕР(.+?)(?=,)"
        For Each r In [G190:G208]
            If .test(r) Then
                Range("J189") = Range("J189") & "-" & .Execute(r)(0).SubMatches(0)
            End If
        Next
    End With

[/vba]

Как научить макрос извлекать все куски текста, если текстовый диапазон "НОМЕР...," может встречается в каждой строке по нескольку раз ?

К сообщению приложен файл: 5299745.xls (43.5 Kb)

Сообщение отредактировал Werwolfik - Пятница, 04.05.2018, 01:55

Ответить

sboy

Дата: Пятница, 04.05.2018, 09:15 | Сообщение № 2

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

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

Сообщений: 2566

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

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

Excel 2010

Добрый день.
надо добавить цикл по всем совпадениям
[vba]

Код

Sub Макрос1()
    Sheets("Лист3").Range("E7").ClearContents

    Dim r As Range
    With CreateObject("VBScript.RegExp")
        .Global = True
        .IgnoreCase = True
        .Pattern = "НОМЕР(.+?)(?=,)"
        For Each r In [H9:H21]
            If .test(r) Then
                For x = 0 To .Execute(r).Count - 1
                    Range("E7") = Range("E7") & ",-" & .Execute(r)(x).SubMatches(0)
                Next x
            End If
        Next
    End With

End Sub

[/vba]

К сообщению приложен файл: 3887482.xls (43.0 Kb)

Яндекс: 410016850021169

Ответить

Werwolfik

Дата: Пятница, 04.05.2018, 15:25 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

sboy, понял, спасибо.

Ответить

Страница 1 из 1
1