Подсказка предоставлена: Джеем Шуклой Иногда возникает такая ситуация:

{пусто} 1. Веб-сайт Yahoo www.yahoo.com 2. Веб-сайт Google www.google.com Итак, как нам отделить имя веб-сайта от остального текста.

Шаг 1.

Выберите столбец.

Перейти к опции «Заменить» в разделе «Правка». Затем заменить http:

с (пробелами) …​…​…​…​…​…​…​…​. http:

(Например: …​. = Пробелы)

Вы обнаружите, что имена мы разделены на расстояние. Шаг 2 Перейти к параметру «Текст в столбец» в разделе «Данные» и выберите параметр «Фиксированная ширина», чтобы установить маркер в определенное место, где в столбце перед первым именем веб-сайта во всем столбце щелкните «Далее» что текст перед веб-именами выделен черным цветом. ФИНИШ Вы увидите, что ваши веб-имена отделены от текста.

Теперь сделаем гиперссылку:

Шаг 1 Нажмите Alt + F11, вы обнаружите, что макрос откроет «Перейти к вставке», а затем выберите «Модуль». Появится другое окно нового модуля. Шаг 2. Скопируйте и вставьте приведенную ниже формулу:

—————————————————— Sub MakeHyperlinks_D()

Dim cell As Range, Rng As Range Set Rng = Range(«A1:A» & Cells.Rows.Count). _ SpecialCells(xlConstants, xlTextValues)

If Rng Is Nothing Then MsgBox «nothing in range»

Exit Sub End If For Each cell In Rng If Trim(cell.Value) <> «» Then ActiveSheet.Hyperlinks.Add Anchor:=cell, _ Address:=cell.Value, _ ScreenTip:=cell.Value, _ TextToDisplay:=cell.Value End If Next cell End Sub —————————————————— and then Goto File Close and Exit Step 4 Goto Tools>Macros>Macros you will find your Websites hyperlinked.

SIMPLE AND RAW BUT EFFECTIVE.

Jay.