可使用vba批量添加批注：一、基础循环为选定区域统一添加固定内容；二、输入框动态指定批注文本与目标区域；三、按列条件筛选后仅对符合条件单元格添加批注。
如果您需要在Excel中为大量单元格统一添加相同内容的批注，手动逐个操作将极其低效。以下是利用VBA脚本实现快速批量执行的具体方法：
一、使用基础VBA循环为选定区域添加批注
该方法通过遍历当前选中区域的每个单元格，并为其赋值相同的批注文本，适用于任意连续或非连续选区（需确保为有效单元格区域）。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中，右键点击当前工作簿名称，选择“插入” → “模块”。
3、在新建模块窗口中粘贴以下代码：
Sub AddSameCommentToSelection()
Dim rng As Range
Dim cell As Range
Dim commentText As String
commentText = "此处填写您要批量添加的批注内容"
If Selection.Cells.Count = 0 Then Exit Sub
Set rng = Selection
For Each cell In rng
If Not cell.Comment Is Nothing Then cell.Comment.Delete
cell.AddComment commentText
Next cell
End Sub
4、关闭VBA编辑器，返回Excel界面，选中目标单元格区域。
5、按 Alt + F8，在宏列表中选择“AddSameCommentToSelection”，点击“运行”。
二、通过输入框动态指定批注内容并应用到指定区域
该方法允许用户在运行时输入自定义批注文本，并支持直接指定单元格地址范围，避免硬编码，提升复用性与灵活性。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub AddCommentWithInput()
Dim commentText As String
Dim rngAddress As String
Dim rng As Range
commentText = InputBox("请输入要添加的批注内容：")
If commentText = "" Then Exit Sub
rngAddress = InputBox("请输入目标单元格区域地址（例如：A1:C10 或 Sheet2!D5:F15）：")
If rngAddress = "" Then Exit Sub
On Error Resume Next
Set rng = Range(rngAddress)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "无效的单元格地址，请重新运行。"
Exit Sub
End If
For Each cell In rng
If Not cell.Comment Is Nothing Then cell.Comment.Delete
cell.AddComment commentText
Next cell
End Sub
2、保存后返回Excel，按 Alt + F8 运行“AddCommentWithInput”宏。
3、按提示依次输入批注内容和目标区域地址。
三、基于条件筛选后仅对满足条件的单元格添加批注
该方法结合IF逻辑判断，在指定列中查找符合特定文本、数值或空值条件的单元格，并只为这些单元格添加统一批注，避免全量覆盖。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub AddCommentByCondition()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim conditionCol As String
Dim conditionValue As Variant
Dim commentText As String
Set ws = ActiveSheet
conditionCol = InputBox("请输入用于判断的列标（例如：A、C、F1）：")
If conditionCol = "" Then Exit Sub
conditionValue = InputBox("请输入判断条件值（留空表示空单元格）：")
commentText = InputBox("请输入批注内容：")
If commentText = "" Then Exit Sub
On Error Resume Next
Set rng = ws.Range(conditionCol & "1:" & conditionCol & ws.Cells(ws.Rows.Count, conditionCol).End(xlUp).Row)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
For Each cell In rng
If IsEmpty(conditionValue) Then
If IsEmpty(cell.Value) Then
If Not cell.Comment Is Nothing Then cell.Comment.Delete
cell.AddComment commentText
End If
Else
If cell.Value = conditionValue Then
If Not cell.Comment Is Nothing Then cell.Comment.Delete
cell.AddComment commentText
End If
End If
Next cell
End Sub
2、运行宏后，按提示输入列标、条件值及批注内容。
