Oddělte název webu nebo adresu URL od textu

Tip předložil: Jay Shukla

Někdy máme situaci jako:

1. Web Yahoo www.yahoo.com
2. Web Google www.google.com

Jak tedy oddělíme název webu od zbývajícího textu.

Krok 1.

Vyberte sloupec.

Přejít na možnost Nahradit v části Upravit

Poté nahraďte http:
s (mezerami) … .http:

(Např .:: =. Mezery)

Zjistíte, že ta jména se oddělují na dálku

Krok 2

Přejít na možnost Text do sloupce v části Data

a vyberte možnost Pevná šířka

dostat značku na konkrétní místo, kde ve sloupci před prvním názvem webu v celém sloupci

kliknutím na další u uvidíte, že text před názvy webů je černý

DOKONČIT

Své webové názvy najdete oddělené od textu.

Nyní z něj udělejte hypertextový odkaz:

Krok 1

Stiskněte Alt + F11

zjistíte, že se otevře makro

Přejděte na Vložit a poté vyberte Modul

objeví se další okno nového modulu

Krok 2

Zkopírujte a vložte níže uvedený vzorec:

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

Sub MakeHyperlinks_D ()
Dim buňky jako rozsah, Rng jako rozsah
Nastavit Rng = rozsah ("A1: A" & Cells.Rows.Count). _
SpecialCells (xlConstants, xlTextValues)
Pokud je Rng nic, pak
MsgBox „nic v dosahu“
Ukončit dílčí
Konec If
Pro každou buňku v Rng
If Trim (cell.Value) "" Then
ActiveSheet.Hyperlinks.Add Anchor: = buňka, _
Adresa: = buňka.Hodnota, _
ScreenTip: = cell.Value, _
TextToDisplay: = cell.Value
Konec If
Další buňka
End Sub