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

Πώς να αριθμήσετε τα κελιά με αλφαβητικά γράμματα στο Excel;

Στο Excel, μπορούμε να αριθμήσουμε τα κελιά με σειρές αριθμών όπως 1, 2, 3… χρησιμοποιώντας τη λαβή αυτόματης συμπλήρωσης, αλλά πώς μπορείτε να αριθμήσετε κελιά με αλφαβητικά γράμματα A, B, C…; Σε αυτό το σεμινάριο, εισάγω μερικούς τρόπους για να χειριστώ αυτήν την εργασία στο Excel.

Αρίθμηση κελιών με αλφαβητικό γράμμα με τύπο

Αρίθμηση κελιών με αλφαβητικό γράμμα με κωδικό VBA

Αρίθμηση κελιών με με Kutools για Excelκαλή ιδέα3


Εισαγάγετε πολλές κουκκίδες ή αρίθμηση σε μια εκτέλεσηge

Στο Excel, πρέπει να εισαγάγετε τις κουκκίδες ή την αρίθμηση μία προς μία, αλλά με αυτό το εύχρηστο εργαλείο, Kutools για Excel's Εισαγωγή κουκκίδας και Εισαγωγή Nmbering βοηθητικά προγράμματα, μπορείτε να εισάγετε γρήγορα κουκκίδες ή αρίθμηση
στα επιλεγμένα κελιά ταυτόχρονα ..  Κάντε κλικ για δωρεάν δοκιμή 60 ημερών!
doc εισαγωγή αρίθμησης κουκκίδων
 
Kutools για Excel: με περισσότερα από 200 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες.

Αρίθμηση κελιών με αλφαβητικό γράμμα με τύπο

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

Εάν έχετε Kutools για Excel, τη Συμπληρώστε προσαρμοσμένες λίστες Το βοηθητικό πρόγραμμα σας υποστηρίζει για να δημιουργήσετε μια λίστα από μια περιοχή και, στη συνέχεια, μπορείτε να εισαγάγετε τη νέα λίστα οπουδήποτε θέλετε, χωρίς να τις πληκτρολογήσετε ξανά-μία.  Κάντε κλικ για δωρεάν δοκιμή 60 ημερών!
αρίθμηση εγγράφων με το γράμμα 2

2. Επιλέξτε ένα κελί που βρίσκεται δίπλα στα γράμματα και τα περιεχόμενα κελιού που θέλετε να αριθμήσετε, πληκτρολογήστε αυτόν τον τύπο = A1 & "." & B1, σύρετε τη λαβή συμπλήρωσης προς τα κάτω για να γεμίσετε τον τύπο σε όλα τα κελιά που χρειάζεστε.
αρίθμηση εγγράφων με το γράμμα 3


Αρίθμηση κελιών με αλφαβητικό γράμμα με κωδικό VBA

Εάν είστε εξοικειωμένοι με τους κωδικούς μακροεντολών, μπορείτε να κάνετε τους εξής:

1. Τύπος Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο. Κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης.

2. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο Μονάδα μέτρησης γραφή.

VBA: αρίθμηση με Α

Sub Prefix_A()
'UpdatebyExtendoffice20180828
Dim xRg As Range
Dim xStrPrefix As String
xStrPrefix = "A."
On Error Resume Next
Application.ScreenUpdating = False
For Each xRg In Selection
    If xRg.Value <> "" Then
        xRg.Value = xStrPrefix & xRg.Value
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Στη συνέχεια, επαναλάβετε την επικόλληση του κώδικα και αλλάξτε A σε B ή C ή D όπως χρειάζεστε.
αρίθμηση εγγράφων με το γράμμα 4

4. Αποθηκεύστε τον κωδικό και κλείστε το Microsoft Visual Basic για εφαρμογές παράθυρο.

5. Επιλέξτε τα κελιά που θέλετε να αριθμήσετε με A και κάντε κλικ στο Εργολάβος > Μακροεντολές.
αρίθμηση εγγράφων με το γράμμα 5

6. σε Macro διαλόγου, επιλέξτε τον κωδικό Πρόθεμα_Α και κάντε κλικ στο κουμπί τρέξιμο.
αρίθμηση εγγράφων με το γράμμα 6

7. Η επιλογή αριθμήθηκε με A.
αρίθμηση εγγράφων με το γράμμα 7

8. Επαναλάβετε τα βήματα 5 και 6 για την αρίθμηση των κελιών με συγκεκριμένο γράμμα όπως χρειάζεστε.


Αρίθμηση κελιών με Kutools για Excel

Εάν διαθέτετε Kutools για Excel, μπορείτε γρήγορα να αριθμήσετε κελιά.

Kutools για Excel, με περισσότερα από 200 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για Excel τώρα!)

Επιλέξτε τα κελιά που θέλετε να αριθμήσετε και, στη συνέχεια, κάντε κλικ στο Kutools > Κύριο θέμα > Εισαγωγή αρίθμησης, επιλέξτε έναν τύπο που χρειάζεστε.
αρίθμηση εγγράφων με το γράμμα 8

Στη συνέχεια, τα κελιά έχουν προστεθεί αρίθμηση.
αρίθμηση εγγράφων με το γράμμα 9

Περιήγηση με καρτέλες και επεξεργασία πολλαπλών βιβλίων εργασίας Excel / εγγράφων Word όπως Firefox, Chrome, Internet Explore 10!

Ίσως εξοικειωθείτε με την προβολή πολλών ιστοσελίδων στο Firefox / Chrome / IE και εναλλαγή μεταξύ τους κάνοντας κλικ στις αντίστοιχες καρτέλες εύκολα. Εδώ, το Office Tab υποστηρίζει παρόμοια επεξεργασία, η οποία σας επιτρέπει να περιηγηθείτε σε πολλά βιβλία εργασίας του Excel ή έγγραφα Word σε ένα παράθυρο του Excel ή στο παράθυρο του Word και να αλλάξετε εύκολα μεταξύ τους κάνοντας κλικ στις καρτέλες τους. Κάντε κλικ δωρεάν 30-ημερήσια δοκιμή του Office Tab!

ή υπερέχετε

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

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

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

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sub Alphabetic_Numbering()
Dim InputRng As Range, Start As Integer, Cell As Range, Start1 As Integer, Rowsx As Integer, Double_Start As Integer
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range", xTitleId, InputRng.Address, Type:=8)

Start = 65
Rowsx = InputRng.Rows.Count


For i = 1 To Rowsx
If i < 27 Then
InputRng.Cells(i, 1).Value = Chr(Start) & ". " & InputRng.Cells(i, 1).Value
Start = Start + 1
End If

roundupUnitcount = Application.WorksheetFunction.RoundUp(i / 26, 0) - 1
If Start > 90 Then
Start = Start - 26
End If
Double_Start = 64 + roundupUnitcount
If i > 26 Then
InputRng.Cells(i, 1).Value = Chr(Double_Start) & Chr(Start) & ". " & InputRng.Cells(i, 1).Value
InputRng.Cells(i, 2).Value = Start
Start = Start + 1
End If
Next i
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations