Direkt zum Inhalt

Wie finde und ersetze ich Text in Kommentaren in Excel?

Wie wir wissen, gibt es in Excel eine Funktion zum Suchen und Ersetzen. Mit dieser Funktion können wir den Inhalt in Zellen schnell finden und ersetzen. Aber können wir Inhalte in Kommentaren in Excel finden und ersetzen?

Verwenden von VBA-Code zum Suchen und Ersetzen von Text in Kommentaren

Schnelles und einfaches Auffinden und Ersetzen von Text in Kommentaren


Pfeil blau rechte Blase Verwenden von VBA-Code zum Suchen und Ersetzen von Text in Kommentaren

In Excel scheint es keine andere Möglichkeit zu geben, dieses Problem zu lösen, als VBA-Code zu verwenden. Sie können den folgenden VBA-Code verwenden, um Text in allen Kommentaren zu finden und zu ersetzen. Zum Beispiel werde ich 2011 in allen Kommentaren in Excel durch 2012 ersetzen.

1. Klicken Sie Entwickler:in / Unternehmen >Visual BasicEin neuer Microsoft Visual Basic für Anwendungen Fenster wird angezeigt, klicken Sie auf Insert > Modul und geben Sie dann den folgenden VBA-Code in das Modul ein:

VBA: Suchen und Ersetzen von Text in allen Kommentaren in Excel.

Sub ReplaceComments ()
Dim cmt als Kommentar
Dim Wochen als Arbeitsblatt
Dimmen Sie sFind As String
Dim sErsetzen als Zeichenfolge
Dim sCmt als String
sFind = "2011"
sReplace = "2012"
Für jede Woche in ActiveWorkbook.Worksheets
Für jeden cmt In wks.Comments
scmt = cmt.text
Wenn InStr (sCmt, sFind) <> 0 Dann
sCmt = Application.WorksheetFunction. _
Ersatz (sCmt, sFind, sReplace)
cmt.Text Text: = sCmt
End If
Weiter
Weiter
Setze wks = Nichts
Setze cmt = Nichts
End Sub

Hinweis: Im obigen Code können Sie die sFinden und sErsetzen Variablen für das, wonach Sie suchen und durch was Sie ersetzen möchten.

2. Dann klick dpc-replace-comment-1 Klicken Sie auf die Schaltfläche, um den Code auszuführen, und alle 2011 in allen Kommentaren werden in der gesamten Arbeitsmappe durch 2012 ersetzt.


Pfeil blau rechte Blase Ein praktisches Tool, um Text in Kommentaren schnell und einfach zu finden und zu ersetzen

Wir können Text in allen Kommentaren schnell finden und durch ersetzen Kutools for Excel Tools für Zellkommentare.

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Get it Now

Wenn Sie Kutools für Excel installiert haben, können Sie den Text in allen Kommentaren in Excel leicht finden und ersetzen.

1. Klicken Sie Kutoolen > Mehr > Tools für Zellkommentare. Siehe Screenshot:

doc-replace-comment-2

2. In dem Tools für Zellkommentare Dialogbox:

  • (1.) Klicken Sie auf Ersatz finden Tab;
  • (2.) Wählen Sie den Bereich aus, in dem Sie dieses Dienstprogramm anwenden möchten Aktives Blatt or Alle Blätter;
  • (3.) Geben Sie den Text (2011), den Sie ersetzen möchten, in das Feld ein Finden Sie Text in Kommentaren Geben Sie den spezifischen Text (2012) ein, den Sie im Feld verwenden möchten Ersetzen durch Box.

doc-replace-comment-3

3. Und dann klick Ersetzen Taste. Das gesamte Jahr 2011 wird in den Kommentaren im aktiven Arbeitsblatt durch 2012 ersetzt. Siehe Screenshots:

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

Note: Wenn Sie überprüft haben Zusammenfassung anzeigenEs wird eine Eingabeaufforderung angezeigt, die Sie daran erinnert, wie viele Zellenkommentare geändert wurden.

Für detailliertere Informationen über Tools für ZellkommentareBesuchen Sie bitte Funktionsbeschreibung der Zellenkommentar-Tools.


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
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