Hoppa till huvudinnehåll

Hur hittar jag och ersätter text i kommentarer i Excel?

Som vi vet finns det en Find and Replace-funktion i Excel, och med den här funktionen kan vi snabbt hitta och ersätta innehållet i celler. Men kan vi hitta och ersätta innehåll i kommentarer i Excel?

Använda VBA-kod för att hitta och ersätta text i kommentarer

Att hitta och ersätta text i kommentarer snabbt och enkelt


pil blå höger bubbla Använda VBA-kod för att hitta och ersätta text i kommentarer

I Excel verkar det inte finnas något annat sätt att lösa detta problem förutom att använda VBA-kod, du kan använda följande VBA-kod för att hitta och ersätta text i alla kommentarer. Till exempel kommer jag att ersätta 2011 med 2012 i alla kommentarer i Excel.

1. Klicka Utvecklare >Visual Basic, en ny Microsoft Visual Basic för applikationer fönstret visas, klicka Insert > Modulerna och mata sedan in följande VBA-kod i modulen:

VBA: hitta och ersätt text i alla kommentarer i Excel.

Sub ReplaceComments ()
Dim dim. Som kommentar
Dim wks Som arbetsblad
Dim sFind som sträng
Dim dim Byte ut som sträng
Dim dimma som sträng
sFind = "2011"
sRlace = "2012"
För varje vecka i ActiveWorkbook.Worksheets
För varje cmt i veckor. Kommentarer
sCmt = cmt.Text
Om InStr (sCmt, sFind) <> 0 Då
sCmt = Application.WorksheetFunction. _
Ersättare (sCmt, sFind, sRlace)
cmt.Texttext: = sCmt
End If
Nästa
Nästa
Ställ in wks = ingenting
Ställ in cmt = ingenting
End Sub

Notera: I ovanstående kod kan du ställa in s Hitta och ersätt variabler för vad du söker efter och vad du vill ersätta med.

2. Klicka sedan dpc-ersätt-kommentar-1 knappen för att köra koden, och hela 2011 i alla kommentarer kommer att ersättas med 2012 i hela arbetsboken.


pil blå höger bubbla Ett praktiskt verktyg för att snabbt och enkelt hitta och ersätta text i kommentarer

Vi kan snabbt hitta och ersätta text i alla kommentarer med Kutools för ExcelÄr Cellkommentarverktyg.

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Hämta nu

Om du har installerat Kutools för Excel kan du enkelt hitta och ersätta texten i alla kommentarer i Excel.

1. Klicka Kutools > Snarare > Cellkommentarverktyg. Se skärmdump:

doc-ersätt-kommentar-2

2. I Cellkommentarverktyg dialog ruta:

  • (1.) Klicka på Sök / Ersätt flik;
  • (2.) Välj det omfång som du vill använda detta verktyg, du kan välja Aktivt ark or Alla lakan;
  • (3.) Ange texten (2011) som du vill ersätta i Hitta text i kommentarer rutan och mata in den specifika texten (2012) som du vill använda i Ersätt med låda.

doc-ersätt-kommentar-3

3. Och klicka sedan på ersätta knapp. Hela 2011 kommer att ersättas med 2012 inom kommentarerna i det aktiva kalkylbladet. Se skärmdumpar:

doc-ersätt-kommentar-4 -2 doc-ersätt-kommentar-5

Anmärkningar: Om du kollade Visa sammanfattningkommer det att finnas en snabbruta för att påminna dig om hur många cellkommentarer som har ändrats.

För mer detaljerad information om Cellkommentarverktyg, besök Funktioner för cellkommentarverktyg.


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje 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