作者：乔山办公网日期：
返回目录：excel表格制作
Public Sub aaa()
'sheet2表内C列的内容7a686964616fe78988e69d83332，作为批注添加到sheet1表D列
'（sheet2表A列为sheet1表D列的列表）
Dim t As String
Dim s1 As Worksheet: Set s1 = Worksheets("sheet1")
'sheet1表，需要批注的表（必要时更改表名，""内的内容）
Dim s2 As Worksheet: Set s2 = Worksheets("sheet2")
'sheet2表，批注数据来源表（必要时更改表名，""内的内容）
Dim rn As Range
Dim rn2 As Range: Set rn2 = s2.Cells(2, 1).Resize(s2.[a65536].End(xlUp).Row - 1, 3)
For Each c In s1.Cells(2, 4).Resize(s1.[d65536].End(xlUp).Row - 1, 1)
t = c.Value
Set rn = rn2.Find(t, LookIn:=xlValues, LookAt:=xlWhole)
If rn Is Nothing Then
t = "没有找到"
Else
t = rn.Offset(0, 2).Value
End If
c.ClearComments
c.AddComment t
Next
End Sub
--------------------
sheet1表，需要批注的表，需要批注的列：D列,从第二格开始
sheet2表，批注数据来源表
sheet1表D列的来源为sheet2表的A列，批注来源为sheet2表的C列
打开sheet1表，在表名上点右键，选“查看代码”，打开代码窗口，将上面的代码复制入其中，并根据实际情况，将代码内的表名改为实际表名（有注释），然后，按 F5 键运行程序
有其他问题，Hi 我
excel批量添加批注，可按以下方复法操作：
1、alt+ F11 ；
2、插入制模块，将下列代码粘贴进去：
把50改成你实百际需要插入的数据的行数度
Sub 宏1()
For i = 1 To 50
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
Next i
End Sub
3、鼠标选定知第一行数据任意单元格，选择菜单 工具-宏-运行宏，选择刚才的宏道1，执行。
方法/步骤
首先我们先zhidao打开excel工作表，打开之后我们单击一个需要加批注的单元格，单击之后单击右键，在下拉的选项里单击"插入批注“按钮。
单击之后会出现如图所示，这时候我们在批注框里面输入我们想要备注的信息。
单元格内批注写好之后，右键单击该单元格，在下拉的选项里单击”复制“按钮。
假如我们想在D3，E3，D5，E6这些单元格都插入相同批注的话，那么当我们单击复制按钮之后，先单击D3单元格，然后按下CTRL，再一次单击E3，D5，E6单元格，都选择好之后单击右键，在下拉的选项里单击”选择性黏贴“按钮。
单击之后会弹出如图对话框，这时候我们单击”批注“按钮。
单击批准按钮之后，我们再容单击下方的”确定“按钮。
7
单击确定按钮之后，这时候我们会发现单元格已经发生变化，刚刚选择的那几个单元格都已经加上批注了，说明我们已经设置成功，可以批量的加批注了。
这个使百用vba就可以批量处理了，参度考代买如下：
Sub Demo()
Dim r As Long
Dim i As Integer
r = Range("c65535").End(xlUp).Row 'c列最后一行的问行号
For i = 1 To r
Range("c" & i).ClearComments '先清除原有批答注
If Range("a" & i).Text <> "" Then
Range("c" & i).AddComment Range("a" & i).Text '重新把a列对应内专容赋属值给c列的批注
End If
Next i
End Sub