Копирование гиперссылки в ВБА - 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

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы