如何批量插入批注，excel表格里面
一、批量插入同样内容的批注：1。对有批注的单元格 右键 复制 2。选中你所要添加批注的所有单元格，右键 3。右键--选择性粘贴--批注--确定 二、批量插入不同内容的批注：1。方法同上，只不过第一步操作的是空白的批注，没有内容，让后就是逐个添加内容。 2。要想快捷的话，就要用到宏操作，需要编辑一个宏，批量操作你说你具体要增么添加？被批注的内容和批注的内容你有没有建立好表格宏程序，参考：Public Sub aaa() 'sheet2表内C列的内容，作为批注添加到sheet1表D列 '（sheet2表A列为sheet1表D列的列表） Dim t As String Dim s1 As...全部
一、批量插入同样内容的批注：1。对有批注的单元格 右键 复制 2。选中你所要添加批注的所有单元格，右键 3。右键--选择性粘贴--批注--确定 二、批量插入不同内容的批注：1。方法同上，只不过第一步操作的是空白的批注，没有内容，让后就是逐个添加内容。
2。要想快捷的话，就要用到宏操作，需要编辑一个宏，批量操作你说你具体要增么添加？被批注的内容和批注的内容你有没有建立好表格宏程序，参考：Public Sub aaa() 'sheet2表内C列的内容，作为批注添加到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 键运行程序。收起
