Excelでコメントをセルの内容に変換するにはどうすればよいですか？

ワークシート内のコメントが入った範囲のセルがあると仮定し、これらのすべてのコメントをセルの内容に変換して、きれいに印刷したいと考えています。このタスクを解決するための良い方法はありますか？

ユーザー定義関数を使用してコメントをセルの内容に変換

VBAコードを使用してコメントをセルの内容に変換

Kutools for Excelを使用してコメントをセルの内容に変換

ユーザー定義関数を使用してコメントをセルの内容に変換

この方法では、まず定義された関数を作成し、その後、定義した数式を適用してコメントをセルの内容に変換する必要があります。以下の手順で完了できます：

1.「 開発 」＞「Visual Basic」をクリックすると、新しいMicrosoft Visual Basic for Applications ウィンドウが表示されます。「挿入 」＞「モジュール」をクリックし、次の関数をモジュールに入力します：

Function GetComments(pRng As Range) As String
'Updateby20140509
If Not pRng.Comment Is Nothing Then
    GetComments = pRng.Comment.Text
End If
End Function

2. Ctrl + S キーを押して関数を保存します。

3. 次に、任意の空白セルに「=GetComments(A1)」という数式を入力します。この場合、セルE1を使用します。スクリーンショットをご覧ください：

4. Enterキーを押します。そして、セルE1を選択し、この数式を含むようにしたいセル範囲に塗りつぶしハンドルをドラッグします。これで、すべてのコメントがセルの内容に変換されます。スクリーンショットをご覧ください：

VBAコードを使用してコメントをセルの内容に変換

VBAコードを知っている場合、次の簡単なコードでもコメントをセルの内容に変換するのに役立ちます。

1. セルの内容に変換したい範囲を選択します；

2. 「開発 」＞「Visual Basic」をクリックすると、新しいMicrosoft Visual Basic for Applications ウィンドウが表示されます。「 挿入 」＞「モジュール」をクリックし、次のコードをモジュールに入力します：

Sub CommentToCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Rng.NoteText
Next
End Sub

3次に、「実行」ボタンをクリックします。 変換したい範囲を選択してから、「OK」をクリックします。 OKこれで、選択したすべてのコメントが関連するセルにセルの内容として変換されました。

注：コメントが必要ない場合は、削除することができます。

Kutools for Excelを使用してコメントをセルの内容に変換

Kutools for Excel ：300以上の便利なExcelアドインがあり、30日間無制限で無料試用できます。今すぐ入手 してください。

Kutools for Excelの「コメントとセルの変換」は、コメントに関する多くの問題を解決するのに役立つ便利で有用なツールです。

Kutools for Excelをインストール後、以下の手順を行ってください：

1. コメントをセルにインポートしたい範囲を選択します。

2. 「Kutools」＞「その他」＞「 コメントとセルの変換」をクリックします。

3. 「コメントとセルの変換」ダイアログボックスで、「コメントをセルの内容に変換」を選択します。スクリーンショットをご覧ください：

4. そして「OK」をクリックします。これで、選択したすべてのコメントが元の範囲内でセルの内容に変換されました。

「コメントとセルの変換」に関する詳細情報は、 「コメントとセルの変換機能の説明」をご覧ください。

関連記事：

• セル内のすべてのコメント形式を変更
• すべてのコメントの作成者名を変更
• すべてのコメントを新しいワークシートまたはワークブックにリスト化
• コメント内のテキストを検索および置換
• Excelですべてのコメントとコメントインジケーターを表示または非表示にする
• Excelでセルの内容をコメントに変換