Как скопировать только гиперссылку (а не текст) в другую ячейку?

У меня есть таблица, где столбец А отображает имена. Существует несколько сотен имен, каждая из которых имеет другую гиперссылку (которая ссылается на веб-страницу этого человека). Я хочу перенести эти гиперссылки на другой столбец, который имеет другой текст и гиперссылки.

Не каждая ячейка в столбце A имеет гиперссылку. Есть группы ячеек, объединенных вместе, поэтому A2: A7 имеет одну ссылку, A8: A13 следующий, A9: 10 следующий (то есть количество объединенных ячеек не равномерно).

Например, где A2: A7 читает «Боб» и ссылается на www.bob.com, я хочу, чтобы I2: I7, который читал «Смит», и не ссылается ни на что, на ссылку на www.bob.com. Я хочу сделать это повторно, копируя ссылки из A2: A579 в I2: I579.

Информация копируется из таблицы внутри веб-страницы, и именно там появляются гиперссылки.

Этот макрос поможет

 Sub SwapIt() For i = 2 To 579 If Range("A" & i).Value <> "" And Range("I" & i).Value <> "" Then Dim newLink As String ' the new link string needs a place to live... just like me! If Range("A" & i).Hyperlinks.Count = 1 Then newLink = Range("A" & i).Hyperlinks(1).Address ' Get the old horrible link :) Range("I" & i).Hyperlinks.Add anchor:=Range("I" & i), Address:=Range("I" & i) ' horrible hack, just to get it to a link Range("I" & i).Hyperlinks(1).Address = newLink '' replace with the new link... Much better. Like a ray of sunshine End If End If Next i End Sub 

Это переместит гиперссылку с A2 на I2, затем с A3 на I3 и т. Д.

  • Как хранить макросы VBA для Office 2007, чтобы они всегда были доступны и делились ими с другими?
  • Зачем использовать Integer вместо Long?
  • Является ли это RegEx для сопоставления любой ссылки на ячейку в формуле Excel?
  • Как получить цвет фона из Условного форматирования в Excel с помощью VBA
  • Каков наиболее эффективный / быстрый способ циклического преобразования строк в VBA (excel)?
  • Назначить сочетание клавиш для запуска процедуры
  • VBA - обновление других ячеек с помощью пользовательской функции
  • Расширение формулы ячейки, разрешающей все ее ссылки (прецеденты)
  • Есть ли какое-либо событие, которое срабатывает при нажатии клавиш при редактировании ячейки?
  • Excel VBA «Отменить выбор»
  • Должен ли я использовать ключевое слово Call в VB / VBA?
  • Interesting Posts

    Установка раздела HFS + в Arch Linux

    Поток streamа байтов и символов

    Наследование controllerа AngularJS

    Съемка с камеры без предварительного просмотра

    Ошибка: не может соответствовать запрограммированным classам в одном файле dex. Попробуйте указать список main-dex. # методы: 72477> 65536

    Получить список субтитров, используя mediainfo в Windows

    Есть ли альтернатива виртуализации для обработки двух разных интерфейсов, разных сетей и одного и того же диапазона IP?

    Как создать собственный интерфейс Listener в android?

    Java7 Отказ от доверия сертификату в хранилище доверия

    Windows XP – синий экран

    Как указать правило сопоставления, когда имена свойств различаются

    Изменить левую ссылку в диалоговом окне «Сохранить как» для DropBox?

    неопределенная ссылка на `__stack_chk_fail ‘

    Что это значит, когда диски DVD-RW только считывают компакт-диски?

    Как окна «ограничивают» процессор (Power Options / Battery saving)

    Давайте будем гением компьютера.