Excel でコメントの作成者名を一括変更する方法は？

ワークシートにコメントを挿入すると、コメント作成者の名前が自動的にコロンの後に表示されます。場合によっては、この名前を変更したいこともあるでしょう。Excel でコメント作成者名を変更するには、以下の方法をご利用ください。

Excel のオプションを設定して、すべての新しいコメントの既定の作成者名を変更

Kutools for Excel を使用して、アクティブシートまたはすべてのシートにある既存のコメントの作成者名を迅速に変更します

VBA コードを使用して、ワークブック全体の既存のコメントの作成者名を変更します

Excel のオプションを設定して、すべての新規コメントの既定の作成者名を変更しましょう。

Excel のユーザー名を変更すれば、挿入するすべての新しいコメントの作成者名を変更できます。

1。［ファイル］をクリックし、ファイル > オプション（Excel 2010／2013／2016 の場合）、またはOfficeボタン > Excel のオプション > 全般（Excel 2007 の場合）をクリックします。

2。「Excel のオプション」ダイアログボックスで、左側のバーから「全般」をクリックし、右側のペインを下にスクロールして「Microsoft Office のコピーの個人設定」セクションを見つけ、現在のユーザー名を必要な新しいものに置き換えます。最後に「OK」ボタンをクリックしてください。スクリーンショットを参照してください：

これ以降、ワークシートに新しいコメントを挿入すると、作成者名は上記で指定した新しいものになります。ただし、既存のコメントの作成者名は引き続き変更されず、以前のままです。

Kutools for Excel を使えば、既存のすべてのコメントの作成者名を簡単に新しいものに変更できます。

上記の方法に加えて、ここではコメント内の作成者名の削除／追加にも、Kutools for Excelの機能をおすすめします。この機能を使えば、現在のシートだけでなく、ワークブック全体の既存コメントの作成者名を、簡単に新しいものに変更できます。

1。作成者名を変更したいワークシートに切り替えて、「Kutools > その他 > コメント内の作成者名の削除/追加」をクリックしてください。スクリーンショットを参照してください：

2。「コメント内の作成者名の削除／追加」ダイアログボックスで、次のように設定してください：

まず、操作範囲内のすべてのコメントから作成者名を削除します。

• （1）範囲ドロップダウンリストで、現在のワークシート内の作成者名のみを変更したい場合は、現在のワークシートオプションを選択してください。ワークブック全体の作成者名を変更するには、すべてのシートオプションを選択します。
• （2）コメントからユーザー名を削除オプションを選択してください。
• （3）適用ボタンをクリックしてください。
• （4）表示されたダイアログボックスで、OKボタンをクリックします。

次に、操作範囲内のすべてのコメントに新しい作成者名を追加します。

• （1）ユーザー名ボックスにコメントの新しい作成者名を入力し、コメントにユーザー名を追加オプションを選択してください。
• （2）適用ボタンをクリックします。
• （3）表示されたダイアログボックスで、OKボタンをクリックしてください。
• （4）閉じるボタンをクリックして、ダイアログボックスを閉じます。

範囲内のすべての負の数値を正の数値に変換する VBA コードの使用

ワークブック全体の既存コメントの作成者名を変更したい場合は、以下の VBA コードが役立ちます：

1。「Alt + F11」キーを同時に押して、「Microsoft Visual Basic for Applications」を開きます。「Microsoft Visual Basic for Applications」ウィンドウで、「挿入 > 標準モジュール」をクリックし、次のコードをモジュールウィンドウにコピー＆ペーストしてください：

VBA コード：ワークブック全体の既存コメントの作成者名を変更する

Sub ChangeCommentName()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
xTitleId = "KutoolsforExcel"
oldName = InputBox("Old Name", xTitleId, Application.UserName)
newName = InputBox("New Name", xTitleId, "")
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        xComment.Text (Replace(xComment.Text, oldName, newName))
    Next
Next
End Sub 

2。「F5」キーを押してコードを実行すると、「KutoolsforExcel」ダイアログボックスが表示され、テキストボックスに古いコメントの作成者名が表示されます。「OK」ボタンをクリックしてください。スクリーンショットを参照してください：

3。次に、別の「Kutools for Excel」ダイアログボックスが表示されるので、テキストボックスに必要な新しいコメントの作成者名を入力し、「OK」ボタンをクリックしてください。スクリーンショットを参照してください：

これで、ワークブック全体の既存コメントの作成者名がすぐに新しい名前に更新されました。

注：この方法は、今後挿入する新しいコメントには適用されません。

Kutools for Excel でコメントの作成者名を一括変更するデモ

関連記事