Question

excel 里的批注标识点编辑的时候总是显示到很远的地方，怎么可以让批注显示在单元格边上?

有上千个批注，不能都移动呀？

Answer 1

1.右键，编辑批注
2.在显示的批注边框上，再右键，设置批注格式
3.点击属性菜单，选择，大小固定，位置随单元格而变

Answer 2

用VBA，按下 ALT+F11 进入VBA编辑器，新建一模块，将下列代码复制到模块中： Sub 设置批注() '设置当前活动工作表中所有批注的位置和大小
Dim Cmt As Comment
Dim HW As DoubleHW = 0.6
For Each Cmt In ActiveSheet.Comments
Cmt.Shape.Left = Cmt.Parent.Left + Cmt.Parent.Width + 11.25
If Cmt.Parent.Row = 1 Then
Cmt.Shape.Top = Cmt.Parent.Top + 1.5
ElseCmt.Shape.Top = Cmt.Parent.Top - 7.5
End IfCmt.Shape.TextFrame.AutoSize = True
Cmt.Shape.Width = Cmt.Shape.Height + 10 / HWNextEnd Sub切换到 Excel ,按 ALT+F8 运行上面的宏即可。注：如果要改变批注框的大小，只需要改动代码中红色数值即可

Answer 3

用VBA，按下 ALT+F11 进入VBA编辑器，新建一模块，将下列代码复制到模块中：

Sub 设置批注() '设置当前活动工作表中所有批注的位置和大小
Dim Cmt As Comment
Dim HW As Double
HW = 0.6
For Each Cmt In ActiveSheet.Comments
Cmt.Shape.Left = Cmt.Parent.Left + Cmt.Parent.Width + 11.25
If Cmt.Parent.Row = 1 Then
Cmt.Shape.Top = Cmt.Parent.Top + 1.5
Else
Cmt.Shape.Top = Cmt.Parent.Top - 7.5
End If

Cmt.Shape.TextFrame.AutoSize = True
Cmt.Shape.Height = Sqr(Cmt.Shape.Height * Cmt.Shape.Width * HW)
Cmt.Shape.Width = Cmt.Shape.Height / HW
Next
End Sub

说明：批注大小是按自动调整大小后的面积，重新以0.6的高宽比计算。

切换到 Excel ,按 ALT+F8 运行上面的宏即可。

Answer 4

这是因为在表里做过筛选之类造成的，将整张表复制之后重新粘贴一张就可以变成是在旁边了

Answer 5

鼠标放到边缘直接拉大就行了!