Πώς μπορείτε να βρείτε γρήγορα και να αντικαταστήσετε χαρακτήρα με υπερθέτη στο Excel;
Βρείτε και αντικαταστήστε με το υπεργράφημα με τη λειτουργία Εύρεση και αντικατάστασης
Βρείτε και αντικαταστήστε με το υπεργράφημα από το VBA
Βρείτε και αντικαταστήστε με το υπεργράφημα με τη λειτουργία Εύρεση και αντικατάστασης
Στην πραγματικότητα, μπορείτε να χρησιμοποιήσετε το Find and Replace για να βρείτε το κείμενο και, στη συνέχεια, να το αντικαταστήσετε με μορφή superscript.
1. Επιλέξτε το εύρος για το οποίο θέλετε να βρείτε και αντικαταστήστε το έργο και πατήστε Ctrl + H για να ανοίξετε το Εύρεση και αντικατάσταση διαλόγου.
2. Στο Εύρεση και αντικατάσταση κάντε κλικ στο πλαίσιο διαλόγου Αντικαταστήστε και, στη συνέχεια, εισαγάγετε το κείμενο που θέλετε να βρείτε στο βρείτε αυτό πλαίσιο κειμένου. Δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια πηγαίνετε στο Αντικατάσταση με πλαίσιο κειμένου, εισαγάγετε το κείμενο με το οποίο θέλετε να αντικαταστήσετε, σημειώστε, κρατήστε πατημένο άλλος και μετά πατήστε 0179 πλήκτρα στο Πίνακας αριθμών για να εισαγάγετε τον αριθμό υπεργράφου 3. Δείτε το στιγμιότυπο οθόνης:
4. κλικ Αντικατάσταση όλων. Και εμφανίζεται ένας διάλογος για να σας υπενθυμίσει πόσες αντικαταστάσεις έχουν γίνει. Δείτε το στιγμιότυπο οθόνης:
Συμβουλή: Αλλά με αυτήν τη μέθοδο, μπορείτε μόνο να προσθέσετε τον αριθμό 2 πατώντας 0178 και 3 έως 0179.
Βρείτε και αντικαταστήστε με το υπεργράφημα από το VBA
Με τη λειτουργία Εύρεση και αντικατάστασης, μόνο ο αντικαταστάτης μπορεί να αντικατασταθεί από τον αριθμό. Εάν θέλετε να αντικαταστήσετε το γράμμα με το παραπάνω κείμενο όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, μπορείτε να εφαρμόσετε τον κώδικα VBA για να το λύσετε.
1. Τύπος Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε κάτω από τον κώδικα VBA στο σενάριο.
VBA: Βρείτε και αντικαταστήστε με τη μορφή υπεργράφου
Sub DoConvert()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. Τύπος F5 για να εκτελέσετε τον κώδικα και εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι επιλέγετε ένα εύρος. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK, ο συγκεκριμένος χαρακτήρας σε συγκεκριμένη συμβολοσειρά έχει μετατραπεί σε μορφή υπεργράφου στην επιλογή. Δείτε το στιγμιότυπο οθόνης:
Άκρο: στον κώδικα, "YL3Είναι η συμβολοσειρά από την οποία θέλετε να βρείτε και (1, 1) δηλώνει τη μετατροπή του πρώτου 1 χαρακτήρα της συμβολοσειράς, εάν θέλετε να μετατρέψετε τους πρώτους δύο χαρακτήρες, μπορείτε να τον αλλάξετε ως (1, 2), εάν θέλετε να μετατρέψετε 1 χαρακτήρα από τον δεύτερο χαρακτήρα της συμβολοσειράς, μπορείτε να τον αλλάξετε ως ( 2, 1).
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!