Hvordan finder og erstatter man tekst i kommentarer (noter) i Excel?

Excels Find and Replace-funktion er et kraftfuldt værktøj til hurtig opdatering af indhold i celler, men den gælder ikke direkte for Notes – det nye navn for de traditionelle kommentarer før Excel 2019. Mange brugere spekulerer på, om det er muligt at anvende den samme funktionalitet på tekst i Excel Notes. Denne vejledning viser dig, hvordan du effektivt finder og erstatter tekst i Notes, hvilket udvider din evne til at administrere og forfine alle aspekter af dine regneark.

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

Et praktisk værktøj til at finde og erstatte tekst i kommentarer (noter) hurtigt og nemt

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

I Excel kan du bruge følgende VBA-kode til at finde og erstatte tekst i alle noter. For eksempel vil jeg erstatte teksten "2011" med teksten "2012" i alle noter i Excel.

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

VBA-kode: Find og erstat tekst i alle noter i Excel

Sub ReplaceNotes()
'Updated by Extendoffice 2024/07/25   
    Dim cell As Range
    Dim wks As Worksheet
    Dim sFind As String
    Dim sReplace As String
    Dim sNote As String
    ' Define the text to find and replace
    sFind = "2011"
    sReplace = "2012"
    ' Loop through each worksheet in the active workbook
    For Each wks In ActiveWorkbook.Worksheets
        For Each cell In wks.Cells
            If cell.NoteText <> "" Then
                sNote = cell.NoteText
                If InStr(sNote, sFind) > 0 Then
                    sNote = Replace(sNote, sFind, sReplace)
                    cell.NoteText Text:=sNote, Start:=1, Length:=Len(cell.NoteText)
                End If
            End If
        Next cell
    Next wks
End Sub
  

2. Klik derefter på   knappen for at køre koden, og alt "2011" i alle noter vil blive erstattet med "2012" i hele projektmappen.

Et praktisk værktøj til at finde og erstatte tekst i kommentarer (noter) hurtigt og nemt

Vi kan hurtigt finde og erstatte tekst i alle noter med Kutools for Excel's Find/erstat notetekst.

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

1. Klik Kutools > Mere > Find/erstat notetekst.

2. I Find/erstat notetekst dialog boks:

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

3. Og klik derefter på udskifte knap. Hele 2011 vil blive erstattet med 2012 i kommentarerne i det aktive regneark. Se skærmbilleder:

Relaterede artikler:

• Skift alle kommentarformater i celler
• Skift forfatternavn for alle kommentarer
• Liste alle kommentarer til et nyt regneark eller en projektmappe
• Vis eller skjul alle kommentarer og kommentarindikatorer i Excel
• Konverter celleindhold til kommentarer i Excel
• Konverter kommentarer til celleindhold i Excel