Uwaga: inne języki witryny są przetłumaczone przez Google. Powrót do angielskiego
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

Jak automatycznie zwiększyć literę o jedną, aby uzyskać następną literę w programie Excel?

Przypuśćmy, że komórka zawiera literę AB, musisz zwiększyć ostatnią literę o jedną, aby otrzymać następną literę AC, AD… i tak dalej. Albo masz literę A i chcesz zwiększyć literę do B, C… w celu utworzenia listy liter. Jak to osiągnąć? Ten artykuł może pomóc w szczegółach.

Zwiększ literę AB o jeden, aby uzyskać AC, AD… ze wzorem
Zwiększ literę o jeden, aby uzyskać listę liter z formułą
Zwiększ literę o jeden, aby uzyskać listę liter z funkcją zdefiniowaną przez użytkownika


Zwiększ literę AB o jeden, aby uzyskać AC, AD… ze wzorem

Wykonaj następujące czynności, aby zwiększyć literę o jedną w programie Excel.

1. Wybierz pustą komórkę pod daną literą, wprowadź do niej poniższą formułę, a następnie naciśnij wchodzić klawisz. 

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

Uwagi: We wzorze A2 to komórka zawierająca daną literę.

2. Kontynuuj wybieranie A3, przeciągnij uchwyt wypełnienia w dół, aby uzyskać listę potrzebnych liter.


Zwiększ literę A o jeden, aby uzyskać listę liter z formułą

Możesz użyć = ZNAK (KOD (A1) +1) formuła zwiększania litery o jedną w programie Excel. Wykonaj następujące czynności.

1. Wybierz pustą komórkę pod daną literą, wprowadź formułę = ZNAK (KOD (A2) +1) do paska formuły, a następnie naciśnij wchodzić klucz. Zobacz zrzut ekranu:

2. Wybierz komórkę wynikową, przeciągnij uchwyt wypełnienia w dół, aby uzyskać potrzebną literę.

Uwagi: Z tą formułą, po otrzymaniu litery Z, jeśli będziesz ciągnąć uchwyt wypełnienia w dół, otrzymasz kilka znaków specjalnych, jak pokazano na zrzucie ekranu. Jeśli chcesz otrzymać literę AA po Z, może Ci pomóc następująca funkcja zdefiniowana przez użytkownika.


Zwiększ literę o jeden, aby uzyskać listę liter z funkcją zdefiniowaną przez użytkownika

Następująca funkcja zdefiniowana przez użytkownika może również pomóc w zwiększaniu litery o jedną w programie Excel.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do pliku Moduł okno.

Kod VBA: zwiększ literę o jeden, aby uzyskać listę liter

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

3. naciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

4. Wybierz pustą komórkę pod daną literą, wprowadź formułę = ColLtrs (WIERSZ ()), a następnie naciśnij wchodzić klucz, aby otrzymać drugą literę.

2. Wybierz komórkę wynikową, przeciągnij uchwyt wypełnienia w dół, aby uzyskać potrzebną literę.

Uwagi: W przypadku tej metody dodane litery są oparte na numerze wiersza. Musisz zacząć pierwszą literę A w pierwszym rzędzie arkusza, w przeciwnym razie litera zostanie nieuporządkowana.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Prevent Duplicate Cells; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
kte tab 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszą każdego dnia!
officetab dół
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)