如何通过Application.WorksheetFunction将长公式结果写入单元格

你要的「仅保留计算结果、不残留公式」的需求有两种稳定实现方式，按需选择即可：

• 方案1：临时写入公式后直接固化值（推荐，零逻辑转换成本）
  不需要改写你已经验证通过的现有公式，执行效率高，不会出现逻辑偏差，代码示例：

' 定义结果写入的目标单元格，按需修改工作表和单元格地址
Dim resultCell As Range
Set resultCell = ThisWorkbook.Sheets("Historic").Range("你要存放结果的单元格，比如N6")

' 临时写入原公式
resultCell.Formula = "=IFERROR(INDEX('TO Pick'!A:Z,MATCH(Historic!M6,'TO Pick'!E:E,0),13)+INDEX(Pick!A:Z,MATCH(Historic!M6,Pick!E:E,0),13),"""")"
' 直接将单元格内容替换为自身计算值，公式会被完全清除
resultCell.Value = resultCell.Value

这个写法执行时单元格会瞬间完成公式写入、计算、值覆盖的流程，不会残留任何公式，和你手动粘贴为值的效果完全一致。

• 方案2：纯WorksheetFunction内存计算（无临时公式写入过程）
  如果你的工具逻辑完全不允许单元格临时出现公式，可以直接在VBA内存中完成计算后赋值，注意VBA调用工作表函数时，需要自行处理匹配失败的错误——单元格里的IFERROR不会自动生效在VBA函数调用层，这也是你之前调整失败的核心原因，代码示例：

Dim resultCell As Range
Dim matchVal As Variant
Dim pickToVal As Variant, pickVal As Variant

Set resultCell = ThisWorkbook.Sheets("Historic").Range("你要存放结果的单元格，比如N6")
' 读取要匹配的基准值，对应公式里的Historic!M6
matchVal = ThisWorkbook.Sheets("Historic").Range("M6").Value

' 捕获匹配不到的运行时错误，对应原公式的IFERROR逻辑
On Error Resume Next
pickToVal = Application.WorksheetFunction.Index( _
    ThisWorkbook.Sheets("TO Pick").Range("A:Z"), _
    Application.WorksheetFunction.Match(matchVal, ThisWorkbook.Sheets("TO Pick").Range("E:E"), 0), _
    13)
pickVal = Application.WorksheetFunction.Index( _
    ThisWorkbook.Sheets("Pick").Range("A:Z"), _
    Application.WorksheetFunction.Match(matchVal, ThisWorkbook.Sheets("Pick").Range("E:E"), 0), _
    13)
On Error GoTo 0

' 按计算结果赋值，匹配失败则返回空文本
If IsError(pickToVal) Or IsError(pickVal) Then
    resultCell.Value = ""
Else
    resultCell.Value = pickToVal + pickVal
End If

注意：如果你的数据量很大，整列匹配（A:Z、E:E）会拖慢计算速度，可以把整列引用改成实际使用的数据区域，比如E1:E1000，计算效率会提升明显。

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