Excel批注的用户名批量替换

LP想把excel批注的用户名省事的删除,因为量大，就想到通过程序方式处理。下面是测试可行的代码。

 Sub delusername()

 '实现方法：批注的第一行为：软件注册用户名+":" 因此可将此替换为空串来实现。
'注释的其它行出现这种情况的很少，本段代码没有考虑这种情况。

 

For Each i In ActiveSheet.Comments
     comment1 = i.Text
     UserName = i.Author
     Set C = i.Parent

     '第1次替换
    Find = UserName + ":"
    comment1 = Replace(comment1, Find, "", 1)
   
    '第2次替换 根据实际情况修改下面一行引号内的的字符串
    Find = "微软用户:"

    comment1 = Replace(comment1, Find, "", 1)
    i.Delete
    C.AddComment comment1
Next

End Sub