Note: The other languages of the website are Google-translated. Back to English

Πώς να αποτρέψετε την αυτόματη αρίθμηση σε διπλότυπη κεφαλίδα στήλης στον πίνακα του 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.

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


Άλλες λειτουργίες (άρθρα)

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

Πώς να διατηρήσετε την κορυφαία απόστροφη κατά την πληκτρολόγηση στο Excel;
Όπως γνωρίζουμε, όταν θέλετε να αλλάξετε έναν αριθμό σε κείμενο, μπορείτε να εισαγάγετε ένα σύμβολο απόστροφου στο μπροστινό μέρος ως εξής: '123, και ο αριθμός θα μετατραπεί σε κείμενο και θα κρύψει την απόστροφο.

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

Πώς να σταματήσετε το Excel από την αυτόματη μορφοποίηση ημερομηνιών σε CSV;
Εδώ είναι ένα αρχείο csv που περιέχει την ημερομηνία ως μορφή κειμένου 12-μαϊου-20, αλλά όταν το ανοίξετε μέσω του excel θα αποθηκευτεί αυτόματα ως μορφή ημερομηνίας...



  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
kte καρτέλα 201905
  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες