createhyperlink do ub ()
WS não ofuscante como a folha
Ws1 não ofuscante como a folha
Rng não ofuscante como a escala
C não ofuscante como a escala
Rng2 não ofuscante como a escala
Ajustar WS = folhas (“Sheet1”)
Ajustar ws1 = folhas (“Sheet2”)
Ajustar o rng = o ws1.Range (“a2: ” & ws1.Cells (Cells.Rows.Count, “A”). Extremidade (xlUp). Fileira)
Para cada c no rng
Se "" <> de c.Value então
x = c.Value
Ajustar rng2 = WS. Colunas (1). Achado (que: =x, em seguida: =ws. Pilhas (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
Se não rng2 não é nada então escora da WS. Hyperlinks.Add: =c, endereço: = "", SubAddress: = "" & WS. Nome & “!” & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
Terminar se
C seguinte
Submarino da extremidade
|