WPS合同打开为什么从F开头?
发布网友
发布时间：2022-04-23 05:59
共1个回答
热心网友
时间：2023-09-27 16:00
批量删除批注
。
1.以下代码是将所选择单元格范围内的批注一股脑全部删除：
Sub DelComment2()
Dim Rng As Range
Set Rng = Application.InputBox("请选择删除批注的单元格范围。", Type:=8)
Rng.ClearComments
End Sub
2.以下代码是有条件的删除指定单元格范围的批注，例如删除批注内容中包含“看见星光”的。
Sub DelComment()
Dim Rng As Range, Cll As Range
Set Rng = Application.InputBox("请选择删除批注的单元格范围。", Type:=8)
Set Rng = Intersect(Rng.Parent.UsedRange, Rng)
'Intersect避免选择整列时，造成无谓循环以致代码效率低下。
For Each Cll In Rng
If Not Cll.Comment Is Nothing Then
'如果单元格有批注……
If Cll.Comment.Text Like "*显示月光*" Then Cll.ClearComments
'如果批注内容包含显示月光……则清除
End If
Next
End Sub
