Excel で複数のセルに素早くコメントを挿入するには、どうすればよいですか?
ワークシートでセルにコメントを挿入するのはとても簡単ですが、同じコメントを複数のセルに一度に挿入するにはどうすればよいでしょうか?
特殊貼り付け機能で複数のセルにコメントを挿入
VBA コードで複数のセルにコメントを挿入
特殊貼り付け機能で複数のセルにコメントを挿入
Excel では、複数のコメントを一度に挿入する機能はありません。ただし、以下の手順でコメントを複数のセルにコピーできます。
1.セルにコメントを挿入しましょう。
2.コメントを挿入したセルを選択し、Ctrl+Cキーを押してコピーしてください。
3.次に、コメントを一括挿入したい範囲を選択して右クリックし、表示されたメニューから特殊貼り付け>特殊貼り付けを選択してください。スクリーンショットをご確認ください:
![右クリックメニューから[形式を選択して貼り付け]>[形式を選択して貼り付け]を選択](http://cdn.extendoffice.com/images/stories/doc-excel/insert-comment-to-multiple-cells/doc-insert-comment-to-multiple-cells-01.png)
4.特殊貼り付けダイアログボックスで、コメントオプションをオンにして、OKボタンをクリックしてください。スクリーンショットをご覧ください:
![ダイアログボックスで[コメント]オプションをオンにする](http://cdn.extendoffice.com/images/stories/doc-excel/insert-comment-to-multiple-cells/doc-insert-comment-to-multiple-cells-02.png)
すると、選択したすべてのセルに同じコメントが即座に挿入されます。

注:この方法では、選択したすべてのセルに同じコメントが挿入されます。フィルター後の表示セルのみに同じコメントを挿入したい場合は、以下の VBA の方法をお試しください。

KUTOOLS AI でExcel の魔法を解き放ちましょう
- スマート実行:セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
- カスタム数式:ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
- VBA コーディング:VBA コードを簡単に記述・実装できます。
- 数式の解釈:複雑な数式が簡単に理解できます。
- テキスト翻訳:スプレッドシート内で言語の壁を乗り越えましょう!
VBA コードで複数のセルにコメントを挿入
下のスクリーンショットのようにフィルターされたリストがある場合、表示されているすべてのセルに一括でコメントを追加したいときは、以下の手順に従ってください。

1.AltキーとF11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
2.Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックし、表示されたモジュールに次のコードを入力してください。
VBA:複数のセル(フィルターされたリストの表示セルのみ)に一括でコメントを挿入
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub 3.F5キーを押してコードを実行します。Kutools for Excelのダイアログボックスが最初に表示されたら、コメントを追加したいフィルタリング範囲を選択し、OKボタンをクリックします。スクリーンショットをご覧ください:

4.次に、別のKutools for Excelダイアログボックスが表示されます。テキストボックスにコメントを入力し、OKボタンをクリックしてください。

これで、選択したフィルター済みリスト内に表示されているセルのみにコメントが挿入されました(下のスクリーンショットをご参照ください)。

最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得