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

or

Πώς να αυξήσετε αυτόματα ένα γράμμα για να λάβετε το επόμενο γράμμα στο Excel;

Ας υποθέσουμε ότι έχετε ένα κελί που περιέχει το γράμμα AB, πρέπει να αυξήσετε το τελευταίο γράμμα ένα για να πάρετε το επόμενο γράμμα AC, AD… και ούτω καθεξής. Ή έχετε ένα γράμμα A και θέλετε να αυξήσετε το γράμμα σε B, C… για να δημιουργήσετε μια λίστα επιστολών. Πώς να το πετύχετε; Αυτό το άρθρο μπορεί να σας βοηθήσει λεπτομερώς.

Αυξήστε το γράμμα AB κατά ένα για να λάβετε AC, AD… με τον τύπο
Αυξήστε το γράμμα ένα για να λάβετε τη λίστα επιστολών με τον τύπο
Αυξήστε ένα γράμμα για να λάβετε τη λίστα επιστολών με τη λειτουργία που ορίζεται από το χρήστη


Αυξήστε το γράμμα AB κατά ένα για να λάβετε AC, AD… με τον τύπο

Κάντε τα εξής για να αυξήσετε ένα γράμμα στο Excel.

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

=IF(RIGHT($A2,1)="Z", CHAR(CODE(LEFT(A2,1))+1),LEFT(A2,1))&CHAR(65+MOD(CODE(RIGHT(A2,1))+1-65,26))

Note: Στον τύπο, το A2 είναι το κελί που περιέχει το δεδομένο γράμμα.

2. Συνεχίστε την επιλογή A3, σύρετε τη λαβή πλήρωσης προς τα κάτω για να λάβετε τη λίστα των γραμμάτων που χρειάζεστε.


Αυξήστε το γράμμα A κατά ένα για να λάβετε τη λίστα επιστολών με τον τύπο

Μπορείτε να χρησιμοποιήσετε το = CHAR (ΚΩΔΙΚΟΣ (A1) +1) τύπος για αύξηση της επιστολής κατά ένα στο Excel. Κάντε τα εξής:

1. Επιλέξτε ένα κενό κελί κάτω από το δεδομένο γράμμα, εισαγάγετε τον τύπο = CHAR (ΚΩΔΙΚΟΣ (A2) +1) στη γραμμή τύπων και, στη συνέχεια, πατήστε το εισάγετε κλειδί. Δείτε το στιγμιότυπο οθόνης:

2. Επιλέξτε το κελί αποτελεσμάτων, σύρετε τη λαβή πλήρωσης προς τα κάτω για να λάβετε το γράμμα που χρειάζεστε.

Note: Με αυτόν τον τύπο, αφού λάβετε το γράμμα Z, εάν συνεχίσετε να σύρετε το Fill Handle προς τα κάτω, θα λάβετε μερικούς ειδικούς χαρακτήρες όπως φαίνεται παρακάτω. Εάν θέλετε να λάβετε το γράμμα AA μετά το Z, η ακόλουθη λειτουργία που καθορίζεται από το χρήστη μπορεί να σας βοηθήσει.


Αυξήστε ένα γράμμα για να λάβετε τη λίστα επιστολών με τη λειτουργία που ορίζεται από το χρήστη

Η παρακάτω συνάρτηση που καθορίζεται από το χρήστη μπορεί επίσης να σας βοηθήσει να αυξήσετε ένα γράμμα στο Excel.

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Αυξήστε ένα γράμμα για να λάβετε τη λίστα επιστολών

Function ColLtrs(i As Long) As String
    ColLtrs = Replace(Cells(1, i).Address(False, False), "1", "")
End Function

3. Τύπος άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

4. Επιλέξτε ένα κενό κελί κάτω από το δεδομένο γράμμα, εισαγάγετε τον τύπο = ColLtrs (ROW ()), και στη συνέχεια πατήστε το εισάγετε κλειδί για να λάβετε το δεύτερο γράμμα.

2. Επιλέξτε το κελί αποτελεσμάτων, σύρετε τη λαβή πλήρωσης προς τα κάτω για να λάβετε το γράμμα που χρειάζεστε.

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


Τα καλύτερα εργαλεία παραγωγικότητας του 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.
    brickh7777@gmail.com · 1 years ago
    How do I get it to start over at A when Z is used?
  • To post as a guest, your comment is unpublished.
    Zac · 2 years ago
    This code will allow you to go from A to ZZ.

    =IF(B2="Z","AA",IF(LEN(B2)=1,CHAR(CODE(B2)+1),IF(RIGHT(B2,1)="Z",CHAR(CODE(LEFT(B2,1))+1),LEFT(B2,1))&CHAR(65+MOD(CODE(RIGHT(B2,1))+1-65,26))))
  • To post as a guest, your comment is unpublished.
    Dan · 2 years ago
    Is there a way to do this for entire words? Where every letter in the word moves up by X number of characters
  • To post as a guest, your comment is unpublished.
    Harold McBroom · 2 years ago
    Excel was the spreadsheet that superseded Lotus 1-2-3, and having been around that long, you would think that geniuses at Microsoft would have created a more simple means of retrieving a cells column number, without having to write your own function. Back in 2001, 2002 when I was programming in VBA there were only 65536 rows in an Excel spreadsheet, now the number has increased to a ridiculous 1.4 million rows. It's not how big the database is that counts, but how intelligent you manage the data on your hard drive, when accessing that data through Excel.

    If that doesn't make you upset, then the Bankers Rounding scheme used by Excel should finish the job! We were taught math in school, basic rounding, come to find out, the Bankers "guild" wants to determine how cash amounts are rounded to better cater to their advantages. For instance, 1.5 is either closer to 1 or 2, but is rounded up to 2, being the even number. 0.5 is either closer to 0 or 1, but being the odd number, they round it down to 0. The entire system is corrupt, and they create the business software used by American businesses.



    I read a comment below the one I'm addressing, and someone basically said, "I have a lot of banker friends, and they never heard of Bankers Rounding; They say they used a method called "5 Step Rounding" in the EU. So does that mean the Bankers Rounding is used only in the sabotage of the American Economy, but not good enough to ruin the European Economy that's trying to take over the world?! These money changers never cease to amaze me at how far they will go in their arrogance!
    • To post as a guest, your comment is unpublished.
      Me · 1 years ago
      Everything man does is corrupt. Everything.
  • To post as a guest, your comment is unpublished.
    afzalss · 3 years ago
    Dear Sir
    When I run the function =ColLtrs(ROW()) in an excel sheet, I get perfect results, but if I want to call this function or cell value in VBA, then is it possible. So my variable could be i with values 1,2,3,4,....27,28, etc and result should be A,B,C,D....,AA,AB and so on. Is it possible?
    Thanks
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi,
      Please select the number cells and run the below code to solve the problem.

      Sub NumTOAZ()
      Dim xRg As Range
      Dim xStr As String
      On Error Resume Next
      For Each xRg In Selection
      xStr = Replace(Cells(1, xRg.Value).Address(False, False), "1", "")
      xRg.Value = xStr
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    Afzal · 3 years ago
    the formula =ColLtrs(ROW()) works perfectly well in an excel cell, I need to use the same inside a VBA to give me result from A to Z then AA to AZ and so on. If I use CHAR in VBA it has limitation to go only till Z.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi,
      Way not keep using the VBA code? The above VBA code can create letters from A to Z then AA to AZ and so on to meet your needs.
  • To post as a guest, your comment is unpublished.
    cdarzur · 3 years ago
    thank you for the above. But what if you want to increment from 400_A to 400_B? I tried a few things but I can only make it work with numbers.
    Thanks
    • To post as a guest, your comment is unpublished.
      cdarzur · 3 years ago
      Found the answer. Thank you.
      =LEFT(B1,4)&"_"&CHAR(CODE(RIGHT(B1,1))+1)