向单元格 A2 的 注释 中加入 “dsfasdfd”如果 换成 selection .....之类的 ,应该 可以变通吧,你懂得。 Range("A2").Comment.Text Text:=Range("A2").Comment.Text & Chr(10) & "dsfasdfd"