メインコンテンツへスキップ

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

ワークシートにコメントで埋められた範囲セルがあるとします。次に、すべてのコメントをセルの内容に変換して、きれいに丸く印刷できるようにします。 このタスクを解決するための良い方法はありますか?

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

コメントをVBAコードでセルの内容に変換する

Kutools forExcelを使用してコメントをセルの内容に変換する


矢印青い右バブル ユーザー定義関数を使用してコメントをセルの内容に変換する

この方法を使用するには、最初に定義済みの関数を作成してから、定義済みの数式を適用してコメントをセルの内容に変換する必要があります。 次の手順で完了できます。

1。クリック Developer > ビジュアルベーシック、新しいです アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、をクリックします インセット > モジュール、および次の関数をモジュールに入力します。

関数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を使用します。 スクリーンショットを参照してください:

doc-comments-to-cells1

4。 プレス 入力します キー。 セルE1を選択し、この数式を含めるセルの範囲に塗りつぶしハンドルをドラッグします。 そして、すべてのコメントはセルの内容に変換されます。 スクリーンショットを参照してください:

doc-comments-to-cells2


矢印青い右バブル コメントをVBAコードでセルの内容に変換する

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

1。 セルの内容に変換する範囲を選択します。

2に設定します。 OK をクリックします。 Developer > ビジュアルベーシック、新しいです アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、をクリックします インセット > モジュール、および次のコードをモジュールに入力します。

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。 次に、をクリックします  doc-乗算-計算-3 ボタンを押してコードを実行します。 変換する範囲を選択して、をクリックします OK、および選択したすべてのコメントは、関連するセルのセルコンテンツに変換されています。


doc-comments-to-cells3 -2 doc-comments-to-cells4

Note:コメントが不要な場合は、削除できます。


矢印青い右バブル Kutools forExcelを使用してコメントをセルの内容に変換する

Kutools for Excel :300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。今すぐ入手 .

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

インストールした後 Kutools for Excel、次のようにしてください。

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

2に設定します。 OK をクリックします。 クツール > その他 > コメントとセルを変換する、スクリーンショットを参照してください:

doc-comments-to-cells-5

3。 の中に コメントとセルを変換する ダイアログボックスで コメントをセルのコンテンツに変換する。 スクリーンショットを参照してください:

doc-comments-to-cells-6

4。 次に、をクリックします OK。 これで、選択したすべてのコメントが元の範囲のセルコンテンツに変換されます。

詳細については、 コメントとセルを変換する、ご覧ください。 コメントとセル機能の説明を変換する.


関連記事:

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (24)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, The first function in a module does the job only once: when I write or drag the formula down. If I go back to change any of the comment it does not update the destination cell with the new comment. For example let's say I have a comment in A1, then when I place the formula in cell B1, it will show me the A1's comment only the first time. If I go back and change the A1 comment, the cell B1 does not get updated. I tried "Calculate Now" or F9 and nothing happens. I saved the file and opened again and nothing, cell B1 stays with the old comment. It is like the function is dead. Now, if I enter or change anything in the cell A1 itself (not the comment), like adding an space in the end, it will immediately update the comment. I'm using Office 2019 Pro.
This comment was minimized by the moderator on the site
thanks very musch
This comment was minimized by the moderator on the site
great site
This comment was minimized by the moderator on the site
is there a way to do this without the title of a comment or the non bold writing?
This comment was minimized by the moderator on the site
Great tip, thanks for sharing!
This comment was minimized by the moderator on the site
Perfect! Thank You
This comment was minimized by the moderator on the site
You are a star!!! thanks
This comment was minimized by the moderator on the site
It does not automatically update when I change the comment. How do I change this? Thanks
This comment was minimized by the moderator on the site
Same problem here. Changing the comment does not trigger the calculations. Forcing the calculation (F9) does not work. Saving and load the file does not work. However, changing a cell content will trigger the calculations.
This comment was minimized by the moderator on the site
You are my HERO!!!!!!!!!!!!!!!!!!!!!! Thank You Thank You Thank You
This comment was minimized by the moderator on the site
Hi. I tried this code and it worked right. But I have a little problem: can I use this code combined with VLOOKUP? I tried but I didn't get anything. If you can help me, I'll be thankful. I'm brazilian. If I wrote something wrong, I apologise. Thanks!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations