Sub redirectLink ()
Тусклое rng как ряд
Для каждого rng в ActiveSheet.UsedRange.Cells
Если rng. Hyperlinks.Count = 1 после этого
С rng. Hyperlinks (1)
. Адрес = заменяет ть (. Адрес, «ServerX», «ServerY», 1, vbTextCompare)
.TextToDisplay = заменяют ть (.TextToDisplay, «ServerX», «ServerY», 1, vbTextCompare)
Конец с
Закончитесь если
Затем
Подводная лодка конца
|