Separando o nome do site ou URL do texto

A dica enviada por: Jay Shukla

Algumas vezes temos uma situação como:

1. Site do Yahoo www.yahoo.com
2. Site do Google www.google.com

Então, como separamos o nome do site do texto restante.

Passo 1.

Selecione a coluna.

Ir para a opção Substituir em Editar

Em seguida, substitua http:
com (espaços)… .http:

(Ex .: … = Espaços)

Você verá que os nomes de nós ficam separados à distância

Passo 2

Ir para a opção Texto para coluna em Dados

e selecione a opção de largura fixa

obter o marcador para um local específico onde na coluna antes do nome do primeiro site em toda a coluna

clique em próximo para ver que o texto antes dos nomes da web estão em preto

FINALIZAR

Você encontrará seus nomes da web separados do texto.

Agora, para torná-lo um hiperlink:

Passo 1

Pressione Alt + F11

você verá que uma macro abrirá

Vá para Inserir e selecione Módulo

outra janela de novo módulo aparece

Passo 2

Copie e cole a fórmula mencionada abaixo:

------------------------------------------------------

Sub MakeHyperlinks_D ()
Dim cell como range, Rng como range
Defina Rng = Range ("A1: A" & Cells.Rows.Count). _
SpecialCells (xlConstants, xlTextValues)
Se Rng não for nada, então
MsgBox "nada no intervalo"
Sair do Sub
Fim se
Para cada célula em Rng
Se Trim (cell.Value) "" Então
ActiveSheet.Hyperlinks.Add Anchor: = cell, _
Endereço: = cell.Value, _
Dica de tela: = cell.Value, _
TextToDisplay: = cell.Value
Fim se
Próxima célula
End Sub