先随便选了一个格，记录一下宏

    Range("B6").Select
    Range("B6").AddComment
    Range("B6").Comment.Visible = False
    Range("B6").Comment.Text Text:="微软用户:" & Chr(10) & "LENIZ"
 

 添加没有问题，隐藏也没有问题，文字的添加格式怪异，估计是执行函数，当然第一步 还是直接贴进去
看一下 能否编译通过，显示无法编译。 到网上搜索了一番，没有发现类似的问题，于是用各种写法试了
狂试，最终 样式的确就是函数 调用的方式

Range("B6").Comment.Text（"微软用户:" & Chr(10) & "LENIZ"）