如何通过VBA结合变量设置HYPERLINK超链接公式？

已知基础写法 #

• 循环添加普通公式的示例：

  ThisWorkbook.Sheets("Sheet1").Range("A" & i).Formula = "=1+1"
  

• 固定工作表名的HYPERLINK公式：

  =HYPERLINK("#Sheet2!A1","Sheet2")

用变量替换固定工作表名的正确语法 #

核心是通过字符串拼接把变量Sheet_Name嵌入到公式字符串中，注意VBA里双引号的转义规则（用两个双引号表示一个实际双引号），分两种场景：

场景1：工作表名称无空格/特殊字符

ThisWorkbook.Sheets("Sheet1").Range("A" & i).Formula = "=HYPERLINK(""#" & Sheet_Name & "!A1"",""" & Sheet_Name & """)"

场景2：工作表名称含空格/特殊字符

这种情况必须用单引号包裹工作表名，否则公式会失效：

ThisWorkbook.Sheets("Sheet1").Range("A" & i).Formula = "=HYPERLINK(""#'" & Sheet_Name & "'!A1"",""" & Sheet_Name & """)"

关键说明 #

• VBA中赋值公式时，公式本身是字符串，需要把变量和固定公式片段用&连接
• 公式里的双引号要写成""才能被VBA正确解析成单个双引号
• 带空格的工作表名必须用单引号包裹，这是Excel公式的语法要求

内容的提问来源于stack exchange，提问作者falcon flyer75