Question

excel如何用vba实现对选中的批注里面的文字最后的位置批量加上同一段文字？

Answer 1

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

追问

不懂，最好有个实例表格，对批量选中的批注的文字最后加上一段文字

追答

先选中一个区域，然后按 那个按钮，选中区域的每个个单元格的备注就会被加入 D1  单元格中的那几个字了。

 

按钮对应的 代码如下：

--------------------------

Private Sub CommandButton1_Click()
On Error Resume Next
For Each cell In Selection
With cell
 oldtext = .Comment.Text
 If Err <> 0 Then .AddComment
 .Comment.Text Text:=.Comment.Text & Chr(10) & Range("d1").Value
End With
Next cell

End Sub

 ---------------------