Excel中批量添加批注有三种VBA方法：一、对选中区域统一添加；二、对指定地址范围（如A1:C100）添加，支持输入框自定义内容；三、仅对某列非空单元格添加，可修改列字母切换目标列。
如果您需要在Excel中为大量单元格统一添加相同的批注内容，手动逐个操作将极为耗时。以下是通过VBA脚本实现批量添加批注的多种方法：
一、使用Selection对象对当前选中区域批量添加批注
该方法适用于已选定目标单元格区域的情形，通过VBA直接遍历选区中的每个单元格并插入指定批注文本。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中，右键点击工作簿名称，选择“插入” → “模块”。
3、在新模块窗口中粘贴以下代码：
Sub AddCommentToSelection()
Dim cell As Range
Dim commentText As String
commentText = "此处为统一添加的批注内容"
For Each cell In Selection
If Not cell.Comment Is Nothing Then cell.Comment.Delete
cell.AddComment commentText
Next cell
End Sub
4、关闭VBA编辑器，返回Excel，选中目标单元格区域。
5、按 Alt + F8，选择宏“AddCommentToSelection”，点击“运行”。
二、基于指定单元格地址范围（如A1:C100）执行批量添加
该方法不依赖人工选择，而是通过代码硬编码或输入框指定范围，适合固定结构数据表的重复性操作。
1、按 Alt + F11 打开VBA编辑器，插入新模块。
2、粘贴以下代码：
Sub AddCommentToRange()
Dim rng As Range
Dim commentText As String
Set rng = Range("A1:C100")
commentText = InputBox("请输入要添加的批注内容：", "批注内容输入")
If commentText = "" Then Exit Sub
Dim cell As Range
For Each cell In rng
If Not cell.Comment Is Nothing Then cell.Comment.Delete
cell.AddComment commentText
Next cell
End Sub
3、运行宏后，会弹出输入框供您填写批注内容，确认后自动应用至A1:C100区域所有单元格。
三、为整列或整行非空单元格添加批注
该方法可智能识别某一列或某一行中实际含有数据的单元格，并仅对这些单元格添加批注，避免空白单元格被误操作。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub AddCommentToUsedCellsInColumn()
Dim ws As Worksheet
Dim lastRow As Long
Dim colLetter As String
Set ws = ActiveSheet
colLetter = "B"
lastRow = ws.Cells(ws.Rows.Count, colLetter).End(xlUp).Row
Dim i As Long
For i = 1 To lastRow
If ws.Cells(i, colLetter).Value "" Then
If Not ws.Cells(i, colLetter).Comment Is Nothing Then ws.Cells(i, colLetter).Comment.Delete
ws.Cells(i, colLetter).AddComment "本列为关键字段，请注意核对数据准确性"
End If
Next i
End Sub
2、修改代码中 colLetter = "B" 可切换目标列为任意列（如"A"、"C"等）。
3、运行宏后，将仅对B列中所有非空单元格添加指定批注。
