Separare il nome del sito web o l'URL dal testo

Il suggerimento inviato da: Jay Shukla

Alcune volte abbiamo una situazione come:

1. Sito web di Yahoo www.yahoo.com
2. Sito web di Google www.google.com

Quindi, come separiamo il nome del sito Web dal testo rimanente.

Passo 1.

Seleziona la colonna.

Vai all'opzione Sostituisci sotto Modifica

Quindi sostituire http:
con (spazi)… .http:

(Es.:… . = Spazi)

Scoprirai che i nomi di noi vengono separati a distanza

Passo 2

Vai all'opzione Testo in colonna sotto Dati

e seleziona l'opzione Larghezza fissa

porta l'indicatore in una posizione specifica nella colonna prima del nome del primo sito web nell'intera colonna

fai clic su Avanti e vedrai che il testo prima dei nomi web è in nero

FINIRE

Troverai i tuoi nomi web separati dal testo.

Ora per renderlo un collegamento ipertestuale:

Passo 1

Premi Alt + F11

scoprirai che si aprirà una macro

Vai a Inserisci e quindi seleziona Modulo

si apre un'altra finestra Nuovo modulo

Passo 2

Copia incolla la formula sotto menzionata:

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

Sub MakeHyperlinks_D()
Dim cell As Range, Rng As Range
Imposta Rng = Intervallo ("A1: A" & Cells.Righe.Conteggio). _
SpecialCells(xlCostanti, xlTextValues)
Se Rng non è niente allora
MsgBox "niente nel raggio d'azione"
Esci Sotto
Finisci se
Per ogni cella in Rng
If Trim(cell.Value) "" Then
ActiveSheet.Hyperlinks.Add Anchor:=cell, _
Indirizzo:=cella.Valore, _
ScreenTip:=cell.Value, _
TextToDisplay:=cell.Value
Finisci se
Cella successiva
Fine sottotitolo