使用VBA – 超链接是可变的（基于地址和匹配公式）

我希望有人可以帮助我，因为我很好，真的卡住了。

我正在尝试编写一个macros，它将跟随另一个电子表格中单元格的超链接。 我select使用超链接的原因是我需要单元格引用是可变的。

我写的公式如下：

=HYPERLINK("#'Label Editor'!"&ADDRESS(MATCH(A1,'Label Editor'!$B$1:$B$1001,0),3),"Go to label")

公式工作正常 – 但问题是当我试图logging一个macros。 它不是跟随超链接，而是logging一个固定的单元格引用，如下所示：

 Sub Test1() ' ' Test1 Macro ' ' Keyboard Shortcut: Option+Cmd+q ' Range("G1:I1").Select **Application.Goto Reference:="'Label Editor'!R125C3"** Selection.Copy Sheets("5x13").Select Range("A2:A22").Select ActiveSheet.Paste End Sub 

我试图find一种方法来整合macros中的超链接，但迄今无济于事。 我试着用Lookup公式replace它，如下所示：

 **Application.Goto Reference:=Application.VLookup([A1], [Label Editor], [$b$1:c$1000], 2, False)** Selection.Copy Sheets("5x13").Select Range("A2").Select ActiveSheet.Paste Range("I2:I254,G2:G254,E2:E254,C2:C254,A2:A254").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub 

然而，这出现了：运行时错误“1004”：

我现在完全卡住了 – 任何人都可以帮忙吗？

Answer 1

您可以使用超链接对象的Follow方法。

例

 ActiveCell.Hyperlinks(1).Follow