LP想把excel批注的用户名省事的删除,因为量大,就想到通过程序方式处理。下面是测试可行的代码。
Sub delusername()
'实现方法:批注的第一行为:软件注册用户名+":" 因此可将此替换为空串来实现。
'注释的其它行出现这种情况的很少,本段代码没有考虑这种情况。
'注释的其它行出现这种情况的很少,本段代码没有考虑这种情况。
For Each i In ActiveSheet.Comments
comment1 = i.Text
UserName = i.Author
Set C = i.Parent
comment1 = i.Text
UserName = i.Author
Set C = i.Parent
'第1次替换
Find = UserName + ":"
comment1 = Replace(comment1, Find, "", 1)
'第2次替换 根据实际情况修改下面一行引号内的的字符串
Find = "微软用户:"
Find = UserName + ":"
comment1 = Replace(comment1, Find, "", 1)
'第2次替换 根据实际情况修改下面一行引号内的的字符串
Find = "微软用户:"
comment1 = Replace(comment1, Find, "", 1)
i.Delete
C.AddComment comment1
Next
i.Delete
C.AddComment comment1
Next
End Sub
转载于:https://blog.51cto.com/cdzhxu/273355