本示例为选中的单元格添加批注。

ActiveCell.AddComment

ActiveCell.Comment.Text = "Hello! Kingsoft "