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

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

7th
Ноя

Как вытащить 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

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

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

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

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

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru