在Excel中,當光標移動到包含批注的單元格中時,通常會在狀態(tài)欄和批注中顯示批注者的名稱。如果需要將批注者改為其他人,可以用下面的VBA代碼。以后再插入新的批注,也將使用新輸入的名稱。使用前先將代碼中的“新作者”和“原作者”按照需要進行替換。
Sub ChangeCommentName()
Dim ws As Worksheet
Dim cmt As Comment
Dim strOld As String
Dim strNew As String
Dim strComment As String
strNew = "新作者"
strOld = "原作者"
Application.UserName = strNew
For Each ws In ActiveWorkbook.Worksheets
For Each cmt In ws.Comments
strComment = Replace(cmt.Text, strOld, strNew)
cmt.Delete
cmt.Parent.AddComment Text:=strComment
Next cmt
Next ws
End Sub