vba - 如何将第 1 列中的字符串作为名称分配给 Excel VBA 中所有行的第 2 列中的超链接？

Question

我有一个 Excel 电子表格，如下所示:

输入:

Link Name   Hyperlink   Other Data
Group 1     google.de/1     1
Group 1     google.de/2     2
Group 2     google.de/3     3
Group 2     google.de/4     4
Group 3     google.de/5     5

我需要一个 VBA 子程序，将 Link Name 中的所有字符串指定为 Hyperlink 中的链接的名称:

所需输出:

Link Name   Hyperlink   Other Data
Group 1     Group 1         1            # Hyperlink: Underlined, blue
Group 1     Group 1         2            # Hyperlink: Underlined, blue
Group 2     Group 2         3            # Hyperlink: Underlined, blue
Group 2     Group 2         4            # Hyperlink: Underlined, blue
Group 3     Group 3         5            # Hyperlink: Underlined, blue

超链接现在应该是可点击的，并按照链接名称中的定义进行标记。我当前的方法似乎没有循环链接名称列:

当前方法:

Sub rename_links()
For Each h In ActiveSheet.Hyperlinks   // Select hyperlink
    h.TextToDisplay = _
    Replace(h.TextToDisplay, h.TextToDisplay, ActiveCell.Offset(0, -1).Value) 
    Next
End Sub

当前输出:

Link Name   Hyperlink   Other Data
Group 1     Link Name           1          
Group 1     Link Name           2           
Group 2     Link Name           3            
Group 2     Link Name           4           
Group 3     Link Name           5  

我相信这是由于 ActiveCell.Offset(0, -1).Value 不受 Next 影响所致。

如何在 Excel VBA 中将第 1 列中的字符串作为名称分配给第 2 列中跨所有行的超链接？

Answer 1

您可以使用第 2 列中的简单公式来实现此目的:

=HYPERLINK("your link address here", A1)

使用 A1 的文本作为链接名称。

<小时/>

或者使用 VBA 编写该公式:

Range("B1:B10").Formula = "=HYPERLINK(""your link address here"", A1)"