Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrace  \/ 
x

or

Jak automaticky zvýšit písmeno o jedno, aby bylo možné získat další písmeno v aplikaci Excel?

Předpokládejme, že buňka obsahuje písmeno AB, musíte zvýšit poslední písmeno o jedno, abyste získali další písmeno AC, AD… atd. Nebo máte písmeno A a chcete zvětšit písmeno na B, C…, abyste vytvořili seznam písmen. Jak toho dosáhnout? Tento článek vám může pomoci podrobně.

Zvětšete písmeno AB o jednu, abyste získali AC, AD ... pomocí vzorce
Zvětšete písmeno o jednu, abyste získali seznam písmen se vzorcem
Zvětšete písmeno o jednu a získáte seznam písmen s funkcí definovanou uživatelem


Zvětšete písmeno AB o jednu, abyste získali AC, AD ... pomocí vzorce

Chcete-li v aplikaci Excel zvýšit písmeno o jedno, postupujte následovně.

1. Vyberte prázdnou buňku pod daným písmenem, zadejte do ní následující vzorec a stiskněte vstoupit klíč. 

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

Poznámka: Ve vzorci je A2 buňka obsahující dané písmeno.

2. Pokračujte ve výběru A3, přetáhněte rukojeť výplně dolů a získejte seznam požadovaných písmen.


Zvětšete písmeno A o jeden, abyste získali seznam písmen se vzorcem

Můžete použít = CHAR (KÓD (A1) +1) vzorec pro zvýšení písmene o jeden v aplikaci Excel. Postupujte prosím následovně.

1. Vyberte prázdnou buňku pod daným písmenem a zadejte vzorec = CHAR (KÓD (A2) +1) do řádku vzorců a poté stiskněte vstoupit klíč. Viz snímek obrazovky:

2. Vyberte buňku výsledku a přetáhněte rukojeť výplně dolů, abyste získali písmeno, které potřebujete.

Poznámka: S tímto vzorcem, po získání písmene Z, pokud stále táhnete Fill Handle dolů, dostanete některé speciální znaky, jak je uvedeno níže. Pokud chcete získat písmeno AA po Z, může vám pomoci následující funkce definovaná uživatelem.


Zvětšete písmeno o jednu a získáte seznam písmen s funkcí definovanou uživatelem

Následující uživatelsky definovaná funkce vám také pomůže v aplikaci Excel zvýšit písmeno o jedno.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do Modul okno.

Kód VBA: Chcete-li získat seznam dopisů, zvyšte písmeno o jednu

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

3. lis Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

4. Vyberte prázdnou buňku pod daným písmenem a zadejte vzorec = ColLtrs (ROW ()), a poté stiskněte tlačítko vstoupit klíč k získání druhého písmene.

2. Vyberte buňku výsledku a přetáhněte rukojeť výplně dolů, abyste získali písmeno, které potřebujete.

Poznámka: U této metody jsou písmena, která jste zvětšili, založena na čísle řádku. Musíte začít první písmeno A v prvním řádku listu, jinak bude písmeno neuspořádané.


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
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
    Screenshot?
    I think he explained it succinctly.
  • 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.
    Me · 1 years ago
    @Harold McBroom Everything man does is corrupt. Everything.
  • To post as a guest, your comment is unpublished.
    Me · 1 years ago
    Yeah Dan! DAH!
    You seem to assume we're all brainiacs like you Dan.
    You can't possibly expect us to wrap our heads around what you mean without screenshots! Wow!
  • 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.
    crystal · 2 years ago
    @afzalss 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.
    crystal · 2 years ago
    @Afzal 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.
    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.
    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.
    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.
    cdarzur · 3 years ago
    @cdarzur Found the answer. Thank you.
    =LEFT(B1,4)&"_"&CHAR(CODE(RIGHT(B1,1))+1)
  • 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