如何基于同行列Type值，跨Sheet引用对应公式到当前单元格？

在values工作表中，需要根据每行Type列的取值，自动将rules工作表中对应Type的公式插入到Type列的右侧单元格，避免编写冗长的IF嵌套公式，以下是几种可行方案：

方案一：函数组合法（无需VBA，适合普通用户） #

假设rules表结构为：A列是Type值，B列是文本形式的公式（需先将单元格格式设为文本，再输入带引号的公式，例如"=SUM(D2:E2)"）。

在values表中Type列的下一列（假设Type在B列，目标列为C列），从第二行（表头行下一行）输入公式：

=INDIRECT(VLOOKUP(B2,rules!A:B,2,FALSE))

若使用Excel 365/2021及以上版本，可使用更简洁的XLOOKUP替代：

=INDIRECT(XLOOKUP(B2,rules!A:A,rules!B:B))

• 原理：VLOOKUP/XLOOKUP根据Type值匹配rules表中对应的公式文本，INDIRECT函数将文本转换为可执行的公式。
• 注意：公式中的单元格引用要注意相对/绝对引用的设置，确保在values表中应用时引用正确。

方案二：VBA宏批量处理（高效灵活） #

适合需要批量处理大量数据的场景，步骤如下：

1. 按Alt+F11打开VBA编辑器，插入新模块；
2. 粘贴以下代码（根据实际列号修改）：

Sub InsertFormulaByType()
    Dim wsValues As Worksheet, wsRules As Worksheet
    Dim lastRow As Long, i As Long
    Dim typeVal As String, formulaStr As String
    
    Set wsValues = ThisWorkbook.Sheets("values")
    Set wsRules = ThisWorkbook.Sheets("rules")
    
    ' 假设Type列在B列，修改为实际列标
    lastRow = wsValues.Cells(wsValues.Rows.Count, "B").End(xlUp).Row
    
    ' 从第二行开始遍历（跳过表头）
    For i = 2 To lastRow
        typeVal = wsValues.Cells(i, "B").Value
        ' 在rules表A:B区域查找对应Type的公式
        formulaStr = Application.VLookup(typeVal, wsRules.Range("A:B"), 2, False)
        
        ' 找到公式则插入到右侧C列，可修改为目标列标
        If Not IsError(formulaStr) Then
            wsValues.Cells(i, "C").Formula = formulaStr
        End If
    Next i
End Sub

3. 运行宏即可完成批量公式插入，rules表中B列直接输入公式（无需加引号，例如=SUM(D2:E2)）。

方案三：Power Query动态更新（适合数据频繁更新场景） #

1. 将values和rules表导入Power Query；
2. 通过「合并查询」功能，以Type列为匹配键，将两表合并；
3. 添加自定义列，将合并得到的公式文本转换为可执行公式；
4. 将处理后的数据加载回工作表，后续数据更新时可一键刷新。

内容的提问来源于stack exchange，提问作者Reto E.