Как вытащить URL адрес из формулы с гиперссылкой в Excel

Posted by obzor under VBA

Имеется документ с прописанной гиперссылкой на url с фото.
Как сделать чтобы в столбце было не слово «фото» с гиперссылкой на url фото, а просто сам адрес в соседнем столбике?

Казанский

Работает с выделенным диапазоном. Выделять можно столбец целиком.

Код:


Sub bb()
Const H = "=HYPERLINK("""
Dim c As Range, lh&
  lh = Len(H) + 1
  For Each c In Intersect(Selection, ActiveSheet.UsedRange).SpecialCells(xlCellTypeFormulas)
    If Left$(c.Formula, lh - 1) = H Then _
      c.Offset(, 1) = Mid(c.Formula, lh, InStr(lh, c.Formula, """") - lh)
  Next
End Sub

тема на форуме

Последние записи

made in programmersforum 3

Как вытащить URL адрес из формулы с гиперссылкой в Excel

Похожие статьи