Μετάβαση στο κύριο περιεχόμενο

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

Όπως γνωρίζουμε, υπάρχει μια λειτουργία Εύρεση και αντικατάστασης στο excel, και με αυτήν τη λειτουργία, μπορούμε να βρούμε και να αντικαταστήσουμε το περιεχόμενο στα κελιά γρήγορα. Μπορούμε όμως να βρούμε και να αντικαταστήσουμε τα περιεχόμενα στα σχόλια στο Excel;

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

Για να βρείτε και να αντικαταστήσετε κείμενο μέσα σε σχόλια γρήγορα και εύκολα


βέλος μπλε δεξιά φούσκα Χρησιμοποιώντας τον κώδικα VBA για εύρεση και αντικατάσταση κειμένου στα σχόλια

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

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

VBA: εύρεση και αντικατάσταση κειμένου σε όλα τα σχόλια στο Excel.

Sub ReplaceComments ()
Dim cmt ως σχόλιο
Dim wks ως φύλλο εργασίας
Dim sFind As String
Dim sΑντικατάσταση ως συμβολοσειρά
Dim sCmt ως συμβολοσειρά
sFind = "2011"
sReplace = "2012"
Για κάθε εβδομάδα στο ActiveWorkbook.Worksheets
Για κάθε cmt In wks. Σχόλια
sCmt = cmt. Κείμενο
Εάν InStr (sCmt, sFind) <> 0 Τότε
sCmt = Application.WorksheetFunction. _
Αντικατάσταση (sCmt, sFind, sReplace)
cmt. Κείμενο κειμένου: = sCmt
End If
Επόμενο
Επόμενο
Ορισμός wks = Τίποτα
Ορισμός cmt = Τίποτα
Sub End

Σημείωση: Στον παραπάνω κώδικα, μπορείτε να ορίσετε το Βρείτε και Αντικατάσταση μεταβλητές για αυτό που αναζητάτε και με τι θέλετε να αντικαταστήσετε.

2. Στη συνέχεια κάντε κλικ στο κουμπί dpc-αντικατάσταση-σχόλιο-1 κουμπί για να εκτελέσετε τον κώδικα και όλο το 2011 σε όλα τα σχόλια θα αντικατασταθεί με το 2012 σε ολόκληρο το βιβλίο εργασίας.


βέλος μπλε δεξιά φούσκα Ένα εύχρηστο εργαλείο tΓια εύρεση και αντικατάσταση κειμένου εντός σχολίων γρήγορα και εύκολα

Μπορούμε γρήγορα να βρούμε και να αντικαταστήσουμε κείμενο σε όλα τα σχόλια με Kutools για Excel'S Εργαλεία σχολίων κελιού.

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα

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

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

doc-αντικατάσταση-σχόλιο-2

2. Στην Εργαλεία σχολίων κελιού κουτί διαλόγου:

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

doc-αντικατάσταση-σχόλιο-3

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

doc-αντικατάσταση-σχόλιο-4 -2 doc-αντικατάσταση-σχόλιο-5

Note: Εάν έχετε επιλέξει Εμφάνιση περίληψης, θα υπάρχει ένα πλαίσιο προτροπής που θα σας υπενθυμίζει πόσα σχόλια κελιού έχουν αλλάξει.

Για περισσότερες πληροφορίες σχετικά με το Εργαλεία σχολίων κελιού, Μπορείτε να επισκεφθείτε Περιγραφή χαρακτηριστικών Εργαλεία κυττάρων.


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

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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