Excel加载项：如何仅刷新特定工作表中的自定义函数及使用自定义公式的单元格

我来帮你解决这个Excel加载项的刷新痛点——要只更新自己开发的自定义函数，避免全表刷新的冗余计算，分两种常用的加载项场景给你具体方案：

一、针对现代Excel加载项（Office JavaScript API） #

如果你的加载项是用Office JS开发的，你可以通过定位包含自定义函数的单元格，再单独刷新这些范围：

1. 核心实现代码 #

这个函数会遍历指定工作表的使用区域，找出所有包含你自定义函数的单元格，然后批量刷新它们：

async function refreshCustomFunctionsInWorksheet(worksheetName, customFuncName) {
  await Excel.run(async (context) => {
    // 获取目标工作表
    const worksheet = context.workbook.worksheets.getItem(worksheetName);
    const usedRange = worksheet.getUsedRange();
    usedRange.load("formulas");
    await context.sync();

    // 收集所有含自定义函数的单元格地址
    const targetAddresses = [];
    const formulas = usedRange.formulas;
    for (let row = 0; row < formulas.length; row++) {
      for (let col = 0; col < formulas[row].length; col++) {
        const formula = formulas[row][col];
        // 检查公式是否包含你的自定义函数（注意公式以=开头）
        if (formula && formula.includes(`=${customFuncName}`)) {
          // 转换为A1格式地址
          const colLetter = String.fromCharCode(65 + col);
          const address = `${colLetter}${row + 1}`;
          targetAddresses.push(address);
        }
      }
    }

    // 批量刷新目标单元格
    if (targetAddresses.length > 0) {
      const targetRange = worksheet.getRange(targetAddresses.join(","));
      targetRange.refresh();
      await context.sync();
    }
  });
}

2. 调用示例 #

比如你要刷新名为「业务数据」工作表里的MY_CUSTOM_CALC函数，直接调用：

refreshCustomFunctionsInWorksheet("业务数据", "MY_CUSTOM_CALC");

二、针对VBA加载项 #

如果你的加载项是基于VBA开发的，替代Worksheet.Calculate()的方案如下：

1. 基础遍历实现（适合小型工作表） #

遍历目标工作表的使用区域，逐个检查并计算包含自定义函数的单元格：

Sub RefreshCustomFunctionsInWorksheet(wsName As String, customFuncName As String)
    Dim ws As Worksheet
    Dim usedRange As Range
    Dim cell As Range
    
    Set ws = ThisWorkbook.Worksheets(wsName)
    Set usedRange = ws.UsedRange
    
    For Each cell In usedRange
        ' 只处理有公式且包含自定义函数的单元格
        If cell.HasFormula Then
            If InStr(cell.Formula, "=" & customFuncName) > 0 Then
                cell.Calculate ' 仅计算当前单元格，避免全表刷新
            End If
        End If
    Next cell
End Sub

2. 优化版：用Find批量定位（适合大型工作表） #

如果工作表数据量很大，遍历每个单元格效率低，用Find和FindNext快速批量定位：

Sub RefreshCustomFunctionsFast(wsName As String, customFuncName As String)
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstAddress As String
    
    Set ws = ThisWorkbook.Worksheets(wsName)
    Set searchRange = ws.UsedRange
    
    ' 查找第一个包含自定义函数的单元格
    Set foundCell = searchRange.Find(What:="=" & customFuncName, LookIn:=xlFormulas, LookAt:=xlPart)
    
    If Not foundCell Is Nothing Then
        firstAddress = foundCell.Address
        Do
            foundCell.Calculate ' 单独计算该单元格
            Set foundCell = searchRange.FindNext(foundCell)
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstAddress
    End If
End Sub

3. 调用示例 #

比如刷新「销售报表」里的MY_SALES_FUNC函数：

Call RefreshCustomFunctionsFast("销售报表", "MY_SALES_FUNC")

不管用哪种方案，核心思路都是精准定位包含你的自定义函数的单元格，只刷新这些范围，完全避免全表计算的性能浪费。

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