我有一个 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 列中跨所有行的超链接?
最佳答案
您可以使用第 2 列中的简单公式来实现此目的:
=HYPERLINK("your link address here", A1)
使用 A1 的文本作为链接名称。
<小时/>或者使用 VBA 编写该公式:
Range("B1:B10").Formula = "=HYPERLINK(""your link address here"", A1)"
关于vba - 如何将第 1 列中的字符串作为名称分配给 Excel VBA 中所有行的第 2 列中的超链接?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49850105/