使用 VBA 在单个 Excel 单元格中添加多个超链接答案

【问题标题】：Adding multiple Hyperlinks in a single Excel Cell using VBA使用 VBA 在单个 Excel 单元格中添加多个超链接
【发布时间】：2015-02-11 14:52:44
【问题描述】：

我目前使用的宏包含一个表单和一个按钮，以及包含路径字符串的数组，如下例所示：

array(0)="C:\Users\Dylan\Desktop\Hi.PDF"
array(1)="C:\Users\Dylan\Desktop\Bye.PDF"
array(2)="C:\Users\Dylan\Desktop\Welcome.PDF"

在按钮单击时，数组的内容被连接并放在一个句子中，链接之间用逗号（，）分隔。只有 1 个路径/链接 [array(0)] 我可以使用 VBA 代码：

ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Hyperlinks.Add array(0)

但是由于一个字符串中有多个链接，VBA 技术是什么？

现在我有：

for i = 0 to 2
    ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value = ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value & array(i)
next i

我需要在一个单元格中添加所有链接。

【问题讨论】：

【解决方案1】：

您可以在单元格中添加带有多个链接的嵌入 HTML 页面。或者您可以绘制一个透明框并删除所有填充并使用链接添加信息。两者实际上都不是在一个单元格中添加多个链接，而是一种解决方法。 :-)

【讨论】：