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

Πώς να προσθέσετε / εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στα κελιά;

Ας υποθέσουμε, έχω μια λίστα συμβολοσειρών κειμένου που θέλω να εισαγάγω παύλες ή οποιουσδήποτε άλλους διαχωριστές μετά από κάθε τέσσερις χαρακτήρες σε κελιά για να λάβω το ακόλουθο αποτέλεσμα στιγμιότυπου οθόνης. Υπάρχουν πάρα πολλά κελιά που απαιτούνται για την εισαγωγή του συγκεκριμένου χαρακτήρα, υπάρχουν γρήγοροι τρόποι εισαγωγής παύλες κάθε τέσσερις χαρακτήρες στο Excel;

Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με κωδικό VBA

Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με το Kutools για Excel

doc εισάγετε κάθε x χαρακτήρα 1


Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε 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 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει να επιλέξετε το εύρος δεδομένων που θέλετε να εισαγάγετε συγκεκριμένο χαρακτήρα στις συμβολοσειρές κειμένου, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε κάθε x χαρακτήρα 2

4. και κάντε κλικ OK, στο ακόλουθο πλαίσιο προτροπής, εισαγάγετε τον αριθμό που θέλετε να εισαγάγετε συγκεκριμένο χαρακτήρα κάθε μετά, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε κάθε x χαρακτήρα 3

5. Κάντε κλικ OKκαι στο ακόλουθο πλαίσιο προτροπής, εισαγάγετε τον συγκεκριμένο χαρακτήρα που θέλετε να προσθέσετε στο κείμενο, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε κάθε x χαρακτήρα 4

6. Κλίκ OK κουμπί και επιλέξτε ένα κελί όπου θέλετε να εξάγετε το αποτέλεσμα στο πλαίσιο προτροπής, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε κάθε x χαρακτήρα 5

7. Επιτέλους, κάντε κλικ στο κουμπί OK, ο συγκεκριμένος χαρακτήρας έχει εισαχθεί σε κάθε συμβολοσειρά κειμένου κάθε τέσσερις χαρακτήρες, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε κάθε x χαρακτήρα 6


Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με το Kutools για Excel

Ο παραπάνω κώδικας ίσως είναι κάπως δύσκολος για τους περισσότερους αρχάριους του Excel, εδώ, μπορώ να εισαγάγω ένα εύχρηστο εργαλείο - Kutools για Excel, Με τους Προσθήκη κειμένου δυνατότητα, μπορείτε να προσθέσετε γρήγορα ένα συγκεκριμένο κείμενο ή χαρακτήρα πριν, μετά ή τις συγκεκριμένες θέσεις της τιμής κελιού.

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

Εάν έχετε εγκαταστήσει Kutools για Excel, κάντε τα εξής:

1. Επιλέξτε το εύρος δεδομένων που θέλετε να εισαγάγετε έναν συγκεκριμένο χαρακτήρα.

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Κείμενο > Προσθήκη κειμένου, δείτε το στιγμιότυπο οθόνης:

3. Στην Προσθήκη κειμένου πλαίσιο διαλόγου, καθορίστε έναν χαρακτήρα που θέλετε να εισαγάγετε στο Κείμενο πλαίσιο και μετά επιλέξτε Καθορίστε από τη θέση Ενότητα, στο πλαίσιο κειμένου, εισαγάγετε τις θέσεις που θέλετε να εισαγάγετε το χαρακτήρα αφού, ταυτόχρονα, μπορείτε να κάνετε προεπισκόπηση του αποτελέσματος στο δεξιό τμήμα του παραθύρου, δείτε το στιγμιότυπο οθόνης:

doc εισάγετε κάθε x χαρακτήρα 8

Συμβουλές: Εδώ πληκτρολογώ 4,8,12 στο πλαίσιο κειμένου του Καθορίστε που υποδεικνύουν την εισαγωγή του συγκεκριμένου κειμένου μετά τον 4ο, 8ο και 12ο χαρακτήρα της συμβολοσειράς κειμένου.

4. Στη συνέχεια κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί, ο καθορισμένος χαρακτήρας έχει εισαχθεί στις τιμές κελιού σε συγκεκριμένες θέσεις.

doc εισάγετε κάθε x χαρακτήρα 9 2 doc εισάγετε κάθε x χαρακτήρα 10

Κάντε κλικ για να μάθετε περισσότερες λεπτομέρειες σχετικά με αυτό το βοηθητικό πρόγραμμα Προσθήκη κειμένου.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


Επίδειξη: Εισαγάγετε συγκεκριμένο χαρακτήρα κάθε x χαρακτήρες στο κελί με το Kutools για Excel

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

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

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

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Creo que en vez de macros, es más fácil (aunque más largo):
1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
This comment was minimized by the moderator on the site
Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
This comment was minimized by the moderator on the site
buenas noches
necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations