excel-2008 - Excel复制并粘贴一列超链接

Question

我使用公式 =hyperlink(a1) 等创建了超链接的列 B。现在我想以摆脱公式的方式将超链接复制并粘贴到列 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