每个单元格对象只能插入一个批注，你反复运行就是插入多个批注，所以出错。解决办法：在每次插入前先删除已有的批注cell.Comment.Delete这句放在出错句（With cell.AddComment）前就好
