如何在 Excel 中使用 VBA/宏超链接列中的文本

Question

我有下表（示例），其中包含一列请求 ID 和一列请求 ID URL 的数千行。 如何使用 VBA 或宏将请求 ID URL 超链接到请求 ID 文本列，以便当人们单击 ID 时，它将被重定向到 URL。

我不希望添加另一列并使用 HYPERLINK 公式，例如 =HYPERLINK(B2,A2)。我希望链接可以直接嵌入到现有的

谢谢！

Answer 1

我通过使用 Excel Script Lab 编写了一个非常基本的代码 sn-p 解决了我自己的问题。 只需要弄清楚如何在 Script Lab 中获得动态范围，因为 Excel 工作表范围可能会不时变化...... 代码如下。

async function run() {
  await Excel.run(async (context) => {
    const sheet = context.workbook.worksheets.getActiveWorksheet();
    
    let reqID = sheet.getRange("A2:A6");
    reqID.load("values");

    let reqURL = sheet.getRange("B2:B6");
    reqURL.load("values");

    await context.sync();

    for(let i=0;i<reqID.values.length;i++){
      let cellRange = reqID.getCell(i,0);
      let cellText = reqID.values[i][0];
      let cellURL = reqURL.values[i][0];

      let hyperlink ={
        textToDisplay: cellText,
        address: cellURL
      }
      cellRange.hyperlink = hyperlink;
    }

  });
}