Sub CommentFormat()
'判断A2单元格是否有批注
If Range("A2").Comment Is Nothing Then
'如果不存在批注,则在A2单元格添加空批注
Range("A2").AddComment Text:=""
End If
With Range("A2").Comment
'指定批注中的文本
.Text Text:="Microsoft Excel 2021"
'将文本框对象的第17个字符开始的所有字符设置指定颜色
.Shape.TextFrame.Characters(17).Font.ColorIndex = 3
End With
End Sub