Выгрузка гиперссылки из excel

NICITA
На сайте с 03.02.2009
Offline
51
1370

Уважаемые форумчане, нч запросы продвигаю сеопультом. Сейчас встал вопрос как проверить внешние ссылки......скопировала в еxcel, но большинство ссылок оформлены как гиперссылка...........как автоматически гиперссылку поместить в отдельный столбец таблицы? Cпасибо большое.

ГК "Ремонт-Стройка" - ремонт квартир и офисов под ключ. (http://www.remont-stroyka.ru/) Качество. Гарантия 2 года. Разумные сроки и цены.
evrakylon
На сайте с 02.02.2010
Offline
36
#1

Верно понял: есть колонка с анкорами ссылок и требуется выдернуть строковое значение ссылки, в колонке A отображается "мой сайт", при этом гиперссылка на страницу www.mysite.ru скрыта.

Лови код на VB. Вешаем макрос на кнопку

For n = 1 To 10 'количество строк

Range("B" + CStr(n)) = Range("A" + CStr(n)).Hyperlinks.Item(1).Address

Next n

Берем гиперссылку из столбца A1...10 и записываем в B1...10

Создаю тексты. Портфолио (http://www.free-lance.ru/users/evrakylon) и отзывы (/ru/forum/458328). Нужен 1С консалтинг ()? ICQ: 378800605. evrakylon@gmail.com

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий