求可嵌入宏的Excel公式：跨表匹配姓名后计算数值差值

我来给你梳理一下这个需求的具体实现方法，不管是直接用单元格公式，还是嵌入宏批量处理，都能搞定：

一、直接单元格公式（可嵌入宏批量填充） #

如果只是想在Sheet3的对应单元格得到计算结果，你可以在Sheet3的B2单元格输入下面的公式，然后下拉填充到所有行：

=IF(AND(ISNUMBER(XLOOKUP(A2,Sheet1!A:A,Sheet1!A:A)),ISNUMBER(XLOOKUP(A2,Sheet2!A:A,Sheet2!A:A))),XLOOKUP(A2,Sheet2!A:B,Sheet2!B:B)-XLOOKUP(A2,Sheet1!A:B,Sheet1!B:B),"")

公式逻辑说明： #

• AND(ISNUMBER(...))：判断当前姓名是否同时存在于Sheet1和Sheet2的A列
• 如果存在，就用XLOOKUP分别找到Sheet2和Sheet1对应姓名的B列数值，做减法运算
• 如果不存在，返回空单元格（你也可以改成类似"无匹配"的提示文本）

注意：如果你的Excel版本是2019及以前，不支持XLOOKUP，可以换成VLOOKUP版本：

=IF(AND(ISNUMBER(VLOOKUP(A2,Sheet1!A:A,1,FALSE)),ISNUMBER(VLOOKUP(A2,Sheet2!A:A,1,FALSE))),VLOOKUP(A2,Sheet2!A:B,2,FALSE)-VLOOKUP(A2,Sheet1!A:B,2,FALSE),"")

二、嵌入宏的VBA实现（批量处理更高效） #

如果要把这个逻辑做成宏一键执行，适合批量处理1200条数据的场景，你可以按以下步骤操作：

1. 按下Alt + F11打开VBA编辑器
2. 插入一个新模块，粘贴下面的代码：

Sub CalculateNameDifferences()
    Dim wsSheet3 As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim targetName As String
    Dim valFromSheet1 As Variant
    Dim valFromSheet2 As Variant
    
    ' 指定Sheet3工作表
    Set wsSheet3 = ThisWorkbook.Worksheets("Sheet3")
    ' 获取Sheet3中A列最后一行的行号
    lastRow = wsSheet3.Cells(wsSheet3.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有姓名行（从第2行开始，假设第1行是表头）
    For currentRow = 2 To lastRow
        targetName = wsSheet3.Cells(currentRow, "A").Value
        
        ' 在Sheet1中查找对应姓名的B列值
        valFromSheet1 = Application.VLookup(targetName, ThisWorkbook.Worksheets("Sheet1").Range("A:B"), 2, False)
        ' 在Sheet2中查找对应姓名的B列值
        valFromSheet2 = Application.VLookup(targetName, ThisWorkbook.Worksheets("Sheet2").Range("A:B"), 2, False)
        
        ' 判断是否在两个表中都找到匹配项
        If Not IsError(valFromSheet1) And Not IsError(valFromSheet2) Then
            wsSheet3.Cells(currentRow, "B").Value = valFromSheet2 - valFromSheet1
        Else
            wsSheet3.Cells(currentRow, "B").Value = "" ' 无匹配时留空，可自定义提示
        End If
    Next currentRow
    
    MsgBox "计算完成！", vbInformation
End Sub

宏的扩展说明： #

• 如果需要处理B到AD列的所有日期列，只需要在代码中添加一个列循环，把B列扩展到AD列（列号从2到30）
• 运行宏时，直接在Excel中按Alt + F8，选择CalculateNameDifferences执行即可
• 记得把文件保存为.xlsm格式，否则宏会丢失

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