1

我在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
4

1 回答 1

4

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

它会是这样的：

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

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

SubAddress:="'" & ActiveCell.Worksheet.Name & "'!" & ActiveCell.Address
于 2013-05-17T17:15:32.340 回答