批量删除表中批注

125675117

在论坛上搜索了一下，没找到批量删除表中批注的代码，就用AI写了一段。分享给需要的朋友

1. Sub DeleteAllComments()
   
2.     Dim ws As Worksheet
   
3.     Dim rng As Range
   
4.     Dim cell As Range
   
5.    
   
6.     ' 设置要操作的工作表，这里假设是活动工作表
   
7.     Set ws = ActiveSheet
   
8.    
   
9.     ' 遍历工作表中的所有单元格
   
10.     For Each cell In ws.UsedRange
    
11.         ' 检查当前单元格是否有批注
    
12.         If Not cell.Comment Is Nothing Then
    
13.             ' 如果有批注，则删除
    
14.             cell.ClearComments
    
15.         End If
    
16.     Next cell
    
17. End Sub
    
18. 
    

复制代码

liulang0808

Sub TEST()

On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments).ClearComments

End Sub
论坛上也应该有吧，

大灰狼1976

Cells.ClearComments
或
Cells.ClearNotes

Lost_in_Star

来一个完整的。

1. Sub ShowAllComments() '显示批注
   
2.     Dim ws As Worksheet
   
3.     Dim cell As Range
   
4.   Set ws = ActiveSheet
   
5.    For Each cell In ws.UsedRange
   
6.      If Not cell.Comment Is Nothing Then
   
7.      cell.Comment.Visible = True
   
8.         End If
   
9.     Next cell
   
10. End Sub
    
11. 
    
12. Sub HideAllComments() '隐藏批注
    
13.     Dim ws As Worksheet
    
14.     Dim cell As Range
    
15.      Set ws = ActiveSheet
    
16.        For Each cell In ws.UsedRange
    
17.               If Not cell.Comment Is Nothing Then
    
18.             cell.Comment.Visible = False
    
19.         End If
    
20.     Next cell
    
21.     End Sub
    
22. 
    
23. Sub DeleteAllComments()‘删除批注
    
24.     Dim ws As Worksheet
    
25.     Dim cell As Range
    
26.      Set ws = ActiveSheet
    
27.         For Each cell In ws.UsedRange
    
28.                If Not cell.Comment Is Nothing Then
    
29.             cell.Comment.Delete
    
30.         End If
    
31.     Next cell
    
32.     End Sub
    

复制代码

大灰狼1976

Lost_in_Star 发表于 2024-8-8 21:39
来一个完整的。

我那个就是完整的，只有一句，不需要容错

wengjl

向大师们学习！

Lost_in_Star

大灰狼1976 发表于 2024-8-8 21:42
我那个就是完整的，只有一句，不需要容错

blackttea1

向大师们学习！