Excel中如何为引用无结束日期数据的单元格添加批注？

你的需求完全可以实现，下面给你两种适配不同场景的方案，适合新手逐步上手：

一、无VBA半手动方案（适合不想碰代码的新手） #

这种方案靠辅助列配合手动操作完成，步骤如下：

1. 先优化后台表的INDEX/MATCH公式，确保只有当Table2中结束日期为空时才返回事件类型，示例公式（根据你的实际单元格调整）：

   =IFERROR(IF(INDEX(Table2[结束日期], MATCH(1, (Table2[对象]=A2)*(Table2[客户]=B2), 0))="", INDEX(Table2[事件类型], MATCH(1, (Table2[对象]=A2)*(Table2[客户]=B2), 0)), ""), "")
   

2. 在后台表新增一列「对应批注」，用公式匹配Table2中符合条件的批注内容：

   =IF(C2<>"", INDEX(Table2[批注栏], MATCH(1, (Table2[对象]=A2)*(Table2[客户]=B2)*(Table2[结束日期]=""), 0)), "")
   

3. 复制「对应批注」列的内容，选中Table1中需要加批注的单元格区域，右键选择选择性粘贴>批注，就能把内容批量导入为单元格批注。每次Table2更新后，重复这一步即可。

二、VBA自动方案（适合需要批量自动更新的场景） #

如果想实现Table2更新后自动同步批注，用VBA宏是最高效的方式，步骤如下：

1. 按Alt + F11打开VBA编辑器，在左侧工程窗口右键你的工作簿，选择插入>模块。
2. 粘贴以下代码，注意替换代码里的工作表名、Table2的列标题（要和你的表格完全一致）：

   Sub UpdateTable1Comments()
       Dim tbl2 As ListObject, tbl1Range As Range
       Dim objCol As Integer, custCol As Integer, endDateCol As Integer, commentCol As Integer
       Dim rowNum As Integer, matchObjRow As Integer, matchCustCol As Integer
       
       ' 绑定Table2（替换成你的Table2所在工作表名和表名）
       Set tbl2 = ThisWorkbook.Worksheets("Sheet2").ListObjects("Table2")
       ' 绑定Table2各列的索引（替换成你的列标题）
       objCol = tbl2.ListColumns("对象").Index
       custCol = tbl2.ListColumns("客户").Index
       endDateCol = tbl2.ListColumns("结束日期").Index
       commentCol = tbl2.ListColumns("批注栏").Index
       
       ' 绑定Table1的范围（替换成你的Table1所在工作表名）
       Set tbl1Range = ThisWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion
       
       ' 先清空Table1所有旧批注
       tbl1Range.ClearComments
       
       ' 遍历Table2每一行数据
       For rowNum = 1 To tbl2.ListRows.Count
           ' 只处理结束日期为空的行
           If tbl2.ListRows(rowNum).Range(endDateCol) = "" Then
               ' 匹配Table1中对应的对象行和客户列
               matchObjRow = Application.Match(tbl2.ListRows(rowNum).Range(objCol), tbl1Range.Columns(1), 0)
               matchCustCol = Application.Match(tbl2.ListRows(rowNum).Range(custCol), tbl1Range.Rows(1), 0)
               
               ' 如果匹配到有效单元格，添加批注
               If Not IsError(matchObjRow) And Not IsError(matchCustCol) Then
                   With tbl1Range.Cells(matchObjRow, matchCustCol)
                       .AddComment
                       .Comment.Text Text:=tbl2.ListRows(rowNum).Range(commentCol).Value
                       .Comment.Shape.TextFrame.AutoSize = True ' 自动适配批注内容宽度
                   End With
               End If
           End If
       Next rowNum
   End Sub
   

3. 保存工作簿为**启用宏的工作簿（.xlsm）**格式，每次更新Table2后，按Alt + F8，选择UpdateTable1Comments运行宏，就能自动给Table1的对应单元格加上批注。

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