VBA Извлечь электронные письма из ячейки [duplicate]

Регулярные выражения используются для сопоставления шаблонов.

Чтобы использовать в Excel, выполните следующие действия:

Шаг 1: добавьте ссылку VBA на «Microsoft VBScript Regular Expressions 5.5»

• Выберите «Разработчик», У меня нет этой вкладки, что мне делать? )
• Выберите значок «Visual Basic» из раздела ленты «Код»
• В поле « Microsoft Visual Basic для приложений "выберите« Инструменты »в верхнем меню.
• Выберите« Ссылки »
• Установите флажок рядом с« Microsoft VBScript Regular Expressions 5.5 », чтобы включить в свой
• Нажмите «OK»

Шаг 2: Определите свой шаблон

Основные определения:

- Диапазон.

• Например. a-z соответствует строчным буквам от a до z
• Например. 0-5 соответствует любому числу от 0 до 5

[] Сопоставьте ровно один из объектов внутри этих скобок.

• Например. [a] соответствует букве a
• Например. [abc] соответствует одной букве, которая может быть a, b или c
• Например. [a-z] соответствует любой отдельной строчной букве алфавита.

() Группы разных совпадений для целей возврата. См. Примеры ниже.

{} Множитель для повторных копий шаблона, определенных перед ним.

• Например. [a]{2} соответствует двум последовательным строчным буквам a: aa
• Например. [a]{1,3} соответствует по меньшей мере одной и до трех строчных букв a, aa, aaa

+ Сопоставьте хотя бы один или более шаблон определенную перед ним.

• Например a+ будет соответствовать последовательностям a a, aa, aaa и т. д.

? Сопоставьте нуль или один из шаблонов, определенных перед ним.

• Например Шаблон может присутствовать или не присутствовать, но может быть согласован только один раз.
• Например. [a-z]? соответствует пустой строке или любой отдельной строчной букве.

* Сопоставьте нулевой или более шаблон, определенный перед ним. -. Подстановочный шаблон для шаблона, который может быть или не быть. -. [a-z]* соответствует пустой строке или строке строчных букв.

. Соответствует любому символу, кроме новой строки \n

• Например. a. Соответствует двухсимвольной строке, начинающейся с a и заканчивающейся чем угодно, кроме \n

| OR operator

• Например. a|b означает, что можно выбрать a или b.
• Например. red|white|orange соответствует точно одному из цветов.

^ Оператор NOT

• Например. Символ [^0-9] не может содержать число
• Например. [^aA] не может быть нижним регистром a или верхним регистром A

\ Убирает специальный символ, который следует (переопределяет над поведением)

• Например, \., \\, \(, \?, \$, \^

Шаблоны привязки:

^ Соответствие должно происходить при начале строки

• Например ^a Первый символ должен быть строчной буквой a
• Например. ^[0-9] Первый символ должен быть числом.

$ Соответствие должно быть выполнено в конце строки

• Например. a$ Последний символ должен быть строчной буквой a

Таблица приоритетов:

Order  Name                Representation
1      Parentheses         ( )
2      Multipliers         ? + * {m,n} {m, n}?
3      Sequence & Anchors  abc ^ $
4      Alternation         |

Предопределенные символы Аббревиатуры:

abr    same as       meaning
\d     [0-9]         Any single digit
\D     [^0-9]        Any single character that's not a digit
\w     [a-zA-Z0-9_]  Any word character
\W     [^a-zA-Z0-9_] Any non-word character
\s     [ \r\t\n\f]   Any space character
\S     [^ \r\t\n\f]  Any non-space character
\n     [\n]          New line

Пример 1: Выполняется как макрос

Следующий пример макроса выглядит значение в ячейке A1, чтобы увидеть, являются ли первые 1 или 2 символа цифрами. Если это так, они удаляются, а остальная часть строки отображается. Если нет, появится окно с сообщением о том, что совпадения не найдено. Значения ячейки A1 12abc вернут abc, значение 1abc вернет abc, значение abc123 вернет «Не согласовано», потому что цифры не были в начале строки.

Private Sub simpleRegex()
    Dim strPattern As String: strPattern = "^[0-9]{1,2}"
    Dim strReplace As String: strReplace = ""
    Dim regEx As New RegExp
    Dim strInput As String
    Dim Myrange As Range

    Set Myrange = ActiveSheet.Range("A1")

    If strPattern <> "" Then
        strInput = Myrange.Value

        With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
        End With

        If regEx.Test(strInput) Then
            MsgBox (regEx.Replace(strInput, strReplace))
        Else
            MsgBox ("Not matched")
        End If
    End If
End Sub

Пример 2: Выполняется как функция в ячейке

Этот пример такой же, как в примере 1, но настроен для запуска как внутриклеточная функция. Чтобы использовать, измените код на это:

Function simpleCellRegex(Myrange As Range) As String
    Dim regEx As New RegExp
    Dim strPattern As String
    Dim strInput As String
    Dim strReplace As String
    Dim strOutput As String


    strPattern = "^[0-9]{1,3}"

    If strPattern <> "" Then
        strInput = Myrange.Value
        strReplace = ""

        With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
        End With

        If regEx.test(strInput) Then
            simpleCellRegex = regEx.Replace(strInput, strReplace)
        Else
            simpleCellRegex = "Not matched"
        End If
    End If
End Function

Поместите свои строки («12abc») в ячейку A1. Введите эту формулу =simpleCellRegex(A1) в ячейку B1, и результат будет «abc».

[/g9]

Пример 3: Loop Through Range

Этот пример аналогичен примеру 1, но проходит через диапазон ячеек.

Private Sub simpleRegex()
    Dim strPattern As String: strPattern = "^[0-9]{1,2}"
    Dim strReplace As String: strReplace = ""
    Dim regEx As New RegExp
    Dim strInput As String
    Dim Myrange As Range

    Set Myrange = ActiveSheet.Range("A1:A5")

    For Each cell In Myrange
        If strPattern <> "" Then
            strInput = cell.Value

            With regEx
                .Global = True
                .MultiLine = True
                .IgnoreCase = False
                .Pattern = strPattern
            End With

            If regEx.Test(strInput) Then
                MsgBox (regEx.Replace(strInput, strReplace))
            Else
                MsgBox ("Not matched")
            End If
        End If
    Next
End Sub

Пример 4: Разделение разных шаблонов

Этот пример проходит через диапазон (A1, A2 & amp; A3) и ищет строку, начинающуюся с трех цифр, за которой следует один альфа-символ, а затем 4 числовые цифры. Вывод разделяет совпадения шаблонов на соседние ячейки с помощью (). $1 представляет первый образец, согласованный в первом наборе ().

Private Sub splitUpRegexPattern()
    Dim regEx As New RegExp
    Dim strPattern As String
    Dim strInput As String
    Dim Myrange As Range

    Set Myrange = ActiveSheet.Range("A1:A3")

    For Each C In Myrange
        strPattern = "(^[0-9]{3})([a-zA-Z])([0-9]{4})"

        If strPattern <> "" Then
            strInput = C.Value

            With regEx
                .Global = True
                .MultiLine = True
                .IgnoreCase = False
                .Pattern = strPattern
            End With

            If regEx.test(strInput) Then
                C.Offset(0, 1) = regEx.Replace(strInput, "$1")
                C.Offset(0, 2) = regEx.Replace(strInput, "$2")
                C.Offset(0, 3) = regEx.Replace(strInput, "$3")
            Else
                C.Offset(0, 1) = "(Not matched)"
            End If
        End If
    Next
End Sub

Результаты:

[/g10]

Дополнительные примеры шаблонов

String   Regex Pattern                  Explanation
a1aaa    [a-zA-Z][0-9][a-zA-Z]{3}       Single alpha, single digit, three alpha characters
a1aaa    [a-zA-Z]?[0-9][a-zA-Z]{3}      May or may not have preceeding alpha character
a1aaa    [a-zA-Z][0-9][a-zA-Z]{0,3}     Single alpha, single digit, 0 to 3 alpha characters
a1aaa    [a-zA-Z][0-9][a-zA-Z]*         Single alpha, single digit, followed by any number of alpha characters

</i8>    \<\/[a-zA-Z][0-9]\>            Exact non-word character except any single alpha followed by any single digit