Separera webbplatsens namn eller URL från text

Tipset lämnat av: Jay Shukla

Ibland har vi en situation som:

1. Yahoos webbplats www.yahoo.com
2. Googles webbplats www.google.com

Så hur skiljer vi webbplatsnamnet från den återstående texten.

Steg 1.

Välj kolumnen.

Gå till alternativet Ersätt under Redigera

Ersätt sedan http:
med (mellanslag)… .http:

(T.ex.: … = Spaces)

Du kommer att upptäcka att vi namn skiljs åt på avstånd

Steg 2

Gå till alternativet Text till kolumn under Data

och välj alternativet Fast bredd

få markören till en specifik plats i kolumnen före det första webbplatsnamnet i hela kolumnen

klicka på nästa och du ser att texten innan webbnamnen är svart

AVSLUTA

Du hittar dina webbnamn separerade från texten.

Nu för att göra det till en hyperlänk:

Steg 1

Tryck på Alt + F11

du kommer att upptäcka att ett makron öppnas

Gå till Infoga och välj sedan Modul

ytterligare ett nytt modulfönster dyker upp

Steg 2

Kopiera klistra in nedanstående formel:

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

Sub MakeHyperlinks_D ()
Dim cell As Range, Rng As Range
Ställ in Rng = Range ("A1: A" & Cells.Rows.Count). _
SpecialCells (xlConstants, xlTextValues)
Om Rng är ingenting då
MsgBox "ingenting inom räckvidd"
Avsluta Sub
Avsluta om
För varje cell i Rng
If Trim (cell.Value) "" Då
ActiveSheet.Hyperlinks.Add Anchor: = cell, _
Adress: = cell.Värde, _
ScreenTip: = cell.Värde, _
TextToDisplay: = cell.Value
Avsluta om
Nästa cell
Avsluta Sub