excel中的批注?请看图片,图片
用函数,一下子想不出好方法,先用宏吧,你可以先在我放上的附件中试用一下,工具--宏--宏--执行,可批量修改。
若满意,将下面这段代码放入你的表中,按ALT+F11,进入代码窗口,就放在这里面即可。 然后按上面的方法执行宏。
修改完毕,宏已不起作用,再进入,删除宏。
Sub xzm()
Dim ss$, ad$
Dim i%
For i = 1 To ActiveSheet。 Comments。Count
ss = ActiveSheet。Comments(i)。Text
ad = ActiveSheet。Comments(i)。Parent。Address
ss = Replace(...全部
用函数,一下子想不出好方法,先用宏吧,你可以先在我放上的附件中试用一下,工具--宏--宏--执行,可批量修改。
若满意,将下面这段代码放入你的表中,按ALT+F11,进入代码窗口,就放在这里面即可。
然后按上面的方法执行宏。
修改完毕,宏已不起作用,再进入,删除宏。
Sub xzm()
Dim ss$, ad$
Dim i%
For i = 1 To ActiveSheet。
Comments。Count
ss = ActiveSheet。Comments(i)。Text
ad = ActiveSheet。Comments(i)。Parent。Address
ss = Replace(ss, "实退", "实收", , 1)
ActiveSheet。
Comments(i)。Parent。ClearComments
Range(ad)。Select
Selection。AddComment
Selection。Comment。
Text Text:=ss
Next
End Sub。收起