如何在Excel中重置所有評論位置？

在填充了多個註釋的工作表中，有時，我們需要調整或移動註釋框的位置以查看註釋框後面的單元格內容，在這種情況下，註釋框將被移動到不同的位置。 完成操作後，您需要將註釋框返回到其原始位置，如何在Excel中立即重置所有註釋位置？

在Excel中使用VBA代碼重置所有註釋框位置
一鍵重置Kutools for Excel中的所有註釋框位置

在Excel中使用VBA代碼重置所有註釋框位置

您可以應用以下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 鍵以運行此代碼，並且活動工作表中的所有註釋位置都已立即重置。 查看屏幕截圖：

一鍵重置所有評論框位置

這裡我們介紹 重置評論位置 的效用 Excel的Kutools。 有了這個工具， 您可以一鍵快速重置活動工作表或所有工作表中的所有註釋位置。

1.如果您只想重置活動工作表中的所有註釋框位置，請單擊 庫工具 > 更多 > 重置評論位置 > 活動表.

要重置當前工作簿的所有工作表中所有註釋框的位置，請單擊 庫工具 > 更多 > 重置評論位置 > 所有工作表。 看截圖：

單擊“活動工作表”或“所有工作表”後，活動工作表或所有工作表中的所有註釋位置將立即重置為其原始位置。

一鍵重置Kutools for Excel中的所有註釋框位置

相關文章：

• 如何在Excel中更改註釋指示器的顏色？
• 如何在Excel中用註釋突出顯示所有單元格？
• 如何在Excel中自動添加評論的日期和時間？