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キーを押してください。すると、アクティブなワークシート内のすべてのコメント位置が一度にリセットされます。スクリーンショットをご覧ください：

ワンクリックで全てのコメントボックスの位置をリセット

ここでは、Kutools for Excelの「コメント位置をリセット」機能をご紹介します。この機能を使用すると、現在のシートまたはすべてのシートのコメント位置をワンクリックで簡単にリセットできます。

1. アクティブなシート内のすべてのコメントボックスの位置をリセットしたい場合は、Kutools ＞ その他 ＞ コメント位置をリセット ＞ 現在のシート をクリックしてください。

現在のブック内のすべてのシートのコメントボックスの位置をリセットするには、Kutools ＞ その他 ＞ コメント位置をリセット ＞ 全シート をクリックしてください。スクリーンショットをご覧ください：

「現在のシート」または「全シート」をクリックすると、アクティブなシートまたはすべてのシートのコメント位置が即座に元の位置にリセットされます。

デモ：Kutools for Excelを使用してワンクリックで全てのコメントボックスの位置をリセット

関連記事：

• Excelでコメントインジケーターの色を変更するにはどうすればよいですか？
• Excelでコメント付きのすべてのセルをハイライトするにはどうすればよいですか？
• Excelでコメントに日付と時刻を自動追加するにはどうすればよいですか？