Πώς να βρείτε και να αντικαταστήσετε κείμενο σε σχόλια (σημειώσεις) στο Excel;

Η συνάρτηση Εύρεση και αντικατάσταση του Excel είναι ένα ισχυρό εργαλείο για γρήγορη ενημέρωση περιεχομένου εντός κελιών, αλλά δεν ισχύει άμεσα για τις Σημειώσεις—το νέο όνομα για τα παραδοσιακά σχόλια πριν από το Excel 2019. Πολλοί χρήστες αναρωτιούνται εάν είναι δυνατόν να εφαρμοστεί η ίδια λειτουργικότητα στο κείμενο στο Excel Notes. Αυτός ο οδηγός θα σας δείξει πώς να βρίσκετε και να αντικαθιστάτε αποτελεσματικά κείμενο στις Σημειώσεις, επεκτείνοντας την ικανότητά σας να διαχειρίζεστε και να βελτιώνετε όλες τις πτυχές των υπολογιστικών φύλλων σας.

Χρήση κώδικα VBA για εύρεση και αντικατάσταση κειμένου στα σχόλια (σημειώσεις)

Ένα εύχρηστο εργαλείο για να βρείτε και να αντικαταστήσετε κείμενο μέσα στα σχόλια (σημειώσεις) γρήγορα και εύκολα

Χρήση κώδικα VBA για εύρεση και αντικατάσταση κειμένου στα σχόλια (σημειώσεις)

Στο Excel, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα VBA για να βρείτε και να αντικαταστήσετε κείμενο σε όλες τις σημειώσεις. Για παράδειγμα, θα αντικαταστήσω το κείμενο "2011" με το κείμενο "2012" σε όλες τις σημειώσεις στο Excel.

1. Κλίκ Εργολάβος >Visual Basic και ένα νέο Microsoft Visual Basic για εφαρμογές θα εμφανιστεί το παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης και, στη συνέχεια, εισαγάγετε τον ακόλουθο κώδικα VBA στη λειτουργική μονάδα:

Κωδικός VBA: Εύρεση και αντικατάσταση κειμένου σε όλες τις σημειώσεις στο 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. Στη συνέχεια, κάντε κλικ στο   κουμπί για να εκτελέσετε τον κώδικα και όλα τα "2011" σε όλες τις σημειώσεις θα αντικατασταθούν με "2012" σε ολόκληρο το βιβλίο εργασίας.

Ένα εύχρηστο εργαλείο για να βρείτε και να αντικαταστήσετε κείμενο μέσα στα σχόλια (σημειώσεις) γρήγορα και εύκολα

Μπορούμε γρήγορα να βρούμε και να αντικαταστήσουμε κείμενο σε όλες τις σημειώσεις με Kutools για Excel'S Εύρεση/αντικατάσταση κειμένου σημείωσης.

Εάν έχετε εγκαταστήσει το Kutools για Excel, μπορείτε εύκολα να βρείτε και να αντικαταστήσετε το κείμενο σε όλες τις σημειώσεις στο Excel.

1. Κλίκ Kutools > Περισσότερο > Εύρεση/αντικατάσταση κειμένου σημείωσης. Δείτε το στιγμιότυπο οθόνης:

2. Στην Εύρεση/αντικατάσταση κειμένου σημείωσης κουτί διαλόγου:

• (1.) Επιλέξτε το εύρος που θέλετε να εφαρμόσετε αυτό το βοηθητικό πρόγραμμα, μπορείτε να επιλέξετε Ενεργό φύλλο or Όλα τα φύλλα;
• (2.) Εισαγάγετε το κείμενο (2011) που θέλετε να αντικαταστήσετε στο Βρείτε κείμενο σε σημειώσεις και εισαγάγετε το συγκεκριμένο κείμενο (2012) που θέλετε να χρησιμοποιήσετε στο Αντικατάσταση με κουτί.

3. Και στη συνέχεια κάντε κλικ στο κουμπί Αντικαταστήστε κουμπί. Όλο το 2011 θα αντικατασταθεί με το 2012 στα σχόλια στο ενεργό φύλλο εργασίας. Δείτε στιγμιότυπα οθόνης:

Σχετικά άρθρα:

• Αλλαγή όλων των μορφών σχολίων στα κελιά
• Αλλάξτε το όνομα του συντάκτη όλων των σχολίων
• Λίστα όλων των σχολίων σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας
• Εμφάνιση ή απόκρυψη όλων των σχολίων και των δεικτών σχολίων στο Excel
• Μετατροπή περιεχομένου κελιού σε σχόλια στο Excel
• Μετατροπή σχολίων σε περιεχόμενο κελιού στο Excel