在Excel中创建一列超链接

Question

我有一列产品需要转换为超链接。这可以一次性完成还是必须单独完成？

Answer 1

您可以按照以下步骤操作：

• 选择完整列或列中的所有值。
• Pres CTRL + K
• 这会弹出一个小窗口，会询问超链接网址。
• 在那里键入URL或使用浏览页面/当前文件夹/最近文件获取超链接。

下图显示了执行此操作的方法：

Answer 2

假设我们在 A 列中有ID列表，并在同一工作表的其他地方有等效的ID列表：

选择 A 列中的单元格并运行此短宏：

Sub HyperMaker()
    Dim r As Range, v As String, j As Range, subad As String
    With ActiveSheet
        For Each r In Selection
            v = r.Text
            Set f = Cells.Find(What:=v, After:=r)
            subad = .Name & "!" & f.Address(0, 0)
            .Hyperlinks.Add Anchor:=r, Address:="", SubAddress:=subad, TextToDisplay:=v
        Next r
    End With
End Sub

它们将被转换为超链接。