Извлечение нескольких адресов электронной почты из файла Excel Cell / Excel

Question

Есть ли способ извлечь несколько адресов электронной почты из файла Excel Cell / Excel

    |   A   |   B                                                                  
----|-------------
1   |HTML   |
    |Content|
    |   1   |
----|-------|-----
2   |HTML   |
    |Content|
    |   2   |
----|-------|-----
N Rows|     |

Более или менее содержание одинаково в столбцах

HTML-контент в первой колонке

---

cid=9498&peid= **xyz9000@gmail.com** &mbrid=cf7cc75d395cbf901f73967b1267db42 style="text-decoration: none;  color: blue;">Update</a> contact/membership info.<font style="font-size:14px" face="Verdana" color="#000000">&nbsp;&nbsp;|&nbsp;&nbsp;<font style="font-size:12px" face="Verdana" color="#3c3c3c"><a href=https:///fe_web_member_subscription_verify.php?oeid= 
**navee@centra.com**&cid=9498 style="text-decoration: none;  color: blue;">Subscribe</a> to receive requirements & resumes
                                                                    </font>        
                                                            </p>
                                                       </td>
                                            </tr>

                              <tr>
                                                   <td colspan="2"  valign="middle">
                                                            <p style="margin-left:0px;margin-right:0px;margin-top:0px; margin-bottom:0px;"> 
                                                                    <font style="font-size:15px" color="#3C3C3C" face="Verdana" >
                                        <br><u>From</u>:<br>
                                               Navee ,<br>
                                               Centra<br>                                            
                                                                           qwerty@centra.com<br>
                                                                           <span style="background-color: #FFFF00"><b>Reply to:</b></span> &nbsp;&nbsp;navee@centra.com<br><br>

                                                                    </font>        
                                                            </p>
                                                  </td>
                                            </tr>  

                                                  <tr>
                                                    <td  colspan="2" valign="middle">
                                                            <br><p><strong>Big 

HTML-контент в первой колонке

---

cid=9498&peid= **xyz9000@gmail.com** &mbrid=cf7cc75d395cbf901f73967b1267db42 style="text-decoration: none;  color: blue;">Update</a> contact/membership info.<font style="font-size:14px" face="Verdana" color="#000000">&nbsp;&nbsp;|&nbsp;&nbsp;<font style="font-size:12px" face="Verdana" color="#3c3c3c"><a href=https:///fe_web_member_subscription_verify.php?oeid= 
**navee@centra.com**&cid=9498

Я пытался использовать онлайн-инструменты, доступные в Интернете, но они бесполезны / они извлекают только первый доступный адрес электронной почты в поле Excel.

https://www.extendoffice.com/product/kutools-for-excel/excel-extract-email-address-from-string.html

Есть n количество строк.

Есть ли способ извлечь несколько адресов электронной почты из ячейки Excel

Требуемый вывод - извлеките электронные письма и сохраните их в отдельной электронной таблице или в соседнем столбце

=========================

---

Формат ввода 3

#

Для следующего HTML-кода, присутствующего в ячейке Excel, я могу извлечь только первое полученное письмо, но не все упомянутые несколько адресов электронной почты.

            <p align="center"  style="margin-left:0px;margin-top:30px; margin-right:0px;margin-bottom:25px;">
                <table width="1024" cellspacing="0" cellpadding="0"  border="0" >
                        <tr>
                        <td colspan="2"  style="border-bottom: solid 1px #ff7373; " valign="bottom">
                            <p style="margin-left:0px;margin-right:0px;margin-top:0px; margin-bottom:0px;"> 
                                <font style="font-size:12px" color="#3C3C3C" face="Verdana" >
                                    <a href=https://house.com/powerhouse/fe_web_member_unsubscription.php?cid=4870&teid=volcan9@gmail.com&mbrid=cf7cc75d395cbf901f73967b1267db42 style="text-decoration: none; color: red;">Remove/unsubscribe</a><font style="font-size:14px" face="Verdana" color="#000000">&nbsp;&nbsp;|&nbsp;&nbsp;<font style="font-size:12px" face="Verdana" color="#3c3c3c"><a href=https://house.com/powerhouse/fe_web_member_update.php?cid=4870&peid=volcan9@gmail.com&mbrid=cf7cc75d395cbf901f73967b1267db42 style="text-decoration: none;  color: blue;">Update</a> contact/membership info.<font style="font-size:14px" face="Verdana" color="#000000">&nbsp;&nbsp;|&nbsp;&nbsp;<font style="font-size:12px" face="Verdana" color="#3c3c3c"><a href=https://house.com/powerhouse/fe_web_member_subscription_verify.php?oeid=mod.s@solutionsinc.com&cid=4870 style="text-decoration: none;  color: blue;">Subscribe</a> to receive requirements
                                </font> 
                            </p>
                            </td>
                    </tr>

                      <tr>
                        <td colspan="2"  valign="middle">
                            <p style="margin-left:0px;margin-right:0px;margin-top:0px; margin-bottom:0px;"> 
                                <font style="font-size:15px" color="#3C3C3C" face="Verdana" >
                                        <br><u>From</u>:<br>
                                       mod,<br>
                                       Solution<br>                                            
                                       mod.s@solutionsinc.com<br>
                                       <span style="background-color: #FFFF00"><b>Reply to:</b></span> &nbsp;&nbsp;mod.s@solutionsinc.com<br><br>

                                </font> 
                            </p>
                        </td>
                    </tr>  

                        <tr >
                            <td  width="800" valign="top"  style="border-top: solid 1px #333399; ">
                                <p align="justify" style="margin-left:0px;margin-right:0px;margin-top:0px; margin-bottom:0px;"> 
                                <font style="font-size:12px" color="#666666" face="Verdana">
                                     <a href="http://www.res.com/#!products/c5n6" style="text-decoration: none; color: red" title="Click to view more details">.</a>
                                </font>
                            </p>
                            </td>

                                <td    valign="top" style="border-top: solid 1px #333399; ">
                                    <p  align="right" style="margin-left:0px;margin-right:0px;margin-top:0px; margin-bottom:0px;">  
                                <font style="font-size:10px" color="#3C3C3C" face="Verdana">

                                </font>
                            </p>
                                </td>
                        </tr>
                </table><br>
            </p>

Answer 1

Эта пользовательская функция (UDF) будет возвращать массив существующих адресов электронной почты в указанной ячейке.

Затем отдельные адреса могут быть получены различными способами:

• Используйте функцию INDEX
• Введите функцию как массив из нескольких ячеек
• Используйте его в макросе для выполнения специальных действий, которые могут вам потребоваться.

Символ адреса электронной почты определяется шаблоном регулярных выражений sPat и подробно описан ниже.

Вы помещаете UDF в обычный модуль

Option Explicit
Function ExtrEmail(S As String) As String()
    Dim sTemp() As String
    Dim RE As Object, MC As Object, M As Object
    Const sPat As String = "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b" 'Regex for emails
    Dim I As Long

'Initialize Regex engine
Set RE = CreateObject("vbscript.regexp")
With RE
    .Pattern = sPat
    .Global = True
    .ignorecase = True
    If .test(S) = True Then
        Set MC = .Execute(S)
        ReDim sTemp(1 To MC.Count)
        I = 0
        For Each M In MC
            I = I + 1
            sTemp(I) = M
        Next M
    End If
End With
ExtrEmail = sTemp
End Function

Один из способов его использования показан на скриншоте ниже (с помощью функции INDEX). Формула вводится в B1 и заполняется вправо и вниз. Предложение IFERROR заставляет его возвращать пустую строку, если совпадений меньше, чем заполненных ячеек.

Изменить: изображение изменилось, чтобы показать все три примера

Regex Pattern Объяснение

Адрес электронной почты

\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b

Опции: без учета регистра; ^ $ не совпадают при переносе строки

• Утвердить положение на границе слова \b
• Соответствуйте одному символу, представленному в списке ниже [A-Z0-9._%+-]+
  • От одного до неограниченного количества раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) +
  • Символ в диапазоне между «A» и «Z» A-Z
  • Символ в диапазоне от «0» до «9» 0-9
  • Один символ из списка «._%+» ._%+
  • Буквенный символ «-» -
• Совпадение символа «@» буквально @
• Совпадение с одним символом, присутствующим в списке ниже [A-Z0-9.-]+
  • От одного до неограниченного количества раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) +
  • Символ в диапазоне между «A» и «Z» A-Z
  • Символ в диапазоне от «0» до «9» 0-9
  • Буквенный символ «.» .
  • Буквенный символ «-» -
• Соответствуйте символу «.» Буквально \.
• Совпадение одного символа в диапазоне между «A» и «Z» [A-Z]{2,}
  • От 2 до неограниченного количества раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) {2,}
• Утвердить положение на границе слова \b

Создано с помощью RegexBuddy