如何用INDEX MATCH函数同步提取源单元格的批注内容？

要实现用类似INDEX/MATCH的逻辑匹配数据并同步提取源单元格批注，且不新增额外单元格，可以通过VBA自定义函数+延迟触发批注设置的方式实现，具体步骤如下：

1. 插入VBA代码 #

按Alt+F11打开VBA编辑器，在左侧工程窗口双击你的汇总工作表（比如Sheet2），粘贴以下代码：

' 全局变量存储需添加批注的单元格信息
Private Type NoteRecord
    TargetCell As Range
    NoteContent As String
End Type
Private pendingNotes As Collection

' 自定义函数：匹配数据并记录源单元格批注
Function MatchDataWithNote(dataRange As Range, matchRange As Range, matchVal As Variant) As Variant
    Dim matchRow As Long
    Dim sourceCell As Range
    Dim newRecord As NoteRecord
    
    ' 模拟INDEX/MATCH的匹配逻辑
    On Error Resume Next
    matchRow = Application.Match(matchVal, matchRange, 0)
    On Error GoTo 0
    
    If matchRow = 0 Then
        MatchDataWithNote = "#N/A"
        Exit Function
    End If
    
    ' 获取源单元格并返回数据
    Set sourceCell = dataRange.Cells(matchRow, 1)
    MatchDataWithNote = sourceCell.Value
    
    ' 记录批注信息（仅当源单元格有批注时）
    If Not sourceCell.Comment Is Nothing Then
        Set newRecord.TargetCell = Application.Caller
        newRecord.NoteContent = sourceCell.Comment.Text
        If pendingNotes Is Nothing Then Set pendingNotes = New Collection
        pendingNotes.Add newRecord
        ' 延迟触发批注添加操作
        Application.OnTime Now, "ApplyPendingNotes"
    End If
End Function

' 批量添加批注的子过程
Sub ApplyPendingNotes()
    Dim rec As NoteRecord
    
    If pendingNotes Is Nothing Then Exit Sub
    
    ' 遍历记录给目标单元格设置批注
    For Each rec In pendingNotes
        ' 清除原有批注
        If Not rec.TargetCell.Comment Is Nothing Then
            rec.TargetCell.Comment.Delete
        End If
        ' 添加新批注
        rec.TargetCell.AddComment rec.NoteContent
    Next rec
    
    ' 清空缓存集合
    Set pendingNotes = Nothing
End Sub

2. 在汇总表中使用函数 #

在汇总表的目标单元格输入公式，格式如下：

=MatchDataWithNote(源数据区域, 匹配值区域, 待匹配的值)

举个实际例子：

• 假设源数据在Sheet1的B2:B365（每日数值），匹配用的日期在Sheet1的A2:A365
• 汇总表中待匹配的日期在A2，则在B2输入：

=MatchDataWithNote(Sheet1!B2:B365, Sheet1!A2:A365, A2)

回车后，单元格会返回匹配到的数据，同时自动同步源单元格的批注。

注意事项 #

• 工作簿需保存为启用宏的格式（.xlsm），否则代码无法生效
• 打开工作簿时需启用宏，函数才能正常运行
• 源单元格批注更新后，按F9重新计算汇总表，批注会自动同步更新

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