如何在 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 中自動添加日期和時間到註解？