WPS合同打开为什么从F开头？

批量删除批注

。
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