Excel VBA写入单元格公式自动添加@符号，TRANSPOSE公式执行后返回#VALUE!错误求助

我来帮你搞定这个问题——你碰到的@TRANSPOSE(@VaR)和#VALUE!错误，核心原因是Excel的动态数组特性和VBA直接赋值公式的方式不兼容导致的，下面分情况给出解决方案：

原因分析 #

当你用VBA的.Value属性给多单元格区域写入单个公式文本时，Excel会默认把这个公式当作单个单元格的公式来处理，自动添加@（隐式交集运算符），目的是从数组结果中取当前单元格对应的单个值。但TRANSPOSE是数组函数，返回的是一个数组，隐式交集无法正确解析，就会抛出#VALUE!错误。

解决方案 #

方案1：使用数组公式方式写入（兼容所有Excel版本） #

改用.FormulaArray属性来赋值，这样Excel会将公式识别为数组公式，不会添加@符号，同时能正确处理TRANSPOSE的数组结果。

代码示例：

wsMyWorkSheets.Range(Cells(3 + vHeaderSize, 9), Cells(3 + vHeaderSize, 8 + vHeaderSize)).FormulaArray = "=TRANSPOSE(VaR)"

注意：目标区域的大小必须和TRANSPOSE(VaR)的结果完全匹配。比如如果VaR是一个垂直区域（n行1列），那么目标区域必须是1行n列，否则数组公式会报错。

方案2：利用动态数组溢出特性（适用于Excel 365/2021及以上） #

如果你使用的是支持动态数组的Excel版本，只需要在目标区域的第一个单元格写入公式，让Excel自动把结果“溢出”到右侧的单元格即可，不需要手动指定整个区域：

代码示例：

wsMyWorkSheets.Cells(3 + vHeaderSize, 9).Formula = "=TRANSPOSE(VaR)"

这种方式下，Excel会自动处理数组结果，不会添加@符号，而且无需手动匹配区域大小，非常便捷。

方案3：检查并修正VaR的引用（关键！） #

如果上面的方法还不生效，大概率是VaR的引用有问题：

• 如果VaR是Excel命名区域：确认它的引用范围正确，没有指向空单元格或者错误的区域。
• 如果VaR是VBA变量：你不能直接在公式字符串里使用VBA变量名，必须把变量转换成Excel能识别的单元格地址。比如VaR是一个Range对象，代码应该改成：

  Dim targetRange As Range
  Set targetRange = wsMyWorkSheets.Range(Cells(3 + vHeaderSize, 9), Cells(3 + vHeaderSize, 8 + vHeaderSize))
  targetRange.FormulaArray = "=TRANSPOSE(" & VaR.Address(External:=True) & ")"
  

  这里用Address(External:=True)确保引用跨工作表时也能正确识别。

额外注意事项 #

• 避免在多单元格区域用.Value或.Formula赋值单个数组函数公式，这会触发Excel的隐式交集逻辑，导致@符号出现。
• 数组公式的维度匹配是关键：TRANSPOSE会转换区域的行和列，确保目标区域的维度和转换后的结果一致。

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