Изменить диапазон гиперссылок в Excel

Question

Итак, у меня есть электронная таблица, которую я отправил нескольким нашим сотрудникам с просьбой обновить определенные поля/столбцы. У меня есть поле «Ссылка на документ» (столбец G), который связывает их с папкой на нашем F: диске, которую они могут использовать, чтобы заполнить необходимые поля.

Таблицы, которые я хочу, чтобы они заполнили, также находятся в этом F: Приводе. Тем не менее, я заметил, что каждая из ссылок на ссылки больше не работает, и когда я проверяю ссылку в разделе «Редактировать гиперссылку», я замечаю вместо желаемого «F: \ Закупки ...» У меня есть мой домашний диск «+ \ NSH-HDRIVES1 ...», как заголовок,

• F: \ Закупки \ Контракты \ Алко ... ххх ...

• \ НШ-HDRIVES1 \ контрактов \ Алко ... ххх ...

У меня есть сотни этих строк с ссылками на документы, для которых «\ NSH-HDRIVES1» заменен на «F:».

Есть ли какой-то макрос VBA, который позволит мне это сделать? У меня мало опыта и времени, чтобы выучить макросы VBA в этот момент, поэтому любая помощь будет очень признательна. Обратите внимание, что каждая ссылка отличается и идет в другую папку внутри нашего F: диска, все что мне нужно - это изменить префикс.

Спасибо и прошу прощения за любое дублирование.

Answer 1

Этот код может помочь, но он настроен только для работы с ActiveSheet. Если ваши гиперссылки находятся в нескольких книгах и нескольких листах, вам нужно будет пропустить их все.

For Each h In ActiveSheet.Hyperlinks 
    h.Address = Replace(h.Address, "\NSH-HDRIVES1\", "F:\Procurement\") 
    h.TextToDisplay = Replace(h.TextToDisplay, "\NSH-HDRIVES1\", "F:\Procurement\") 
Next