VBA设置单元格公式触发1004错误，疑与URL参数有关

一、初始代码与公式的潜在问题 #

1. VBA代码的问题 #

• 直接使用ActiveCell.AddressLocal存在风险：AddressLocal会受系统区域设置影响，生成本地化的单元格地址格式，可能导致跨工作表赋值时地址解析错误。
• 未固定ActiveCell引用：若代码执行过程中工作表激活状态发生变化，ActiveCell会指向其他单元格，引发非预期的赋值错误。
• 优化后的代码：

Dim srcCell As Range
Set srcCell = ActiveCell
If srcCell.HasFormula Then
    Sheets("Sheet1").Range(srcCell.Address).Formula = srcCell.Formula
    Sheets("Sheet1").Range(srcCell.Offset(0, 1).Address).Formula = srcCell.Offset(0, 1).Formula
End If

2. 公式的核心问题 #

公式中外部工作簿链接包含的*?NoRedirect=true*参数，是触发1004错误的直接原因。

二、?NoRedirect=true参数不兼容VBA的原因 #

Excel对外部工作簿链接的格式有严格规范：

• 外部链接的标准格式为 'https://域名/[文件名.xlsm]工作表名'!单元格区域，其中[]包裹的部分必须是纯工作簿文件名，不允许包含URL查询参数（?及后续内容）。
• VBA在赋值Formula属性时，会启动比手动输入更严格的语法校验机制。当链接中存在查询参数时，Excel无法将其识别为有效的外部工作簿路径，直接抛出1004错误。
• 部分Excel版本允许手动输入带参数的公式并临时计算，但VBA的公式解析逻辑不支持这种非标准格式。

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