Excel скопировать и вставить столбец гиперссылок

Question

Я создал столбец B гиперссылок, используя формулу = гиперссылка (a1) и т. Д. Теперь я хотел бы скопировать и вставить гиперссылки в col C таким образом, чтобы избавиться от формулу, чтобы я мог удалить столбец A.

Команда «вставить как гиперссылку», похоже, не работает на целый столбец данных, она работает только по одной ячейке за раз.

Answer 1

Один из способов - проанализировать формулу. Если мы имеем:

Тогда что-то вроде:

Sub HyperConverter() 
    Dim r As Range 

    For Each r In Range("B:B").Cells.SpecialCells(xlCellTypeFormulas) 
     s = r.Formula 
     If InStr(1, s, "HYPER") > 0 Then 
     ary = Split(s, Chr(34)) 
     ActiveSheet.Hyperlinks.Add Anchor:=r.Offset(0, 1), Address:=ary(1), TextToDisplay:=ary(3) 
     End If 
    Next r 
End Sub