createhyperlink ub ()
Тусклый ws как рабочий лист
Тусклое ws1 как рабочий лист
Тусклое rng как ряд
Тусклый c как ряд
Тусклое rng2 как ряд
Установите ws = листы («Sheet1»)
Установите ws1 = листы («Sheet2»)
Установите rng = ws1.Range («a2: » & ws1.Cells (Cells.Rows.Count, «a»). Конец (xlUp). Рядок)
Для каждого c в rng
Если "" <> c.Value после этого
x = c.Value
Установите rng2 = ws. Колонки (1).Find (: =x, поже: =ws. Клетки (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
Если не rng2 ничего после этого анкер ws. Hyperlinks.Add:, то=c, адрес: = "", SubAddress: = "" & ws. Имя & «!» & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
Закончитесь если
Следующий c
Подводная лодка конца
|