ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
LPI ID 登録
x

or

Excelでのコメント内のテキストの検索と置換方法

われわれが知っているように、ExcelのFind and Replace機能があり、この機能を使って、細胞内のコンテンツをすばやく見つけて置き換えることができます。 しかし、Excelのコメントで内容を見つけて交換することはできますか?

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

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

OfficeタブOfficeでタブ付き編集とブラウジングを有効にし、作業をより簡単にします...
Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最も使用されている式や複雑な式、チャート、その他をお気に入りに追加し、将来的にすぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換します。
  • マージツール:複数のワークブックとシートを1つに; データを失うことなく複数のセル/行/列を結合します。 重複する行と合計をマージします。
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 1つのワークブックから複数のExcel、PDF、またはCSVファイル。 1列から複数列。
  • 貼り付けスキップ 非表示/フィルターされた行。 カウントアンドサム 背景色別; パーソナライズされた電子メールを一括して複数の受信者に送信します。
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度などにより; フィルタ 太字、式、コメントで...
  • 300の強力な機能以上。 Office 2007-2019および365で動作します。 すべての言語をサポートしています。 企業または組織に簡単に展開できます。

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


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

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

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

Sub ReplaceComments()
コメントとしてDim cmt
ワークシートとしてのDim Wks
Dim sFind As String
文字列としてDim sReplace
Dim sCmt As String
sFind = "2011"
sReplace = "2012"
ActiveWorkbook.Worksheetsで各自のために
wks.Commentsの各cmtについて
sCmt = cmt.Text
InStr(sCmt、sFind)<> 0の場合
sCmt = Application.WorksheetFunction。 _
置換(sCmt、sFind、sReplace)
cmt.Textテキスト:= sCmt
終了する場合


Set wks = Nothing
Set cmt = Nothing
End Subの

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

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


矢印青い右の泡 簡単なツールtコメント内のテキストを素早く簡単に見つけて置き換える

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

Kutools for Excel300便利なExcelアドイン以上で、30日に制限なく試してみることができます。 今すぐ入手

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

1に設定します。 OK をクリックします。 クツール > More > セルコメントツール。 スクリーンショットを見る:

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

:チェックした場合 要約を表示いくつのセルコメントが変更されたかを示すためのプロンプトボックスが表示されます。

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


関連記事:


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jack · 9 months ago
    This is really amazing. Great information about blog. https://www.kodi.link/
  • To post as a guest, your comment is unpublished.
    Nick Seigal · 5 years ago
    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