Gå til hovedindhold

Hvordan finder og erstatter jeg tekst i kommentarer i Excel?

Som vi ved, er der en Find og erstat funktion i Excel, og med denne funktion kan vi hurtigt finde og erstatte indholdet i celler. Men kan vi finde og erstatte indhold i kommentarer i Excel?

Brug af VBA-kode til at finde og erstatte tekst i kommentarer

At finde og erstatte tekst i kommentarer hurtigt og nemt


pil blå højre boble Brug af VBA-kode til at finde og erstatte tekst i kommentarer

I Excel ser det ud til, at der ikke er nogen anden måde at løse dette problem på, undtagen at bruge VBA-kode, du kan bruge følgende VBA-kode til at finde og erstatte tekst i alle kommentarer. For eksempel vil jeg erstatte 2011 med 2012 i alle kommentarer i Excel.

1. Klik Udvikler >Visual Basic, En ny Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte > Moduler og indtast derefter følgende VBA-kode i modulet:

VBA: find og erstat tekst i alle kommentarer i Excel.

Sub ReplaceComments ()
Dæmp cmt som kommentar
Dæmp uger som regneark
Dim sFind som streng
Dæmp Udskift som streng
Dim sCmt som streng
sFind = "2011"
sReplace = "2012"
For hver uge i ActiveWorkbook.Worksheets
For hver cmt i uger. Kommentarer
sCmt = cmt.Tekst
Hvis InStr (sCmt, sFind) <> 0 Så
sCmt = Application.WorksheetFunction. _
Stedfortræder (sCmt, sFind, sRlace)
cmt.Tekst Tekst: = sCmt
End If
Næste
Næste
Indstil wks = Intet
Indstil cmt = Intet
End Sub

Bemærk: I ovenstående kode kan du indstille sFind , Udskift variabler til det, du søger efter, og hvad du vil erstatte med.

2. Klik derefter på dpc-udskift-kommentar-1 knappen for at køre koden, og hele 2011 i alle kommentarer erstattes med 2012 i hele projektmappen.


pil blå højre boble Et praktisk værktøj tFind hurtigt og nemt at finde og udskifte tekst i kommentarer

Vi kan hurtigt finde og erstatte tekst i alle kommentarer med Kutools til Excel's Værktøjer til cellekommentarer.

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Få det nu

Hvis du har installeret Kutools til Excel, kan du nemt finde og erstatte teksten i alle kommentarer i Excel.

1. Klik Kutools > Mere > Værktøjer til cellekommentarer. Se skærmbillede:

doc-erstat-kommentar-2

2. I Værktøjer til cellekommentarer dialog boks:

  • (1.) Klik på Find / udskift fanen;
  • (2.) Vælg det anvendelsesområde, du vil anvende dette værktøj, du kan vælge Aktivt ark or Alle ark;
  • (3.) Indtast teksten (2011), som du vil erstatte, i Find tekst i kommentarer og indtast den specifikke tekst (2012), som du vil bruge i Erstat med boks.

doc-erstat-kommentar-3

3. Og klik derefter på udskifte knap. Hele 2011 erstattes med 2012 inden for kommentarerne i det aktive regneark. Se skærmbilleder:

doc-erstat-kommentar-4 -2 doc-erstat-kommentar-5

Bemærk: Hvis du tjekkede Vis resumé, vil der være et hurtigfelt for at minde dig om, hvor mange cellekommentarer der er blevet ændret.

For mere detaljeret information om Værktøjer til cellekommentarer, Kan du besøge Cellekommentarværktøjs funktion.


Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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