vba 清除注释 

Sub 圆角矩形1_Click()
    Range("a1") = 1
    Range("a2") = 2
    Range("a3") = 3
    Range("a4") = 4
    Cells(1, 2) = "吃了吗？"
    Cells(2, 2) = "吃炸酱面了"
    Cells(3, 2) = "贵庚了？"
    Cells(4, 2) = "28了"
    Range("b3").AddComment ("多大了？")
    'MsgBox ("这是一个伟大的程序！")
End Sub
Sub mySub()
    Range("a1:b4").ClearComments
End Sub

 

posted @ 2024-03-05 11:13  paoPaoLong_liu  阅读(15)  评论(0)  编辑  收藏  举报