如何在 Excel 中重置所有批注位置？

在一个包含多个批注的工作表中，有时我们需要调整或移动批注框的位置，以便查看批注框背后的单元格内容。在这种情况下，批注框会被移动到不同的位置。完成操作后，您需要将批注框返回到它们的原始位置。那么，如何在 Excel 中一次性重置所有批注位置呢？

使用 VBA 代码在 Excel 中重置所有批注框位置
一键使用 Kutools for Excel 重置所有批注框位置

使用 VBA 代码在 Excel 中重置所有批注框位置

您可以应用以下 VBA 代码，一次性将所有批注框恢复到其原始位置。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：重置活动工作表中的所有批注位置

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. 然后按 F5 键运行此代码，活动工作表中的所有批注位置都会立即被重置。请参见截图：

一键重置所有批注框位置

在这里，我们介绍 Kutools for Excel 的“重置批注位置”工具。使用此工具， 您可以一键快速重置活动工作表或所有工作表中的所有批注位置。

1. 如果只想重置活动工作表中的所有批注框位置，请单击 Kutools > 更多 > 重置批注位置 > 当前工作表。

要重置当前工作簿中所有工作表的所有批注框位置，请单击 Kutools > 更多 > 重置批注位置 > 所有工作表。请参见截图：

单击 当前工作表 或 所有工作表 后，活动工作表或所有工作表中的所有批注位置将立即被重置为其原始位置。

演示：一键使用 Kutools for Excel 重置所有批注框位置

相关文章：

• 如何在 Excel 中更改批注指示器的颜色？
• 如何在 Excel 中突出显示所有带批注的单元格？
• 如何在 Excel 中自动为批注添加日期和时间？