Ga naar hoofdinhoud

Hoe tekst in opmerkingen in Excel te zoeken en te vervangen?

Zoals we weten, is er een functie Zoeken en vervangen in Excel, en met deze functie kunnen we de inhoud in cellen snel vinden en vervangen. Maar kunnen we inhoud in opmerkingen in Excel vinden en vervangen?

VBA-code gebruiken om tekst in opmerkingen te zoeken en te vervangen

Om snel en gemakkelijk tekst in opmerkingen te vinden en te vervangen

pijl blauw rechts bel VBA-code gebruiken om tekst in opmerkingen te zoeken en te vervangen

In Excel lijkt het erop dat er geen andere manier is om dit probleem op te lossen, behalve het gebruik van VBA-code, u kunt de volgende VBA-code gebruiken om tekst in alle opmerkingen te zoeken en te vervangen. Ik zal bijvoorbeeld 2011 vervangen door 2012 in alle opmerkingen in Excel.

1. Klikken Ontwikkelaar >Visual Basic, Een nieuw Microsoft Visual Basic voor applicaties venster wordt weergegeven, klik op Invoegen > Module en voer vervolgens de volgende VBA-code in de module in:

VBA: zoek en vervang tekst in alle opmerkingen in Excel.

Sub Vervangen Opmerkingen ()
Dim cmt als commentaar
Dim wkn als werkblad
Dim zoeken als string
Dim s Vervangen als string
Dim sCmt als tekenreeks
sFind = "2011"
sReplace = "2012"
Voor elke week in ActiveWorkbook.Worksheets
Voor elke cmt in wkn. Opmerkingen
sCmt = cmt.Tekst
Als InStr (sCmt, sFind) <> 0 Then
sCmt = Application.WorksheetFunction. ​
Vervanging (sCmt, sFind, sReplace)
cmt.Text Tekst: = sCmt
End If
Volgende
Volgende
Stel wks = Niets in
Stel cmt = niets in
End Sub

Opmerking: In de bovenstaande code kunt u de sVinden en s Vervangen variabelen voor wat u zoekt en waarmee u wilt vervangen.

2. Dan klikken dpc-replace-commentaar-1 knop om de code uit te voeren, en alle 2011 in alle commentaren zal worden vervangen door 2012 in de hele werkmap.

pijl blauw rechts bel Een handig hulpmiddel om snel en gemakkelijk tekst in opmerkingen te vinden en te vervangen

We kunnen snel tekst zoeken en vervangen in alle opmerkingen met Kutools for Excel's Hulpmiddelen voor celcommentaar.

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Get it Now

Als u Kutools voor Excel hebt geïnstalleerd, kunt u de tekst in alle opmerkingen in Excel gemakkelijk vinden en vervangen.

1. Klikken Kutools > Meer > Hulpmiddelen voor celcommentaar. Zie screenshot:

doc-vervang-opmerking-2

2. In de Hulpmiddelen voor celcommentaar dialoog venster:

  • (1.) Klik Zoek / vervang tab;
  • (2.) Selecteer het bereik waarop u dit hulpprogramma wilt toepassen, u kunt selecteren Actief blad or Alle lakens;
  • (3.) Typ de tekst (2011) die u wilt vervangen in het Vind tekst in opmerkingen box, en voer de specifieke tekst (2012) in die je wilt gebruiken in het Vervangen door doos.

doc-vervang-opmerking-3

3. En klik vervolgens op vervangen knop. Heel 2011 wordt vervangen door 2012 in de opmerkingen in het actieve werkblad. Zie screenshots:

doc-vervang-opmerking-4 -2 doc-vervang-opmerking-5

Note: Als je het hebt aangevinkt Samenvatting weergeven, zal er een promptvenster zijn om u eraan te herinneren hoeveel celopmerkingen zijn gewijzigd.

Voor meer gedetailleerde informatie over Hulpmiddelen voor celcommentaarKunt u terecht op Functiebeschrijving van hulpmiddelen voor celcommentaar.

Gerelateerde artikelen:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (4)
No ratings yet. Be the first to rate!
ahmetgns
ahmetgns
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)
Reply
0
0
ahmetgns
ahmetgns
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)
Reply
0
0
ahmetgns
ahmetgns
This comment was minimized by the moderator on the site
How to replace line break in comments?
Reply
0
0
Nick Seigal
Nick Seigal
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
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations