Moderador favor apagar esse tópico. Fiz outro tópico onde expliquei melhor o que preciso, aqui: viewtopic.php?f=5&t=21650

Paiva

Eu vi 2 tópicos iguais e apaguei primeiro aquele, depois acessei este.

Descreva neste mesmo tópico que eu apago as mensagens anteriores.

[]s

Veja uma proposta de solução.
Não fiz exatamente o que você pediu, pois destacar um pedaço de um texto parcialmente repetido dentro do conteúdo da célula só com VBA e creio que seria demasiadamente complexo.
Na minha proposta faço uso de funções conhecidas e também recurso matricial para encurtar a formula quando analisa o tipo de extensão do site (coloquei as extensões conhecidas numa tabela, e se houverem outras extensões, basta adicionar na tabela) e fiz uso também de uma UDF para trazer o endereço das células com repetição (veja mais detalhes no meu blog: https://excelmaniacos.com/2015/08/19/udf-valoresdovetor-trazendo-valores-de-um-vetor-ou-matriz-de-dados/).
Você poderia incrementar ainda com formatação condicional, mas como você citou que não quer, eu não apliquei no modelo.

paiva87

Minha sugestão

Décio

Olá Decio, primeiramente obrigado, é quase isso que eu preciso. Na verdade eu tinha explicado melhor em outro tópico que foi apagado por engano, então não teria como você adivinhar.

O que eu quero é extrair o domínio das urls. O domínio é basicamente o nome do site + a tdl (que é a terminação do site, por exemplo ".com" ou ".com.br").

Assim, eu entraria com uma lista de urls, e seus domínios seriam extraídos na coluna seguinte, por exemplo:

http:// meusite.com.br/pagina-1 -> meusite.com.br
http:// yyy.meusite.com/pagina-2 -> meusite.com
seusite.com/pagina-3 -> seusite.com
http:// yyy.teste.net.br -> teste.net.br
http:// yyy.maisumsite.org -> maisumsite.org
http:// yyy.outroexemplo.net -> outroexemplo.net

obs.: Nos exemplos acima, eu substitui "w" por "y", e coloquei espaçamentos para não criar links no post.

O início das urls é sempre marcado por:
http://
http:// www.
www.
ou sem nada, já indo direto para o domínio, por exemplo "meusite.com"

Já o final pode ter:
.com
.com.br
.net
.net.br
.org
E algumas outras terminações que seria interessante eu mesmo poder adicionar no arquivo conforme a necessidade.

Agradeço se você mesmo ou outro usuário poder ajudar.

abs

Décio, eu fui dar uma olhada na sintaxe da função SUBSTITUIR, e cheguei a conclusão de que a fórmula que melhor se encaixaria no meu caso é essa:

=SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(D7;" http://";"");"www2.";"");"www";"")

Com isso, eu tenho, por exemplo:

http:// yyy2.meusite.com/exemplo.htm -> meusite.com/exemplo.htm
http:// yyy.seusite.com/pagina-1 -> seusite.com/pagina-1

(substitui "w" por "y")

O problema é agora cortar a barra e tudo que vem depois dela, para ter apenas:
meusite.com
seusite.com

Alguém sabe como fazer isso?

Olá Paiva!
Vc chegou a conferir o arquivo que postei?
Dentre os exemplos que você postou agora, eu vi que tem o caso do " http://meusite", que não tinha na relação da pergunta inicial. Por isso atualizei o arquivo levando em conta esta possibilidade também.

Issamu, a lista de extensões que você colocou seria muito útil para mim. A coluna D creio que é dispensável, pois consigo o mesmo objetivo com "Formatação condicional -> Realçar regras das células -> Valores duplicados".

Pelo que pesquisei aqui, creio que também dá pra fazer com algo do tipo DIREITA(LOCALIZAR()), o problema é que eu gostaria de colocar tudo numa só cédula.

Só complementando, a parte do DIREITA(LOCALIZAR()) seria para remover a "/" e tudo que vier depois dela.

Tudo numa só célula a fórmula fica:

=SE(ÉERROS(LOCALIZAR(".";SUBSTITUIR(ESQUERDA(A2;SOMA(SEERRO(LOCALIZAR(Tabela1[EXTENSÕES];A2);0))-1);"http://";"")));SUBSTITUIR(ESQUERDA(A2;SOMA(SEERRO(LOCALIZAR(Tabela1[EXTENSÕES];A2);0))-1);"http://";"");DIREITA(SUBSTITUIR(ESQUERDA(A2;SOMA(SEERRO(LOCALIZAR(Tabela1[EXTENSÕES];A2);0))-1);"http://";"");NÚM.CARACT(SUBSTITUIR(ESQUERDA(A2;SOMA(SEERRO(LOCALIZAR(Tabela1[EXTENSÕES];A2);0))-1);"http://";""))-LOCALIZAR(".";SUBSTITUIR(ESQUERDA(A2;SOMA(SEERRO(LOCALIZAR(Tabela1[EXTENSÕES];A2);0))-1);"http://";""))))

Fórmula matricial inserida com CTRL+SHIFT+ENTER

Vi também que dá pra fazer com a função POS.

Na verdade, eu preciso manter a extensão, na planilha que você me enviou ela está sendo apagada. Creio que para esse caso específico a tabela de extensões pode ser removida.

A confusão é porque eu fiz um outro post explicando melhor o que preciso e ele foi apagado por engano.

Acho que dá pra resolver com algo do tipo: http://forum.imasters.com.br/topic/4165 ... -variavel/

Texto := Copy(Texto, 5, 200);
Texto := Copy(Texto, 1, Pos('#', Texto) - 1);

A questão é também como juntar com o resto da fórmula: =SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(D7;" http://";"");"www2.";"");"www";"")

Solução alternativa respeitando as restrições referidas.

paiva87

Olha agora se é isso que desejas

Decio