关于长线批注的一个解决办法

byebye懒惰

曾经遇到过几位朋友问过这个问题：工作表里有很多批注的连线很长，超出了视线范围，但是由于工作的需要，这些批注又不能隐藏起来，有什么办法能迅速的把这些批注都归位呢（移回批注所在单元格旁边）？
如果批注的数量不多的话，用手工拖移的办法尚可接受，但是如果批注的数量非常多的话，一个一个地拖显然就非常的低效了！下面就介绍一下我的方法，希望能帮到同样遇到这个问题的朋友们。
问题产生的原因：
我所知道的问题产生的条件有3个：
1、用户在筛选后或者隐藏部分数据后才为单元格加上批注，
2、批注的属性设为了“大小、位置不变”（批注的默认属性项），倘若设置的是另外两项，是不会出现这个问题的。尤其在工作表的数据量比较大的时候，此问题容易出现。
3、取消筛选或者取消隐藏数据时，批注处于显示状态。
解决办法：
1、复制整个数据区域,当然是包括批注所在单元格的
2、找一空区域，与原数据区域没有重叠，粘贴数据（批注也会一同被复制，且已经归位）
3、将新区域的数据复制回原数据区域，也就是覆盖原数据（此时批注就都回到了单元格旁边了）
4、删除新区域。
办法其实很简单，但是能比较迅速的把批注都归位，免除了一个一个的低效拖移。
下面是问题重现和解决办法的Gif动画。

我尝试过了用这个方法都能解决这两个贴的问题
http://club.excelhome.net/viewthread.php?tid=686092&pid=4666728&page=1&extra=page%3D1
http://club.excelhome.net/thread-642719-1-6.html
第一次发分享贴，说得不好希望各位多多包涵

[ 本帖最后由 byebye懒惰 于 2011-2-26 19:18 编辑 ]

mn860429

学习了，还不知道

ZDYCTD

方法不错啊!

wwhhddee

不行的，没那么简单

wwhhddee

你只是解决了线的问题，没有考虑到批注变拉得很长如何解决？

byebye懒惰

楼上的能说清楚一点吗？

mn860429

就是批注的形状

byebye懒惰

哦，呵呵，原来是这样。有一个办法，不过不知道能不能适用，5楼的朋友能把你的表发上来看看吗？

wwhhddee

就是我这个问题：
http://club.excelhome.net/thread-686111-1-1.html
能帮我解决不？谢谢

byebye懒惰

一开始误会了楼上的意思了，呵呵。 滥竽充数地修改了一段代码，
Sub Macro4()
'
' Macro4 Macro
' 宏由 Care 录制，时间: 2011-3-1
'

'
    ActiveCell.AddComment
    ActiveCell.Comment.Text Text:="Care:" & Chr(10) & ""
    ActiveCell.Comment.Visible = True
    ActiveCell.Comment.Shape.Select True
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
        .AutoSize = True
        .AddIndent = False
    End With
    With Selection
        .Placement = xlMove
        .PrintObject = True
    End With
End Sub
指定快捷键为：ctrl+Q，宏的作用为
选中需要插入批注的单元格，按快捷键ctrl+Q，就会插入属性为“大小固定，位置随单元格改变”，且勾选“自动调整大小”的批注。
不知道楼上的朋友是不是想要这样的效果呢？