Программирование => Visual Basic for Application => Тема начата: crazy_man от 16 Август 2012, 11:05:19
Название: Перенос всех гиперссылкок на другой лист
Отправлено: crazy_man от 16 Август 2012, 11:05:19
Переносим все гиперссылки на другой лист:
Код: vb
Dim sht As Worksheet Dim hyp As Hyperlink Dim i As Integer Set sht = Sheets(\"Лист2\") For Each hyp In ActiveSheet.Hyperlinks i = i + 1 sht.Cells(i, 1) = hyp.TextToDisplay