骑lv上高速一说到“快速合并Excel多表注释”，很多人第一反应是：不就是复制粘贴吗？但真拿到几十个工作表，每张表里几十条批注，要按工作表汇总、按单元格定位、还要把批注作者和内容整理成一张清单的时候，“复制粘贴”这四个字就变得特别苍白。这篇就来聊聊我自己处理这类需求时用过的方法，从最快的一次性查看，到可以反复运行的VBA宏，再到适合定期刷新的Power Query思路，全给你捋一遍。不管你是财务、运营、人事，还是经常和报表较劲的职场人，都能找到适合自己动手水平的一套。
1. 内容整体设计与思路拆解
1.1 先分清楚你手上的“注释”到底是哪一种
“注释”这个词在Excel里其实挺暧昧的。不同的人说“把注释合并一下”，实际要的可能是三种完全不同的东西。
第一种是批注，也就是右键单元格选择“插入批注”后出现的那种黄色小便签，单元格右上角有个红色小三角，鼠标悬停才能看到内容。第二种是单元格里的普通文本，比如一张表专门有一列叫“备注”“审核意见”，里面写着“已对账”“发票未收到”之类的业务说明。第三种是数据验证里设置的“输入提示”，以及公式里的名称注释，这些一般不需要合并到结果表，但在盘点时也可能被问到。
这三种形态的合并方式完全不同：批注要靠查找、宏表函数或VBA逐条提取；备注文本列直接用公式或Power Query就能拼；输入提示类的注释如果要导出，基本得走对象模型。所以开搞之前，先确认你手上的是哪一种，后面就不会白忙活。
1.2 为什么手工合并这条路基本走不通
可能有人觉得，批注又不算多，哪张表有批注，点开单元格选中批注框复制粘贴到汇总表不就行了。但真正常见的业务场景是：几十个工作表，分布在多个文件里，每个表可能有几十条批注，加起来上百条甚至上千条。逐条复制粘贴的速度极慢，更麻烦的是很容易看漏，而且复制粘贴的过程中最关键的信息——批注挂在哪个单元格上、是在哪个工作表里——经常会被丢掉。
还有个隐性成本：如果原始表数据更新了，批注又加了几条，手工合并的结果就过期了，你可能还要从头再复制一遍。效率低不说，还容易出错。这也是为什么“快速合并Excel多表注释”这件事，值得专门讲一套方法。
1.3 合并前先做的三件准备工作
第一，统一工作表结构。如果你要合并的是备注列，各个表的表头必须对齐，比如都是“A列=姓名，B列=备注”，否则后面Power Query合并时字段会对不上。
第二，明确批注挂载位置。批注不是独立存在的东西，它一定挂在某个单元格上，合并时必须要把“工作表名+单元格地址”也一起记录下来，否则批注内容再全也没有意义。
第三，规范命名工作表。写VBA或Power Query时，我们经常要排除汇总表本身，如果一个工作簿里有张表叫“Sheet1”，另一张叫“数据汇总”，代码写起来就要额外小心，最好提前把要合并的工作表统一成有规律的名字。
这套准备工作大部分人不重视，但恰恰是决定最后结果可不可用的关键。
需要模型API调用？ 免费领10W Token，多模型网关一键接入 Claude、DeepSeek 等主流模型。
2. 方案一：不写代码，也能快速提取批注文本
2.1 用查找功能把批注“筛”出来
如果只是偶尔一次，批注量也不大，最快速的办法是直接用Excel的查找功能。打开“开始”选项卡的“查找和选择”，或者直接按Ctrl+F，点开“选项”，把“查找范围”从“公式”改成“批注”，然后在“查找内容”里输入一个星号*，再勾选“通配符”，最后点击“查找全部”。这时候Excel会把所有带批注的单元格列出来，列表里会显示批注所在的“工作表”“名称（单元格地址）”“值”这几列。
但这里有个坑：查找结果列表里显示的是单元格的值，不是批注的正文。别以为看到了“工作表、名称、值”就等于拿到了批注内容，它只是帮你定位到哪些单元格有批注，真正读批注正文，还得靠后面的宏表函数或VBA。
提示：如果你在查找范围里选“批注”，其实也可以在批注内容里直接查找替换。比如你发现所有批注里都有“暂估”两个字，想批量改成“暂估待定”，用
Ctrl+H配合“查找范围=批注”非常快。但如果是要提取批注，它就不是最合适的工具。
2.2 用GET.CELL宏表函数把批注变成单元格文本
Excel里有一类被隐藏的老函数叫“宏表函数”，在普通工作表里不能直接输入，但可以通过“定义名称”来使用。GET.CELL就是其中最常用的一类，语法是GET.CELL(类型号, 单元格)，其中类型号32就代表“取批注文本”。
具体操作步骤是这样：
- 假设批注在A列，你想在B列显示批注内容，先选中B2单元格。
- 按
Ctrl+F3打开“名称管理器”，点击“新建”。 - 名称填
批注内容，引用位置填=GET.CELL(32,INDIRECT("rc[-1]",0))，然后确定。 - 退出名称管理器，在B2单元格输入
=批注内容，按回车，再向下填充。
INDIRECT("rc[-1]",0)的意思是取当前公式所在单元格左边一列、同一行的单元格，第二个参数0代表用的是R1C1引用风格。这样一来，B列公式就能跟着A列单元格自动变化，不需要为每一行单独写名称。如果A列单元格没有批注，公式会返回错误值，看起来不够友好，可以用=IFERROR(批注内容,"")包一层。
用这个方法的好处是：它是公式，不是一次性操作，批注内容一旦修改，B列的结果会跟着更新；坏处是宏表函数只在启用宏的工作簿环境里可用，保存时必须另存为.xlsm或.xls格式，关闭后再打开也要留意Excel的宏安全提示。
2.3 把公式结果固化下来
用GET.CELL提取完批注内容后，汇总表里还是一堆公式，如果这个文件要发给别人，或者以后要归档，最好把公式结果粘贴成静态文本。操作方法是：选中提取出来的区域，按Ctrl+C复制，然后右键“选择粘贴”，选择“数值”。之后就变成普通文本了，不会再跟着源批注变化。
这一步看起来简单，但很多人会漏掉：如果不粘贴成数值，将来原表批注被删除，公式返回错误值，整个汇总表的可读性就毁了。
注意：GET.CELL这种宏表函数提取的是“传统批注”的内容。如果你用的是Office 365新版界面里的“新建批注”（也就是右侧评论窗格里的对话式批注），这类线程式评论并不是传统批注对象，GET.CELL和后面VBA代码里的Comment对象都读不到。遇到这种情况，建议先把对话式评论的内容手工复制到传统批注（新版界面可能叫“新建备注”）里，或者直接用平台自带的评论导出能力。
3. 方案二：VBA宏，一键合并当前工作簿的所有批注
3.1 什么时候值得上VBA
如果你需要合并的不仅是两三张表，而是很多工作表，或者你希望一次操作把工作表名、单元格地址、批注作者、批注内容全部整整齐矩输出到一张汇总表里，那原生功能和公式都不太够用。写一段VBA宏，是目前效率最高、通用性最强的做法。
VBA的适用场景我总结有三个：一是批注量很大，手工复制不现实；二是需要导出批注的元信息，比如作者、所在工作表、单元格地址；三是这种合并需求会反复出现，比如每月报表都要做一次，宏脚本可以一劳永逸。
3.2 运行VBA前的准备
按Alt+F11打开VBA编辑器，在左侧工程资源管理器里右键选择“插入-模块”，把代码粘进去。回到Excel后按Alt+F8找到宏名运行即可。如果第一次运行提示“宏已被禁用”，需要去“文件-选项-信任中心-信任中心设置-宏设置”里启用“启用所有宏”，然后把工作簿另存为带宏的.xlsm格式。
这里特别提醒一句：宏运行前一定先备份原始文件。别觉得多此一举，文本和批注这种东西，一旦被代码覆盖又保存，再找回来的成本非常高。
3.3 提取全部批注到汇总表的完整代码
我先把可以直接抄的代码放出来，再逐段讲为什么这样写。
vba复制Sub MergeCommentsFromAllSheets()
Dim ws As Worksheet
Dim rng As Range
Dim cmt As Object
Dim destWS As Worksheet
Dim destRow As Long
Dim cmtText As String
Dim commentCells As Range
On Error Resume Next
Application.DisplayAlerts = False
Set destWS = ThisWorkbook.Worksheets("汇总")
Application.DisplayAlerts = True
On Error GoTo 0
If destWS Is Nothing Then
Set destWS = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
destWS.Name = "汇总"
Else
destWS.Cells.Clear
End If
destWS.Cells(1, 1).Value = "原工作表"
destWS.Cells(1, 2).Value = "单元格地址"
destWS.Cells(1, 3).Value = "批注作者"
destWS.Cells(1, 4).Value = "批注内容"
destWS.Cells(1, 5).Value = "单元格原值"
destRow = 2
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "汇总" Then
On Error Resume Next
Set commentCells = ws.Cells.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If Not commentCells Is Nothing Then
For Each rng In commentCells
Set cmt = rng.Comment
If Not cmt Is Nothing Then
cmtText = cmt.Text
cmtText = Replace(cmtText, vbCrLf, " | ")
cmtText = Replace(cmtText, vbLf, " | ")
destWS.Cells(destRow, 1).Value = ws.Name
destWS.Cells(destRow, 2).Value = rng.Address(False, False)
destWS.Cells(destRow, 3).Value = cmt.Author
destWS.Cells(destRow, 4).Value = cmtText
destWS.Cells(destRow, 5).Value = rng.Value
destRow = destRow + 1
End If
Next rng
End If
End If
Next ws
MsgBox "合并完成，共提取 " & destRow - 2 & " 条批注。", vbInformation, "完成"
End Sub
代码逻辑分四步。第一步，检查有没有“汇总”工作表，没有就新建一个，有就清空内容，确保每次运行不会把旧结果摞在新结果下面。第二步，写入表头。第三步，遍历当前工作簿的所有工作表，跳过“汇总”表本身，用SpecialCells(xlCellTypeComments)找到所有带批注的单元格。SpecialCells是这一段的关键，它可以直接筛选出符合条件的单元格，比用Cells逐个遍历整张表快几个数量级。第四步，把工作表名、单元格地址、批注作者、批注内容、单元格原值五项信息写入汇总表。
3.4 代码里容易被忽略的细节
第一，为什么cmt要声明成Object而不是Comment？在大多数版本的Excel VBA环境中，Comment类型是可用的，但如果你把代码拿给不同Office版本使用，或者引用的对象库状态不一样，直接用Dim cmt As Comment可能编译报错。声明成Object虽然会损失一点代码提示功能，但兼容性最好，这是我推荐的做法。
第二，为什么要用Replace(cmt.Text, vbCrLf, " | ")再替换一次vbLf？批注内容里经常有多行文字，如果直接把换行符带进汇总表，单元格会自动换行，看起来非常乱。把它替换成“ | ”这种分隔符，可以在一个单元格里看清完整批注。如果你希望保留原始排版，这几行可以去掉。
第三，批注内容往往带着作者前缀。老版Excel的Comment.Text属性返回的文本里，默认会以作者名:开头，比如张三:请核对。如果你不需要这个前缀，可以在提取后统一用“查找-替换”，把“张三:”替换为空字符串。不过我更推荐保留它，因为多表合并时，知道批注是谁写的往往和批注本身一样重要。
3.5 跨工作簿合并怎么扩展
页面上叫“多表”，实际上很可能是“多表+多文件”。需要跨工作簿合并时，思路稍有不同：先通过Application.GetOpenFilename让用户选择一个或多个Excel文件，或者用Dir函数循环打开指定目录下的所有.xlsm和.xlsx文件，然后依次把每个工作表里的批注提取到一个总表里。
这里给你一个最小化的跨文件示例框架：
vba复制Dim wb As Workbook
Dim filePath As String
Dim fileName As String
filePath = "C:\Users\yourname\Desktop\批注汇总\"
fileName = Dir(filePath & "*.xlsx")
Do While fileName <> ""
Set wb = Workbooks.Open(filePath & fileName)
' 这里插入“遍历wb中所有工作表并提取批注”的代码
wb.Close SaveChanges:=False
fileName = Dir
Loop
只要把前面单工作簿合并代码里ThisWorkbook改成wb，其余逻辑完全一样。这里有一个很容易踩的坑：跨文件合并时，源工作簿里很可能也有一个叫“汇总”的工作表，如果不加判断，会把源文件里的汇总表也当成数据源。所以在循环里，判断条件最好写成If ws.Name <> "汇总" And ws.Name <> "提取结果" Then。
3.6 运行后如何检查结果
宏运行完会弹出一个对话框告诉你提取了多少条批注。数字对不对，要和源表实际批注数做对比。最笨也最靠谱的办法，是先在原工作簿里用“查找功能-查找范围选批注-查找全部”看一下Excel自己识别出的批注单元格数量，再和宏提取的数量对一下。如果数量对不上，优先检查是不是有隐藏的工作表、超级表、筛选状态下看不到的批注被漏掉了。
另外，汇总表里的“单元格原值”是提取批注那一刻的值，如果你在原表里改了单元格的值但没改批注，这一列和批注内容之间可能出现“看起来不匹配”的错觉，这是正常的，重点是保存当时的数据快照。
4. 方案三：不写VBA，用Power Query合并多表备注列
4.1 先看清楚：Power Query吃的是“备注列”，不是黄色批注
前面两条方案都是针对“批注”这种便签式注释。但实际工作中，更多人说的注释其实是“备注列”，比如计划表里专门有一列叫“备注”，里面写了各种补充说明。这种情况用VBA反而有点“杀鸡用牛刀”，Excel自带的Power Query就是更合适的工具。
Power Query适合的场景：备注作为一列正常文本数据、多张工作表结构一致、需要定期刷新。它的优势是不需要写一行代码，全部通过图形界面操作，而且以后原始数据更新了，只要在汇总表上点一下“全部刷新”，结果就能自动更新。
4.2 把多张表加载进Power Query
操作步骤：
- 打开一个新Excel工作簿，点击“数据-获取数据-从文件-从Excel工作簿”。
- 选择你的源文件，在“导航器”里会列出该工作簿的所有工作表。
- 如果只需要其中一部分表，勾选需要的工作表，然后点“转换数据”，Excel会自动把每张表变成一个查询。
- 在Power Query编辑器左侧的“查询”窗格里，选中所有目标查询，右键选择“追加查询-将查询追加为新查询”。
- 选择“三个或更多表”，把左侧的查询全部添加到右侧，点确定。
追加完成后，所有工作表的行会上下堆叠成一张大表。这时候你可能需要处理表头：如果有的表第一行不是标题，用“将第一行用作标题”；如果列顺序不一致，追加时Power Query会尽量按列名匹配，但列名如果对不上，多余或缺失的列就会出现null空值。这正是我前面反复强调“先统一表结构”的原因。
4.3 合并后的字段整理与刷新
追加完成后的“大表”里，并不会自动生成“来源工作表”字段，需要你在Power Query里手动加。操作方法是：在Power Query编辑器里选中某个查询，点击“添加列-自定义列”，输入公式= "1月"，或者直接用“从示例中的列”功能。每个源查询都加上后，合并结果里就能看到每行数据来自哪张表了。
如果注释列里还混了其他信息，比如同一列里既有“已确认”，又有“已确认|待付款”，可以在Power Query里用“拆分列”功能分开，或者替换值之后再做。处理完后，点“关闭并上载”，汇总表就生成在工作簿里了。以后源表修改了备注内容，你只要在汇总表上右键选择“刷新”或者点“数据-全部刷新”，结果就会自动重新计算。
提示：Power Query的追加查询是按“列名”匹配的，如果两张表列名不一致，比如一张叫“备注”，一张叫“说明”，合并后就会出现两列分别是“备注”和“说明”，而不是自动拼到一起。最省事的办法是合并前在源表里统一改成同一个列名，或者在Power Query里用“重命名列”把列名改齐，再进行追加。
5. 常见问题与排查技巧实录
5.1 为什么定义名称后公式返回#NAME?错误
用GET.CELL宏表函数定义名称后，公式返回#NAME?，最常见的原因是工作簿格式不对。宏表函数属于“宏”范畴，普通.xlsx工作簿不能识别，必须把文件另存为启用宏的工作簿.xlsm或兼容格式.xls。还有一种情况是名称管理器里引用位置写错了，比如把GET.CELL写成了GETCELL，或者INDIRECT的参数少了一个逗号。建议把引用位置复制出来检查一遍。
5.2 VBA运行速度很慢，怎么优化
如果批注特别多，比如几千条，用SpecialCells(xlCellTypeComments)已经是最快的定位方式了，真正影响速度的反而是往汇总表里逐行写入的过程。写入的方法可以优化：先把所有批注信息拼到一个二维数组里，循环结束后一次性写入destWS.Range(destWS.Cells(2,1), destWS.Cells(destRow-1,5))。数组写入比逐单元格写入快很多，数据量大的时候体验差别非常明显。
5.3 汇总表也被当成源数据重复提取了
这是写合并宏时最高频的错误。解决思路有两个：一是运行前把汇总表单独放到一个新工作簿里；二是代码里通过工作表名称排除。如果汇总表叫“汇总”，就判断If ws.Name <> "汇总" Then。如果有可能同事把汇总表改了名，更稳的办法是判断If ws.Cells(1,1).Value = "原工作表" Then，通过表头识别。
5.4 新版Excel里的“批注”和“备注”傻傻分不清
Office 365和较新版本的Excel，右键菜单同时出现了“新建批注”和“新建备注”两个选项。传统意义上那个红色小三角的单元格批注，在新版本里叫“备注”（Note）；而“新建批注”打开的是右侧窗格里的对话式评论，更像协作工具。VBA里的Comment对象和前面讲的GET.CELL(32,...)，都是针对传统批注，也就是现在的“备注”功能。如果你的单元格里加的是对话式评论，想靠公式提取内容基本不行，建议把评论内容搬到“备注”里，或者用Office 365的评论导出能力。
5.5 如何验证合并结果没有遗漏
验证是否漏批注，分享一个我经常用的交叉核对方法。在原工作簿里打开“查找”窗口，查找范围选择“批注”，查找内容输入*并勾选通配符，点击“查找全部”，Excel会在底部列出一份“带批注单元格清单”，记录总数。再用汇总表里提取出来的批注数与之对比，两个数字一致，基本就可以认定没有漏。不一致时，优先排查有没有被隐藏的工作表、折叠的分组、以及筛选状态下未显示的批注。
5.6 批注文本里的特殊字符处理
批注内容有时会包含Tab制表符、回车换行甚至特殊引号，直接写入单元格后虽然能保存，但排序、筛选、做数据透视表时容易出现“看起来很怪”的结果。建议在提取代码里多做一步清洗：cmtText = Application.WorksheetFunction.Clean(cmtText)，它可以去掉文本中不可打印的控制字符。如果批注中有人为加的备注分隔符，比如【】【】，也可以先用Replace统一替换成标准字符，再入库。
最后分享一点个人实际操作中的体会。合并Excel多表注释这件事，真正难的往往不是“用什么技术”，而是动手前有没有把需求问清楚：你要并的到底是黄色批注、普通备注列，还是新版对话式评论？三种东西用的方案完全不一样。我自己的习惯是先花五分钟判断注释类型，再决定走原生功能、VBA还是Power Query。如果只是偶尔提取一次，我多半用查找功能加手工粘贴，虽然笨，但快；如果是每月例行工作，那我毫不犹豫写一个VBA宏存起来，下次直接跑。还有一个小技巧：运行完宏之后，我会在汇总表里加一列“批注字数”，用=LEN(批注内容单元格)算一下，哪条内容显示为空、哪条内容过长，一眼就能定位。这个习惯帮我排查过好几次漏批注的情况，现在也分享给你。