Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να προσθέσετε / εισαγάγετε συγκεκριμένο χαρακτήρα κάθε 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 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    anaid83 · 28 days ago
    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.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    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.
  • To post as a guest, your comment is unpublished.
    John · 1 years ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios