Подскажите, есть список наименований, к которым привязана гиперссылка на сайты, как можно в соседнюю ячейку вставить сайт из столбца А? вручную нельзя, список большой слишком спасибо!!!
Прошу изменить отображаемое имя. Уж очень длинно получилось. из-за такой длины на странице расширяется поле "Автор" и отбирает полезную площадь у названий тем.
Sub GetSiteAddress()
Dim cl As Range
On Error Resume Next
With ActiveSheet
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For Each cl In .Range("A2:A" & lRow).Cells
If cl.Hyperlinks.Count Then
cl.Offset(, 1) = cl.Hyperlinks(1).Address
End If
Next
End With
End Sub
Самое длинное имя в мире таково: Адольф Блэйн Чарльз Дэвид Эрл Фредерик Джеральд Хьюберт Ирвин Джон Кеннет Ллойд Мартин Неро Оливер Пол Куинси Рэндолф Шерман Томас Юнкас Виктор Уильям Ксеркс Янси Зевс Wolfe schlegelsteinhausenbergerdor ffvoralternwarengewissenhaftscha ferswessenschafewarenwohlgep flegeundsorgfaltigkeitbeschutz envonangreifendurchihrraubgier igfeindewelychevoralternzwolfta usendjahresvorandieerscheinenw anderersteerdemenschderrassu mschiffgebrauchlichtalsseinurspru ngvonkraftgestartseinlangefahrthinzwischensternartigraumaufdersuchenachdie sternwelchegehabtbewohnbarplanetenkreisedrehensichundwohinderneurassev onverstandigmenschlichkeitkonntefortplanzenundsicherfreuenanlebenslanglic freudeundruhemitnichteinfurchtvorangreifenvonandererintelligentgeschopfsvo nhinzwischensternartigraumhi Старший, итого — 744 буквы
А вот за это издевательство можно бан вечный схлопотать!!! Нормально попросил и объяснил, почему нужно поменять отображаемое имя Вам минут 7-10 на исправление замечания. Иначе - бан учетки
Как Вы думаете, vikttur - это мое полное и правильное имя? Посмотрите ники других посетителей. Ник - это псевдоним! Не нужно в него тиснуть все свое полное имя.
Это не имя в правильном понимании этого слова. Это - заменитель имени, псевдоним, выдуманное имя. Здесь не паспортный стол. Не хотите так сокращать, придумайте сами себе псевдоним. AIH, например.