Πώς να βρείτε και να αντικαταστήσετε κείμενο και, στη συνέχεια, να διατηρήσετε τη μορφοποίηση στο Excel;
 |
 |
Βρείτε και αντικαταστήστε τη διατήρηση κονσόλας με κώδικα μακροεντολής
Βρείτε και αντικαταστήστε τη διατήρηση κονσόλας με κώδικα μακροεντολής
Δεν υπάρχουν άλλες μέθοδοι, αλλά ο κώδικας μακροεντολής μπορεί να σας βοηθήσει να βρείτε και να αντικαταστήσετε κείμενο και να διατηρήσετε τη μορφοποίηση.
1. Τύπος Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογή παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον παρακάτω κώδικα στο σενάριο.
VBA: Βρείτε και αντικαταστήστε τη διατήρηση της διατήρησης
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
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
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
3. Τύπος F5 κλειδί, εμφανίζεται ένας διάλογος για να επιλέξετε μια περιοχή για εύρεση και αντικατάσταση, δείτε το στιγμιότυπο οθόνης:
4. Κάντε κλικ στο OK και η συγκεκριμένη συμβολοσειρά στο επιλεγμένο κελί αντικαθίσταται με άλλη και διατηρήστε τη μορφοποίηση.
Άκρο: Στον κώδικα, KK είναι η συμβολοσειρά που θέλετε να βρείτε και Kutools είναι η συμβολοσειρά με την οποία θέλετε να αντικαταστήσετε, μπορείτε να τις αλλάξετε όπως χρειάζεστε.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
