Salt la conținutul principal

Cum se mărește automat litera cu una pentru a obține următoarea literă în Excel?

Presupunând că aveți o celulă conține litera AB, trebuie să măriți ultima literă cu una pentru a obține următoarea literă AC, AD ... și așa mai departe. Sau aveți o literă A și doriți să măriți litera la B, C ... pentru a crea o listă de litere. Cum se realizează? Acest articol vă poate ajuta în detalii.

Măriți litera AB cu una pentru a obține AC, AD ... cu formula
Măriți litera cu una pentru a obține lista de litere cu formula
Măriți litera cu una pentru a obține lista de litere cu funcția definită de utilizator


Măriți litera AB cu una pentru a obține AC, AD ... cu formula

Vă rugăm să faceți următoarele pentru a crește litera cu una în Excel.

1. Selectați o celulă goală sub litera dată, introduceți formula de mai jos în ea și apoi apăsați pe Intrați cheie. 

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

notițe: În formulă, A2 este celula conține litera dată.

2. Continuați să selectați A3, trageți mânerul de umplere în jos pentru a obține lista de litere de care aveți nevoie.


Măriți litera A cu una pentru a obține lista de litere cu formula

Aveți posibilitatea să utilizați = CHAR (COD (A1) +1) formula pentru a crește litera cu una în Excel. Vă rugăm să faceți următoarele.

1. Selectați o celulă goală sub litera dată, introduceți formula = CHAR (COD (A2) +1) în bara de formule și apoi apăsați tasta Intrați cheie. Vedeți captura de ecran:

2. Selectați celula de rezultat, trageți mânerul de umplere în jos pentru a obține litera de care aveți nevoie.

notițe: Cu această formulă, după ce obțineți litera Z, dacă continuați să trageți mânerul de umplere în jos, veți obține câteva caractere speciale, așa cum este prezentat mai jos. Dacă doriți să obțineți litera AA după Z, următoarea funcție definită de utilizator vă poate ajuta.


Măriți litera cu una pentru a obține lista de litere cu funcția definită de utilizator

Următoarea funcție definită de utilizator vă poate ajuta, de asemenea, să măriți litera cu una în Excel.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în Module fereastră.

Cod VBA: creșteți litera cu una pentru a obține lista de litere

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

3. presa Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

4. Selectați o celulă goală sub litera dată, introduceți formula = ColLtrs (ROW ()), apoi apăsați tasta Intrați cheie pentru a obține a doua literă.

2. Selectați celula de rezultat, trageți mânerul de umplere în jos pentru a obține litera de care aveți nevoie.

notițe: Cu această metodă, literele pe care le-ați crescut se bazează pe numărul rândului. Trebuie să începeți prima literă A în primul rând al foii de lucru, altfel, litera va deveni dezordonată.

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
is there any formula to increase or write ascending order like 1nc1, 1nc2, 1nc3.....
This comment was minimized by the moderator on the site
Hi,

To create an incrementing sequence like "1nc1", "1nc2", "1nc3", etc., in Excel, you can use a formula that leverages the row number to generate the numeric part of the sequence.

Assuming you want to start this sequence in cell A1, you would enter the following formula in A1:
="1nc" & ROW(A1)
Then, drag this formula down to the desired number of rows. Each cell will generate a part of the sequence based on its row number. For example, cell A2 will display “1nc2”, A3 will display “1nc3”, and so on.

The logic behind this formula is:
ROW(A1) returns the row number of cell A1, which is 1.
"1nc" & ROW(A1) concatenates the string “1nc” with the row number, creating “1nc1”.
This comment was minimized by the moderator on the site
I need a code to help make my rows from 1-A to 1-Z please
This comment was minimized by the moderator on the site
Hi Mayra Lopez,
The VBA code provided in the post is still helpful, but you need to apply the following formula to get the results you need:
="1-"&ColLtrs(ROW())
This comment was minimized by the moderator on the site
How would I create a formula that advances like this?:

AAAAAAAAA
AAAAAAAAB
AAAAAAAAC
AAAAAAAAD
etc.
This comment was minimized by the moderator on the site
Hi Willie B,
You can try the VBA code provided in the post. After adding the code, use this formula to get the result you need:
="AAAAAAAA"&ColLtrs(ROW())
This comment was minimized by the moderator on the site
I need a code for increasing my row cell values from AA-01-A01, AA-01-A02 to AA-01-B01, AA-01-B02. And I also need a code for my colomn cell values from AA-01-A01, AA-01-A02 to AA-03-A01, A-03-A02. Help.
This comment was minimized by the moderator on the site
I need a code from A-Z, AA-ZZ, AAA to ZZZ, AAAA to ZZZZ
This comment was minimized by the moderator on the site
Hi,Sorry can't help with this problem. You can post the problem to the forum below to get help from other Excel enthusiasts.
https://www.extendoffice.com/forum/kutools-for-excel.html 
This comment was minimized by the moderator on the site
How do I get it to start over at A when Z is used?
This comment was minimized by the moderator on the site
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))))
This comment was minimized by the moderator on the site
Thank you Zac for the letter sequence formula, saved me a ton load of work
This comment was minimized by the moderator on the site
Is there a way to do this for entire words? Where every letter in the word moves up by X number of characters
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
Everything man does is corrupt. Everything.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations