Question

以下是我在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列中的单元格。

Answer 1

尽管我同意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

创建超链接的宏

1 个答案: