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. Выберите пустую ячейку под данной буквой, введите в нее приведенную ниже формулу и нажмите Enter ключ. 

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

Внимание: В формуле A2 - это ячейка, содержащая заданную букву.

2. Продолжая выбирать A3, перетащите маркер заполнения вниз, чтобы получить список нужных букв.


Увеличьте букву A на единицу, чтобы получить список букв с формулой

Вы можете использовать = СИМВОЛ (КОД (A1) +1) формула увеличения буквы на единицу в Excel. Пожалуйста, сделайте следующее.

1. Выберите пустую ячейку под данной буквой, введите формулу = СИМВОЛ (КОД (A2) +1) в панель формул, а затем нажмите Enter ключ. Смотрите скриншот:

2. Выберите ячейку результата, перетащите маркер заполнения вниз, чтобы получить нужную букву.

Внимание: С этой формулой, после получения буквы Z, если вы продолжаете перетаскивать маркер заполнения вниз, вы получите некоторые специальные символы, как показано на скриншоте ниже. Если вы хотите, чтобы после Z была буква AA, вам может помочь следующая пользовательская функция.


Увеличьте букву на единицу, чтобы получить список букв с пользовательской функцией

Следующая определяемая пользователем функция также может помочь вам увеличить букву на единицу в 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 (СТРОКА ()), а затем нажмите Enter ключ, чтобы получить вторую букву.

2. Выберите ячейку результата, перетащите маркер заполнения вниз, чтобы получить нужную букву.

Внимание: При использовании этого метода буквы, которые вы увеличиваете, зависят от номера строки. Вам нужно начать с первой буквы A в первой строке рабочего листа, иначе буква будет беспорядочной.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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)