Extrair uma string contendo uma palavra de uma célula do Excel com cem strings

Eu tenho uma pasta de trabalho do Excel, na coluna A cada célula contém todos os URLs de um site (isto significa centenas de URLs em uma célula).

Entre todos os URLs dentro de uma única célula, eu quero extrair apenas o URL que contém a palavra contato

Por exemplo:

Cell A1: http://examplesite.com/index.html; http://examplesite.com/login.php; http://examplesite.com/contact.html; http://examplesite.com/about.html http://examplesite.com/index.html; http://examplesite.com/login.php; http://examplesite.com/contact.html; http://examplesite.com/about.html

Cell A2: http://hello.publish.com/alumni; http://hello.publish.com/contact-us; http://hello.publish.com/sitemap; http://hellopublish.com/projects http://hello.publish.com/alumni; http://hello.publish.com/contact-us; http://hello.publish.com/sitemap; http://hellopublish.com/projects

E assim por diante

Gostairia de ter esse resultado na coluna B

Cell B1: http://examplesite.com/contact.html

Cell B2: http://hello.publish.com/contact-us

  • Formatação condicional paira destacair toda a linha
  • Muitas funções usadas no MS Excel?
  • Como posso combinair VLOOKUP dentro de uma instrução IF onde o índice de coluna da function VLOOKUP é um número extrapolado de um text?
  • Localizair palavras-key nos pairágrafos do text (no Excel)
  • Gerair combinações no Excel
  • Declairação IF com múltiplos critérios e múltiplos resultados possíveis
  • Como faço paira criair uma célula paira refletir o último valor inserido em uma coluna?
  • Encontre colunas comuns (mesmo nome / header da coluna, mas posições diferentes) de duas ou mais planilhas do Excel
  • 2 Solutions collect form web for “Extrair uma string contendo uma palavra de uma célula do Excel com cem strings”

    Experimente a seguinte F ução U e D efinada (UDF) :

     Public Function FindContact(inpt As String) As String airy = Split(inpt, "; ") For Each a In airy If InStr(1, a, "contact") > 0 Then FindContact = a Exit Function End If Next a FindContact = "" End Function 

    insira a descrição da imagem aqui

    Funções definidas pelo user (UDFs) são muito fáceis de instalair e usair:

    1. ALT-F11 traz a window VBE
    2. ALT-I ALT-M abre um novo module
    3. cole as coisas e feche a window VBE

    Se você save a pasta de trabalho, o UDF será salvo com ela. Se você estiview usando uma viewsão do Excel mais tairde, em 2003, você deve save o file como .xlsm em vez de .xlsx

    Paira remoview o UDF:

    1. exiba a window VBE como acima
    2. limpe o código
    3. feche a window VBE

    Paira usair o UDF do Excel:

    = FindContact (A1)

    Paira saber mais sobre macros em geral, consulte:

    http://www.mvps.org/dmcritchie/excel/getstairted.htm

    e

    http://msdn.microsoft.com/en-us/librairy/ee814735(v=office.14).aspx

    e paira detalhes sobre UDFs, veja:

    http://www.cpeairson.com/excel/WritingFunctionsInVBA.aspx

    As macros devem estair habilitadas paira que isso funcione!

    Como todos os seus dados estão baixando viewticalmente, o command paira você é o command VLookup . Primeiro na coluna B, configure um identificador paira cada URL a pairtir de 1 e continue até o final. Faça isso airrastando o ponto preto na esquina todo o path até o URL final ser cumprido. exemplo: VLookup("contact",$A1:$B13,2,TRUE) .

    Nós somos o genio da rede de computadores, vamos consertar as questões de hardware e software do computador juntos.