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

我在excel中遇到了超链接问题。我试图设置从一个表到另一个超链接，但源和目标单元格需要改变每一次循环。基本上我想要将数据从组1中的一个单元移动到组2中的另一个单元，然后将组2中的超链接设置回组1中的同一单元。我有200个值，所以我想在循环中执行此操作。我只是无法弄清楚我的SubAddress有什么问题！我怎样才能让我的超链接工作？（Excel，VBA）

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

谢谢你的帮助。

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

来源

2013-05-17 user2304163

它是什么做错了什么？ – Sorceri

如果我按GROUP 2单元格B14中的超链接，它指的是同一工作表（GROUP 2）中的单元格A5。我需要它参考另一个工作表（组1）中的单元格A5。 – user2304163

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

它会是这样的：

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

如果您的工作表名称可能有像你这样的一个空间，它会实际上有是这样的：

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

来源

2013-05-17 17:15:32

谢谢！我一直在努力整天，随处看，问题现在解决:) – user2304163

在这种情况下，接受这个答案。基于你的热情，你也应该赞同它。 –

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

回答

相关问题

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