Cacher is the code snippet organizer for pro developers

批注的处理
    With Range("F2")
        .ClearComments
        .AddComment
        .Comment.Visible = True
        .Comment.Text Text:="事故00"
        .Comment.Shape.TextFrame.Characters(1, 4).Font.Size = 55
        .Comment.Shape.TextFrame.AutoSize = True
    End With
    
判断单元格时候有批注：
If rg.Cells.Comment Is Nothing Then