Excel 宏来创建超链接

以下是我在excel中的数据集

COLUMN E    COLUMN K  COLUMN L  COLUMN M  COLUMN N
A3000        A3000
A3100        A3100    A3500
A3200        A3500               A3400
A3400        A3200                        A3500
A3500                            A3400    A3500

---

我正在尝试制作一个宏，它将在K列到N列的单元格中创建超链接，并根据它们的值引用E列的单元格。

尽管我同意Plutian和Zack E上面的评论，但我喜欢这个快速练习。我也是VBA新手，所以很少练习对我来说是很有帮助的学习工具。这里有一个宏，我把它放在一起，它似乎可以满足您的需要：

Sub HyperlinkMacro()
    Dim cell, LinkRange, TargetRange As Range

    Set LinkRange = ActiveSheet.Range("K1:N5")
    Set TargetRange = ActiveSheet.Range("E1:E5")

    For Each cell In LinkRange
        If Len(cell.Value) > 0 Then
            ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:=Range("E1:E5").Find(cell.Value).Address, TextToDisplay:=cell.Value
        End If
    Next

End Sub

---

好的，让我们知道你是如何制作这个宏的。如果您遇到任何问题，请将代码放到您的帖子中，并让我们知道您面临的问题。我们很乐意提供帮助。我是visual basic的新手，并开始学习它。因此，没有为这种逻辑开发代码。因为So不是一个代码编写服务，而是一个让人们在他们已经编写的代码中遇到特定错误或意外行为时获得帮助的地方，我建议您阅读并