Preskoči na glavno vsebino

Kako najti in nadomestiti besedilo v komentarjih v Excelu?

Kot vemo, v Excelu obstaja funkcija Najdi in zamenjaj in s to funkcijo lahko hitro najdemo in nadomestimo vsebino v celicah. Toda ali lahko v komentarjih v Excelu najdemo in nadomestimo vsebino?

Uporaba kode VBA za iskanje in zamenjavo besedila v komentarjih

Za hitro in enostavno iskanje in zamenjavo besedila v komentarjih


puščica modri desni mehurček Uporaba kode VBA za iskanje in zamenjavo besedila v komentarjih

Zdi se, da v Excelu ni mogoče drugače rešiti te težave, razen z uporabo kode VBA. Za iskanje in zamenjavo besedila v vseh komentarjih lahko uporabite naslednjo kodo VBA Na primer, leto 2011 bom zamenjal z letom 2012 v vseh komentarjih v Excelu.

1. Kliknite Razvojni >Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduli in nato v modul vnesite naslednjo kodo VBA:

VBA: poiščite in zamenjajte besedilo v vseh komentarjih v Excelu.

Sub ReplaceComments ()
Dim cmt Kot komentar
Dim tedensko kot delovni list
Dim s Find As String
Zamenjaj zamenjaj kot niz
Dim sCmt kot niz
sFind = "2011"
sReplace = "2012"
Za vsak teden v ActiveWorkbook.Worksheets
Za vsak cmt v tednih.Komentarji
sCmt = cmt.Besedilo
Če je InStr (sCmt, sFind) <> 0 Potem
sCmt = Aplikacija.Funkcija delovnega lista. _
Namestnik (sCmt, sFind, sReplace)
Besedilo besedila besedila: = sCmt
Konec Če
Naslednji
Naslednji
Nastavi wks = Nič
Nastavi cmt = Nič
End Sub

Opomba: V zgornji kodi lahko nastavite sPoiščite in sZameni spremenljivke za tisto, kar iščete in s čim želite nadomestiti.

2. Nato kliknite dpc-zamenjaj-komentar-1 gumb za zagon kode in vse leto 2011 v vseh komentarjih bo v celotnem delovnem zvezku nadomeščeno z letom 2012


puščica modri desni mehurček Priročno orodje tZa hitro in enostavno iskanje in zamenjavo besedila v komentarjih

Besedilo v vseh komentarjih lahko hitro poiščemo in nadomestimo z Kutools za ExcelJe Orodja za komentarje celic.

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Get it now

Če ste namestili Kutools za Excel, lahko preprosto najdete in nadomestite besedilo v vseh komentarjih v Excelu.

1. Kliknite Kutools > Več > Orodja za komentarje celic. Oglejte si posnetek zaslona:

doc-zamenjaj-komentar-2

2. v Orodja za komentarje celic pogovorno okno:

  • (1.) Kliknite Najdi / zamenjaj zavihek;
  • (2.) Izberite obseg, ki ga želite uporabiti, lahko izberete Aktivni list or Vsi listi;
  • (3.) Vnesite besedilo (2011), ki ga želite zamenjati Poiščite besedilo v komentarjih in vnesite določeno besedilo (2012), ki ga želite uporabiti v Zamenjaj z škatla.

doc-zamenjaj-komentar-3

3. In nato kliknite Zamenjaj . Vse leto 2011 bo nadomeščeno z letom 2012 v komentarjih na aktivnem delovnem listu. Oglejte si posnetke zaslona:

doc-zamenjaj-komentar-4 -2 doc-zamenjaj-komentar-5

Opombe: Če ste preverili Prikaži povzetek, bo prikazano pozivno polje, ki vas bo opozorilo, koliko komentarjev v celicah je bilo spremenjenih.

Za podrobnejše informacije o Orodja za komentarje celic, Obiščite Opis funkcije orodij za komentarje celic.


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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