VBA 删除批注有关问题

fieldset{padding:10px;}

VBA 删除批注问题在一个Sheels中需要循环边历所有的单元格，如果单元格包含批注，则先获取批注信息，再删除当前批注，然后修改获取到的批注信息并重新保存到当前单元格，请问该如何实现？Tao = Newwb.Sheets("bb").Cells(1, 8)For k = 5 To 120 If Newwb.Sheets("aa").Cells(k, 2) = Tao Then 这里判断此单元格是否有批注有则获取当前批注信息并修改再删除当前单元格的批注最后将修改后的批注信息重新添加到单元格 End If Next——解决方案——————————————————–Sub Comm1()Dim strCommet As StringOn Error Resume NextIf (Range("A1").Comment Is Nothing) Then //如果注释为空Range("A1").AddComment //增加注释Range("A1").Comment.Text Text:="abcdefg" //注释内容为"abcdefg"ElsestrCommet = Range("A1").Comment.Text //如果注释不为空strCommet = strCommet & " modify" //修改注释+ "modify"Range("A1").ClearComments //清除注释Range("A1").AddComment //增加注释Range("A1").Comment.Text Text:=strCommet //设置注释内容End IfEnd Sub——解决方案——————————————————–VB code

Sub 批量修改批注() Dim myRange As Range Dim Rng As Range Dim msg As String Set myRange = Cells.SpecialCells(xlCellTypeComments) For Each Rng In myRange MsgBox Rng.Comment.Text msg = InputBox("请输入新的批注内容", "修改批注") If msg <> "" Then Rng.Value = msg Rng.Comment.Delete End If Next RngEnd Sub自然而然不想去因为别人的努力而努力，

相关文章：

你感兴趣的文章：

标签云：