Причина в том, что ваша URL-ссылка имеет более 255 символов, которые функция = Hyperlink () не разрешает.
Если вы разделите ссылку и объедините эти отдельные части (менее 255 символов), вы сможете преодолеть это ограничение.
С помощью макроса вы можете заставить эту ссылку снова кликать. Я взял один, который нашел Брэд Юндт для демонстрационных целей, и изменил его.
Option Explicit
Sub HyperlinkMaker()
'Code assumes column A and B values will be concatenated and used to make a hyperlink
'The hyperlink will be put in column C
Dim i As Long, firstRow As Long, lastRow As Long
Dim sFriendly As String, sHyperlink As String
firstRow = 1 'Put first hyperlink on this row
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'Look at last cell in column A with data
For i = firstRow To lastRow
sHyperlink = .Cells(i, "B").Value & .Cells(i, "B").Value & .Cells(i, "B").Value 'Build the hyperlink
sFriendly = .Cells(i, "A").Value 'Display the "Friendly" value instead of full hyperlink
If sHyperlink <> "" Then .Hyperlinks.Add anchor:=.Cells(5, 1), Address:=sHyperlink, TextToDisplay:=sFriendly 'Output is set to cell(1,5), i.e A5
Next
End With
End Sub
В моем примере я разделил вашу ссылку на 3 ячейки (B1, B2 & B3) и получил имя в A1. Выходной результат будет в A5.
