Option Explicit  
   
Function Get_Hyperlink_Address(ByVal Cell As Range) As String  
   If Cell.Hyperlinks.Count = 0 Then  
       If Mid$(Cell.Formula, 2, 9) = "HYPERLINK" Then  
           Get_Hyperlink_Address = Mid$(Cell.Formula, 13, InStr(13, Cell.Formula, Chr(34)) - 13)  
       Else  
           Get_Hyperlink_Address = "В ячейке нет гиперссылки!"  
       End If  
   Else  
       Get_Hyperlink_Address = Cell.Hyperlinks(1).Address  
   End If  
End Function  
 
 
 
 
 
Sub Macro1()  
Dim i  
 
 
For i = 1 To 157  
 
Worksheets(1).Cells(i, 9).Value = Get_Hyperlink_Address(ActiveSheet.Cells(i, 1))  
Next i

еще раз огромное спасибо!

Дорогие друзья, позвольте задать еще вопрос?    
Полученный в результате массив выдает значение 1 2 3 4 в текстовом формате, что не позволяет применять к нему формулы типа ВПР.  
Как можно это исправить?    
Пробовал тупо скопировать и вставить как значения, результат отрицательный((    
Спасибо.

небольшой вопрос.  
а как называется функция MID в руссифицированной версии экселя?  
MID=??  
LEFT=ЛЕВСИМВ

{quote}{login=Dmitry}{date=16.12.2010 12:51}{thema=}{post}Да...Всем Спасибо огромное!  
Немного лирики: Удручает меня мое знание Excel, тока понять не могу где же люди учатся?))    
Считаем что Тема закрыта!  
Готов ребят проставиться){/post}{/quote}  
 
я в москве  
dreamglad@yandex.ru  
пишите, слово держу)

Да...Всем Спасибо огромное!  
Немного лирики: Удручает меня мое знание Excel, тока понять не могу где же люди учатся?))    
Считаем что Тема закрыта!  
Готов ребят проставиться)

Спасибо огромное землячок)  
я с Наб. Челнов)  
Но такое простое решение меня просто ставит в ступор)))

Может как-то формулами можно?    
я попробовал, но хрень какая-то получилась((

Крик души.  
Ребята помогите пож-та!

Всем доброго дня!  
В предложенной Теме действительно предложено решение по подбору.  
Помогите пожалуйста немного изменить это, прост оне могу понять как это сделано)  
А именно, требуется чтобы он выдавал не одной цифрой 1234 и пр, а ставил значения 1,2,3,4 в отдельном столбце.    
Прикладываю пример.  
Спасибо большое)

Огромное спасибо!

Может на рисунке будет понятней

Здравствуйте! Нужна ваша помощь.  
 
Есть две таблицы. В первой значения X по горизонтали и Y по вертикали.    
На пересечении X и Y стоят значения.    
 
Вторая таблица из трех столбцов. В первом выбираем значение X во втором Y.    
В третьем должно появляться значение, которое находится на пересечении X и Y (из первой таблици).    
 
Подскажите, как это можно сделать.

{quote}{login=KL}{date=28.08.2009 02:32}{thema=}{post}А вы покажите как вы это пытаетесь делать, на вашем же примере. Заодно узнаем, что в данном случае означает "не получается" ;-){/post}{/quote}  
 
В свой код я пока его не вставлял, хотел попробовать отдельно таким вот образом:  
 
Sub Data()  
   [A1:A4].Replace Application.International(xlDateSeparator), "\"
End Sub

{quote}{login=KL}{date=24.08.2009 01:09}{thema=Re: Re: Re: Re:  
 
[A1:A4].Replace Application.International(xlDateSeparator), "\"{/post}{/quote}
 
Почему то не получилось воспользоваться вашим кодом.    
Я уже не понимаю что делаю.....

{quote}{login=KL}{date=20.08.2009 02:35}{thema=Re: Re: }{post}{quote}{login=Dmitry}{date=20.08.2009 01:59}{thema=Re: }{post}Спасибо за помощь, но это не совсем то что мне нужно. Помогите с кодом "замена точек на любой символ".{/post}{/quote}  
Вас не затруднит пояснить, почему это не совсем то, что вам нужно? Приведенный мной код не является "разделяющим дату на требуемые слодбцы ДД ММ ГГГГ"?{/post}{/quote}  
 
Ваш код работает как надо, но есть несколько моментов. Например, если дата не "дата", а текст, то код не работает и если оставить только "месяц" то он переходит на следующий столбец, как и прописано. Т.е. нужно перед разделением добавлять столбцы, а после удалять не нужные. Можно конечно это всё прописать, но я пока не знаю как...  
PS есть ещё вариант даты с которой приходиться работать (20090824) и кроме как текст по столбцам её не разбить.

{quote}{login=KL}{date=18.08.2009 04:48}{thema=}{post}Если вы будете следовать избранному пути (замене точек на несистемный разделитель), то ваш код будет прямо зависеть от того, какой системный разделитель для дат установлен в конкретном компьютере. Вероятно вам имеет смысл использовать что-то в таком духе:  
 
Спасибо за помощь, но это не совсем то что мне нужно. Помогите с кодом "замена точек на любой символ".

В приложеном файле имеется макрос разделяющий дату на требуемые слодбцы ДД ММ ГГГГ.  
 
Проблемма вообщем то в разделении даты разделённой точками (пример 18.08.2009)  
в момент разделения, дата становится 8\18\2009 соответсвенно на столбцы разбивается криво.  
Пробовал предварительно менять . на , или \ всё работает отлично.  
Но в макрос добавить предварительную замену символов не смог (не работает).  
 
Господа! Помогите закончить макрсос.