Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как достать из текста ссылок, сами ссылки? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как достать из текста ссылок, сами ссылки?
piar61ru Дата: Вторник, 13.02.2024, 11:46 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

excel 2021
Как достать из текста ссылок, сами ссылки?
почему-то все ссылки скопировались тайтлами, а нужны сами урлы.

Каталог товаров AIKEN | Кувалда.ру - официальный дилер AIKEN в Москве (kuvalda.ru)
А должно быть
https://www.kuvalda.ru/catalog/brands/aiken/
К сообщению приложен файл: kniga4.xlsx (20.8 Kb)
 
Ответить
СообщениеКак достать из текста ссылок, сами ссылки?
почему-то все ссылки скопировались тайтлами, а нужны сами урлы.

Каталог товаров AIKEN | Кувалда.ру - официальный дилер AIKEN в Москве (kuvalda.ru)
А должно быть
https://www.kuvalda.ru/catalog/brands/aiken/

Автор - piar61ru
Дата добавления - 13.02.2024 в 11:46
Nic70y Дата: Вторник, 13.02.2024, 12:06 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8857
Репутация: 2308 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_7()
    Application.ScreenUpdating = False
    For a = 1 To Cells(Rows.Count, "a").End(xlUp).Row
        ActiveSheet.Hyperlinks.Add Anchor:=Range("b" & a), _
        Address:=Range("a" & a).Hyperlinks.Item(1).Address
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: kniga4.xlsm (25.8 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_7()
    Application.ScreenUpdating = False
    For a = 1 To Cells(Rows.Count, "a").End(xlUp).Row
        ActiveSheet.Hyperlinks.Add Anchor:=Range("b" & a), _
        Address:=Range("a" & a).Hyperlinks.Item(1).Address
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 13.02.2024 в 12:06
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!