我怎样才能让我的超链接工作？（Excel，VBA）答案

【问题标题】：How can i get my hyperlink to work? (Excel, VBA)我怎样才能让我的超链接工作？（Excel，VBA）
【发布时间】：2013-05-18 01:15:32
【问题描述】：

我在 excel 中的超链接有问题。我试图设置从一张表到另一张表的超链接，但源和目标单元格需要在循环中每次都更改。基本上我想将数据从第 1 组中的一个单元格移动到第 2 组中的另一个单元格，然后将第 2 组中的超链接设置回第 1 组中的同一单元格。我有 200 个值，所以我想在循环中执行此操作。我只是无法弄清楚我的子地址出了什么问题！

这是我下面的代码.....

感谢您的帮助。

Sub Transfer_and link()
Dim i As Integer
Dim LastRow1, As Long

LastRow1 = Sheets("GROUP 1").Cells(Rows.Count, "A").End(xlUp).Row

a = 14
For i = 5 To LastRow1 Step 2
Sheets("GROUP 2").Cells(a, 2) = Sheets("GROUP 1").Cells(i, 1)
Sheets("GROUP 2").Cells(a, 3) = Sheets("GROUP 1").Cells(i, 9)
Sheets("GROUP 2").Cells(a, 4) = Sheets("GROUP 1").Cells(i, 10)

Sheets("GROUP 1").Activate
Cells(i, 1).Select
Worksheets(2).Hyperlinks.Add Anchor:=Worksheets(2).Cells(a, 2), Address:="", _
SubAddress:=ActiveCell.Address

a = a + 1
Next i

【问题讨论】：

它做错了什么？
如果我按下第 2 组单元格 B14 中的超链接，它指的是同一张表（第 2 组）中的单元格 A5。我需要它来引用另一张表（第 1 组）中的单元格 A5。

标签： excel hyperlink vba

【解决方案1】：

ActiveCell.Address 只返回单元格引用。您还需要添加工作表参考。

应该是这样的：

SubAddress:=ActiveCell.Worksheet.Name & "!" & ActiveCell.Address

如果您的工作表名称可能像您一样有空格，那么它实际上必须是这样的：

SubAddress:="'" & ActiveCell.Worksheet.Name & "'!" & ActiveCell.Address

【讨论】：

谢谢！我整天都在为此苦苦挣扎，到处寻找，现在问题已经解决了:)
在这种情况下，接受这个答案。根据您的热情，您也应该支持它。