Πώς να προσθέσετε / εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στα κελιά;
Ας υποθέσουμε, έχω μια λίστα συμβολοσειρών κειμένου που θέλω να εισαγάγω παύλες ή οποιουσδήποτε άλλους διαχωριστές μετά από κάθε τέσσερις χαρακτήρες σε κελιά για να λάβω το ακόλουθο αποτέλεσμα στιγμιότυπου οθόνης. Υπάρχουν πάρα πολλά κελιά που απαιτούνται για την εισαγωγή του συγκεκριμένου χαρακτήρα, υπάρχουν γρήγοροι τρόποι εισαγωγής παύλες κάθε τέσσερις χαρακτήρες στο Excel;
Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με κωδικό VBA
Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με το Kutools για Excel
Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με κωδικό VBA
Μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA για να εισαγάγετε έναν συγκεκριμένο χαρακτήρα μετά από κάθε τέσσερις χαρακτήρες στα κελιά, κάντε τα εξής:
1. Κρατήστε πατημένο το ALT + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει να επιλέξετε το εύρος δεδομένων που θέλετε να εισαγάγετε συγκεκριμένο χαρακτήρα στις συμβολοσειρές κειμένου, δείτε το στιγμιότυπο οθόνης:
4. και κάντε κλικ OK, στο ακόλουθο πλαίσιο προτροπής, εισαγάγετε τον αριθμό που θέλετε να εισαγάγετε συγκεκριμένο χαρακτήρα κάθε μετά, δείτε το στιγμιότυπο οθόνης:
5. Κάντε κλικ OKκαι στο ακόλουθο πλαίσιο προτροπής, εισαγάγετε τον συγκεκριμένο χαρακτήρα που θέλετε να προσθέσετε στο κείμενο, δείτε το στιγμιότυπο οθόνης:
6. Κλίκ OK κουμπί και επιλέξτε ένα κελί όπου θέλετε να εξάγετε το αποτέλεσμα στο πλαίσιο προτροπής, δείτε το στιγμιότυπο οθόνης:
7. Επιτέλους, κάντε κλικ στο κουμπί OK, ο συγκεκριμένος χαρακτήρας έχει εισαχθεί σε κάθε συμβολοσειρά κειμένου κάθε τέσσερις χαρακτήρες, δείτε το στιγμιότυπο οθόνης:
Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με το Kutools για Excel
Ο παραπάνω κώδικας ίσως είναι κάπως δύσκολος για τους περισσότερους αρχάριους του Excel, εδώ, μπορώ να εισαγάγω ένα εύχρηστο εργαλείο - Kutools για Excel, Με τους Προσθήκη κειμένου δυνατότητα, μπορείτε να προσθέσετε γρήγορα ένα συγκεκριμένο κείμενο ή χαρακτήρα πριν, μετά ή τις συγκεκριμένες θέσεις της τιμής κελιού.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Εάν έχετε εγκαταστήσει Kutools για Excel, κάντε τα εξής:
1. Επιλέξτε το εύρος δεδομένων που θέλετε να εισαγάγετε έναν συγκεκριμένο χαρακτήρα.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Κείμενο > Προσθήκη κειμένου, δείτε το στιγμιότυπο οθόνης:
3. Στην Προσθήκη κειμένου πλαίσιο διαλόγου, καθορίστε έναν χαρακτήρα που θέλετε να εισαγάγετε στο Κείμενο πλαίσιο και μετά επιλέξτε Καθορίστε από τη θέση Ενότητα, στο πλαίσιο κειμένου, εισαγάγετε τις θέσεις που θέλετε να εισαγάγετε το χαρακτήρα αφού, ταυτόχρονα, μπορείτε να κάνετε προεπισκόπηση του αποτελέσματος στο δεξιό τμήμα του παραθύρου, δείτε το στιγμιότυπο οθόνης:
Συμβουλές: Εδώ πληκτρολογώ 4,8,12 στο πλαίσιο κειμένου του Καθορίστε που υποδεικνύουν την εισαγωγή του συγκεκριμένου κειμένου μετά τον 4ο, 8ο και 12ο χαρακτήρα της συμβολοσειράς κειμένου.
4. Στη συνέχεια κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί, ο καθορισμένος χαρακτήρας έχει εισαχθεί στις τιμές κελιού σε συγκεκριμένες θέσεις.
Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!
Επίδειξη: Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με το Kutools για Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!