Adskillelse af webstedsnavn eller URL fra tekst

Tipet indsendt af: Jay Shukla

Nogle gange har vi en situation som:

1. Yahoo -websted www.yahoo.com
2. Googles websted www.google.com

Så hvordan adskiller vi webstedsnavnet fra den resterende tekst.

Trin 1.

Vælg kolonnen.

Gå til Erstat indstilling under Rediger

Udskift derefter http:
med (mellemrum)… .http:

(F.eks .:…. = Mellemrum)

Du vil opdage, at vi navne bliver adskilt på afstand

Trin 2

Gå ind til tekst til kolonne under Data

og vælg Fast bredde

få markøren til en bestemt placering, hvor i kolonnen før det første webstedsnavn i hele kolonnen

klik på næste u vil se, at teksten før webnavne er i sort

AFSLUT

Du finder dine webnavne adskilt fra teksten.

For nu at gøre det til et hyperlink:

Trin 1

Tryk på Alt + F11

vil du opdage, at en makro åbnes

Gå til Indsæt, og vælg derefter Modul

et andet nyt modulvindue dukker op

Trin 2

Kopier indsæt nedenstående formel:

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

Sub MakeHyperlinks_D ()
Dim celle som område, Rng som område
Indstil Rng = Range ("A1: A" & Cells.Rows.Count). _
SpecialCells (xlConstants, xlTextValues)
Hvis Rng ikke er noget så
MsgBox "intet inden for rækkevidde"
Afslut Sub
Afslut Hvis
For hver celle i Rng
Hvis Trim (cell.Value) "" Så
ActiveSheet.Hyperlinks.Add Anchor: = cell, _
Adresse: = cell.Værdi, _
ScreenTip: = cell.Værdi, _
TextToDisplay: = cell.Value
Afslut Hvis
Næste celle
Afslut Sub