Копирование гиперссылки в ВБА - VBA
Формулировка задачи:
Помогите ,пожалуйста.В одной таблице в каждой ячейке хранится гиперссылка на файл документа.
В другую таблицу необходимо к одной записи добавить в колонку гиперссылок - после уже записанного текста необходимо вставить список гиперссылок из 1 таблицы. Как скопировать именно гиперссылку, а не всю ячейку( когда копируешь ячейку,заменяется вся ячейка 2-таблицы,стирается текст)
Решение задачи: «Копирование гиперссылки в ВБА»
textual
Листинг программы
Sub bb() Dim s$, c As Cell With Selection.Tables(1) For Each c In .Columns(2).Cells If c.Range.Hyperlinks.Count Then s = c.Previous.Range.Text c.Range.Hyperlinks(1).TextToDisplay = Trim$(Left$(s, Len(s) - 2)) End If Next .Columns(1).Delete .ConvertToText End With End Sub