Πώς να αποτρέψετε την αυτόματη αρίθμηση σε διπλότυπη κεφαλίδα στήλης στον πίνακα του Excel;

Στο Excel, όταν πληκτρολογείτε τη διπλότυπη κεφαλίδα στήλης στον πίνακα, θα προστεθεί αυτόματα ένας αριθμός όπως το όνομα, το όνομα1, το όνομα2 και ο αριθμός δεν μπορεί να αφαιρεθεί όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Για να αποτρέψετε την αυτόματη αρίθμηση σε διπλότυπη κεφαλίδα στήλης στον πίνακα, μπορείτε να προσθέσετε ελεύθερο χώρο στη διπλή κεφαλίδα. Ακολουθεί ένας κώδικας VBA που μπορεί να σας βοηθήσει να επαναλάβετε την κεφαλίδα και να προσθέσετε αυτόματα διαστήματα στο τέλος για να τα αφήσετε διαφορετικά, αλλά να φαίνονται ίδια.

Αυτόματη προσθήκη τελικών διαστημάτων στην κεφαλίδα

Σημείωση: οι μέθοδοι που παρέχονται σε αυτό το σεμινάριο έχουν δοκιμαστεί στο Excel 2021, ενδέχεται να υπάρχουν κάποιες διαφορετικές σε διαφορετικές εκδόσεις του Excel.

1. Πληκτρολογήστε τις κεφαλίδες που θέλετε να επαναλάβετε σε μια στήλη και, στη συνέχεια, πατήστε άλλος + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα ενότητα στο Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε αυτό.

VBA: Επαναλάβετε και προσθέστε κενά στο τέλος

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. κλικ τρέξιμο  κουμπί στην κορδέλα ή πατήστε F5 πλήκτρο για να ενεργοποιήσετε τον κωδικό, στο πρώτο αναδυόμενο παράθυρο διαλόγου, επιλέξτε τις κεφαλίδες που θέλετε να επαναλάβετε. Κάντε κλικ OK.

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

5. Επιλέξτε ένα κελί στο οποίο θέλετε να εξάγετε τις επαναλαμβανόμενες κεφαλίδες. Κάντε κλικ OK.

Τώρα οι κεφαλίδες επαναλήφθηκαν και προστέθηκαν με κενά.

6. Επιλέξτε τις κεφαλίδες και αντιγράψτε τις πατώντας Ctrl + Cκαι επικολλήστε τα πίσω στον πίνακα που χρειάζεστε πατώντας Ctrl + V.

Τώρα μπορείτε να δείτε ότι ο πίνακας έχει διπλότυπες κεφαλίδες στηλών χωρίς αρίθμηση.

---

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

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

• Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
• Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
• Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
• Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
• Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
• Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
• Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
• Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
• Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...

Διαβάστε περισσότερα ... Πλήρεις δυνατότητες Δωρεάν δοκιμή 30 ημερών... Αγορά... 

---

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

• Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
• Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
• Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... Πλήρεις δυνατότητες Δωρεάν δοκιμή 30 ημερών... Αγορά...