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

Excelでコメント内のテキストを見つけて置き換える方法は?

ご存知のように、Excelには検索と置換機能があり、この関数を使用すると、セル内のコンテンツをすばやく検索して置換できます。 しかし、Excelのコメントの内容を見つけて置き換えることはできますか?

VBAコードを使用して、コメント内のテキストを検索および置換します

コメント内のテキストをすばやく簡単に見つけて置き換える


矢印青い右バブル VBAコードを使用して、コメント内のテキストを検索および置換します

Excelでは、VBAコードを使用する以外にこの問題を解決する方法はないようです。次のVBAコードを使用して、すべてのコメントのテキストを検索して置き換えることができます。 たとえば、Excelのすべてのコメントで2011を2012に置き換えます。

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

VBA:Excelのすべてのコメントのテキストを検索して置き換えます。

サブReplaceComments()
コメントとして薄暗いcmt
ワークシートとして薄暗い週
文字列として検索
Dim s文字列として置換
文字列として sCmt を薄暗くする
sFind = "2011"
sReplace = "2012"
ActiveWorkbook.Worksheetsの各週について
wks.Commentsの各cmtについて
sCmt = cmt.Text
If InStr(sCmt、sFind)<> 0 Then
sCmt = Application.WorksheetFunction。 _
Substitute(sCmt、sFind、sReplace)
cmt.Text Text:= sCmt
終了する場合
Next
Next
wks =なしを設定します
cmt =なしに設定
End Subの

注: 上記のコードでは、 検索する > s置換 あなたが探しているものとあなたが置き換えたいもののための変数。

2。 次に、をクリックします dpc-replace-コメント-1 ボタンをクリックしてコードを実行すると、すべてのコメントのすべての2011がワークブック全体で2012に置き換えられます。


矢印青い右バブル コメント内のテキストをすばやく簡単に見つけて置き換えるための便利なツール

すべてのコメントのテキストをすばやく見つけて、次のように置き換えることができます Kutools for Excelさん セルコメントツール.

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

Kutools for Excelをインストールしている場合は、Excelのすべてのコメントのテキストを簡単に見つけて置き換えることができます。

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

doc-replace-comment-2

2。 の中に セルコメントツール ダイアログボックス:

  • (1.)クリック 検索/置換 タブ;
  • (2.)このユーティリティを適用するスコープを選択します。選択できます。 アクティブシート or すべてのシート;
  • (3.)置き換えたいテキスト(2011)をに入力します コメント内のテキストを検索 ボックスに入力し、で使用する特定のテキスト(2012)を入力します。 と交換 ボックス。

doc-replace-comment-3

3。 そして、 交換する ボタン。 アクティブなワークシートのコメント内で、2011年はすべて2012年に置き換えられます。 スクリーンショットを参照してください:

doc-replace-comment-4 -2 doc-replace-comment-5

Note:チェックした場合 概要を表示、変更されたセルコメントの数を通知するプロンプトボックスが表示されます。

詳細については、 セルコメントツール、ご覧ください。 セルコメントツールの機能の説明.


関連記事:

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の 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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations