Excel复制并粘贴一列超链接

Question

我使用公式=超链接（a1）等创建了一个超链接列B现在我想复制并粘贴超链接到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