Excel复制并粘贴一列超链接

Question

我使用公式=超链接（a1）等创建了一个超链接列B.现在，我希望以超出公式的方式将超链接复制并粘贴到col C中，以便我可以删除A列。

命令＆＃34;粘贴为超链接＆＃34;似乎并不适用于整列数据，它似乎一次只能在一个单元格上工作。

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