有没有办法使用宏在我选择的任何一个单元格中插入注释并自动删除用户名？

Question

关键是我有一列单元格，我想在每个单元格中放置一个注释（我按顺序上下移动）。但是，当我插入空白评论以备将来使用时，我有点懒得经历数百个单元格并且每次都必须删除用户名。所以我觉得它更容易，如果我可以选择一个单元格而只需按快捷键。

Answer 1

Activecell.AddComment ("test") or  Activecell.AddComment ("") 

Answer 2

Excel VBA提供了不错的在线帮助

With Worksheets(1).Range("e6").AddComment
    .Visible = False
    .Text ""
End With

Answer 3

为此宏指定快捷键：

Sub BlankComments()
    Dim r As Range

    For Each r In Selection
        r.ClearComments
        r.AddComment Text:=""
    Next r
End Sub

选择一些单元格并运行宏。