Extraindo vários endereços de e-mail do arquivo excel cell / excel

Question

Extraindo vários endereços de e-mail do arquivo excel cell / excel

#1 resposta do (1 votos)

0

Existe uma maneira de extrair vários endereços de e-mail do arquivo excel cell / excel

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

Mais ou menos o conteúdo é o mesmo nas colunas

Conteúdo HTML na coluna uma linha um

cid=9498&peid= **[email protected]** &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= 
**[email protected]**&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>                                            
                                                                           [email protected]<br>
                                                                           <span style="background-color: #FFFF00"><b>Reply to:</b></span> &nbsp;&nbsp;[email protected]<br><br>

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

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

Conteúdo HTML na coluna um linha dois

cid=9498&peid= **[email protected]** &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= 
**[email protected]**&cid=9498

Eu tentei usar ferramentas on-line disponíveis na Internet, mas elas são inúteis / elas extraem apenas o primeiro endereço de e-mail disponível no campo excel.

link

Existem n números de linhas.

Existe uma maneira de extrair vários endereços de email do excel cell

Saída exigida - extraia e-mails e salve-os em uma planilha separada ou na coluna adjacente

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

Formato de entrada 3

#

Para o seguinte código HTML presente na célula do Excel, posso extrair apenas a primeira ocorrência do email que recebo, mas não todos os vários endereços de email mencionados.

            <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&[email protected]&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&[email protected]&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>                                            
                                       [email protected]<br>
                                       <span style="background-color: #FFFF00"><b>Reply to:</b></span> &nbsp;&nbsp;[email protected]<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>

extract unix microsoft-excel google-spreadsheets vba

por Matt 11.02.2018 / 16:34

1 resposta

Tags extract unix microsoft-excel google-spreadsheets vba

Como baixar um site para leitura off-line [fechado] Gnome3 muda o tema por aplicação

score 1 · Accepted Answer

Esta função definida pelo usuário (UDF) retornará uma matriz dos endereços de e-mail existentes na célula referenciada.

Os endereços individuais podem ser recuperados em vários métodos:

Use a função INDEX
Insira a função como uma matriz em várias células
Use-o em uma macro para executar ações especializadas que você pode exigir.

O caractere de um endereço de e-mail é determinado pelo padrão de regex sPat e é descrito em detalhes abaixo.

Você coloca a UDF em um módulo regular

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

Uma maneira de usá-lo é mostrada na imagem abaixo (usando a função INDEX). A fórmula é inserida em B1 e preenchida à direita e abaixo. A cláusula IFERROR faz com que ela retorne uma string nula se houver menos correspondências que as células preenchidas.

Editar: Imagem alterada para mostrar todos os três exemplos

Explicaçãodopadrãodeexpressãoregular

Emailaddress

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

Opções:insensívelamaiúsculaseminúsculas;^$Nãocorrespondeàsquebrasdelinha

Defina a posição em um limite de palavras \b
Combine um único caractere presente na lista abaixo [A-Z0-9._%+-]+
Corresponde ao caractere “@” literalmente @
Combine um único caractere presente na lista abaixo [A-Z0-9.-]+
Corresponda o caractere “.” literalmente \.
Combine um único caractere no intervalo entre “A” e “Z” [A-Z]{2,}
- Entre 2 e ilimitados vezes, quantas vezes for possível, devolvendo conforme necessário (ganancioso) {2,}
Defina a posição em um limite de palavras \b

Criado com RegexBuddy