Отделяне на име или URL адрес на уебсайт от текст

Съветът, предоставен от: Jay Shukla

Понякога имаме ситуация като:

1. Уебсайт на Yahoo www.yahoo.com
2. Уебсайт на Google www.google.com

И така, как да разделим името на уебсайта от останалия текст.

Етап 1.

Изберете колоната.

Отидете на опцията Замяна под Редактиране

След това заменете http:
с (интервали) … .http:

(Напр .: …… = Пространства)

Ще откриете, че имената ни се разделят на разстояние

Стъпка 2

Отидете на опция Текст в колона под Данни

и изберете опция Фиксирана ширина

преместете маркера на конкретно място, където в колоната преди първото име на уебсайта в цялата колона

щракнете върху u u ще видите, че текстът преди уеб имената са в черно

ЗАВЪРШЕК

Ще намерите вашите уеб имена отделени от текста.

Сега, за да стане хипервръзка:

Етап 1

Натиснете Alt + F11

ще откриете, че ще се отворят макроси

Отидете на Вмъкване и след това изберете Модул

друг прозорец на нов модул се появява

Стъпка 2

Копирайте поставете следната формула:

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

Sub MakeHyperlinks_D ()
Dim cell As Range, Rng As Range
Задайте Rng = диапазон ("A1: A" & Cells.Rows.Count). _
Специални клетки (xlConstants, xlTextValues)
Ако Rng не е нищо, тогава
MsgBox "нищо в обхвата"
Изход от Sub
Край Ако
За всяка клетка в Rng
Ако Trim (cell.Value) "" Тогава
ActiveSheet.Hyperlinks.Add Anchor: = cell, _
Адрес: = cell.Value, _
Съвет на екрана: = cell.Value, _
TextToDisplay: = cell.Value
Край Ако
Следващата клетка
End Sub