excel中排序后批注不动

excel中排序后批注不动

用工具栏的按钮或菜单进行排序后，批注跟着单元格的内容一起变动位置的。
你想要批注不动的话，要用VBA啦。而且这个VBA挺难的！

用vba，按下alt+f11进入vba编辑器，新建一模块，将下列代码复制到模块中： sub设置批注()'设置当前活动工作表中所有批注的位置和大小 dimcmtascomment dimhwasdouble hw=0.6 foreachcmtinactivesheet.comments cmt.shape.left=cmt.parent.left+cmt.parent.width+11.25 ifcmt.parent.row=1then cmt.shape.top=cmt.parent.top+1.5 else cmt.shape.top=cmt.parent.top-7.5 endif cmt.shape.textframe.autosize=true cmt.shape.height=sqr(cmt.shape.height*cmt.shape.width*hw) cmt.shape.width=cmt.shape.height/hw next endsub 说明：批注大小是按自动调整大小后的面积，重新以0.6的高宽比计算。 切换到excel,按alt+f8运行上面的宏即可。