Excel 2010怎么自动添加批注？-excel2010批注,excel2010里没有箱形图

Excel2010批量添加不同批注的方法：

1、先打开excel工作表，打开之后我们单击一个需要加批注的单元格，单击之后单击右键，在下拉的选项里单击"插入批注“按钮zd。

2、单击之后会出现如图所示，这时候我们在批注框里面输入我们想要备注的信息。

3、单元格批注写好之后，右键单击该单元格，在下拉的专选项里单击”复制“按钮。

4、假如想在D3，E3，D5，E6这些单元格都插入相同批注的话，那么当我们单击复制按钮之后，先单击D3单元格，然后按下CTRL，再一次单击E3，D5，E6单元格，都选择好之后单击右键，在下拉的选项里单击”选择性黏贴“按钮。

5、单击之后会弹出如图对话框，这时候我们单击”批注“按钮。

6、单击批准按钮之后，我们再单击下方的”确定属“按钮。

7、单击确定按钮之后，这时候我们会发现单元格已经发生变化，刚刚选择的那几个单元格都已经加上批注了，说明我们已经设置成功，可以批量的加批注了。

在工作表标签上击右键，查看代码，在VBE窗口中点“插入e79fa5e98193e4b893e5b19e337”，模块，

在模块代码窗口中粘贴以下代码，然后按ALT+F8运行之，即可

Sub 添加批注()
For i = 1 To 2 '注：列遍历
For j = 4 To Cells(65536, i).End(3).Row '注：行遍历
If Cells(j, i) <> "" Then '检测非空
Dim a
a = ""
For K = 2 To [e65536].End(3).Row '遍历E列区域
If Cells(K, 5) = Cells(j, i) Then '比对数据
a = a & CStr(Cells(K, 6)) '获取对应F列的值存入变量a。
On Error Resume Next '容错
    Cells(j, i).ClearComments '若有批注，先行删除
    Cells(j, i).AddComment '添加批注
    Cells(j, i).Comment.Visible = False '批注隐藏
    Cells(j, i).Comment.Text Text:=a '批注内容
    End If
Next
End If
Next
Next
End Sub

可以度用知Change事件来试道试版：权Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Target.Value) = "HH" Then
Target.AddComment
Target.Comment.Visible = True 'Target.Comment.Text Text:="批注：" & Chr(10) & ""
End If
End Sub

处理批注，要么手工，要么VBA，别无他法。楼主的百需求的确需要VBA解决，也不困难，只是需要楼主说得再详细些。因为代码是需要精确的定义的。比如度，楼主需要这个VBA如何被触发？是用一个按钮或人内工执行，还是在A列数量发生变化时发生，或者是B列的文字说明完成后发生？这些各容有优缺点，都需要事先规划。