Excel有关批注的操作技巧

玩控

Excel有关批注的操作技巧

1、插入批注
插入批注，可以在【审阅】选项卡下，点击“新建批注”；也可以点击鼠标右键选择“插入批注”。


2、批量插入相同批注
选中其中一个单元格，插入批注后，复制该单元格，选中需要插入批注的所有单元格，点击鼠标右键选择“选择性粘贴”，勾选“批注”，确定。


3、批量插入不同批注
如果要批量插入不同内容的批注，需要用到VBA代码：点击【开发工具】选项卡——打开VBA窗口——粘贴VBA代码——运行程序
代码如下：

1. Sub 批量添加不同批注()
   
2. 
   
3.   Dim rng As Range
   
4. 
   
5.   Dim i As Byte
   
6. 
   
7.   i = 2
   
8. 
   
9.   ar = [B65536].End(3).Row
   
10. 
    
11.   Range("B2:B" & ar).ClearComments
    
12. 
    
13.   For Each rng In Range("B2:B" & ar)
    
14. 
    
15.      rng.AddComment Text:=Range("C" & i).Value
    
16. 
    
17.      i = i + 1
    
18. 
    
19.   Next
    
20. 
    
21. End Sub

复制代码

4、修改批注
选中需要修改的单元格，鼠标右键选择“编辑批注”，修改批注内容。



5、批量修改批注
首先修改文件扩展名，把xlsx改为rar，打开修改后的rar文件，进入文件名为“xl”的文件夹，找到“Comments1.xml”，用记事本打开该文件。按Ctrl+H组合键打开查找替换窗口，输入查找内容为入职，替换内容为转正，全部替换后关闭保存，最后把扩展名改回xlsx即可。



6、删除批注
删除批注，可以在【审阅】选项卡，点击批注命令组的“删除”，也可以点击鼠标右键选择“删除批注”。



7、批量删除批注
选中整个工作表区域，在【审阅】选项卡下，点击批注命令组的“删除”。也可以选中工作表区域后，直接点击鼠标右键选择“删除批注”。



8、批量提取批注
批量提取批注，也是利用到VBA代码：点击【开发工具】选项卡——打开VBA窗口——插入
模块——粘贴VBA代码——保存，然后在表格外空单元格出输入公式：=批注(B2)——向下填充公式，即可提取所有批注内容。
代码如下：

1. Public Function 批注(i As Range)
   
2. 
   
3.    Application.Volatile True
   
4. 
   
5.    On Error GoTo err
   
6. 
   
7.    批注 = i.Cells.Comment.Text
   
8. 
   
9.    Exit Function
   
10. 
    
11.    err:
    
12. 
    
13.    批注 = ""
    
14. 
    
15. End Function

复制代码