Прескочи на основното съдържание

Как да номерирате клетките с азбучни букви в Excel?

Автор: Слънце Последна промяна: 2018-09-10

В Excel можем да номерираме клетките с числови серии като 1, 2, 3… с помощта на манипулатора за автоматично попълване, но как можете да номерирате клетки с азбучни букви A, B, C…? В този урок представям някои начини за справяне с тази задача в Excel.

Номериране на клетки с азбучна буква с формула

Номериране на клетки с азбучна буква с VBA код

Номериране на клетки с с Kutools за Excelдобра идея3


Вмъкване на множество куршуми или номерации в бяганеge

В Excel трябва да вмъкнете водещите точки или номерирането един по един, но с този удобен инструмент, Kutools за Excel's Вмъкване на куршум намлява Въведете Nmbering помощни програми, можете бързо да вмъкнете водещи символи или номериране
към избраните клетки наведнъж..  Кликнете за 60 дни безплатен пробен период!
doc вмъкнете номерация на водещи символи
 
Kutools за Excel: с повече от 200 удобни добавки за Excel, безплатни за изпробване без ограничение за 60 дни.

Номериране на клетки с азбучна буква с формула

1. Въведете всички букви, които искате да използвате за номериране на клетка в списък до клетките, които искате да номерирате.
номерация на документа с буква 1

Ако имате Kutools за Excel- Попълнете персонализирани списъци помощната програма ви помага да създадете списък от диапазон, след което можете да вмъкнете новия списък където и да е необходимо, без да ги въвеждате повторно един по един.  Кликнете за 60 дни безплатен пробен период!
номерация на документа с буква 2

2. Изберете клетка, която е в съседство с буквите и съдържанието на клетките, които искате да номерирате, въведете тази формула =A1&"."&B1, плъзнете манипулатора за попълване надолу, за да попълните формулата до всички клетки, от които се нуждаете.
номерация на документа с буква 3


Номериране на клетки с азбучна буква с VBA код

Ако сте запознати с макрокодовете, можете да направите следното:

1. Натиснете Alt + F11 ключове за активиране Microsoft Visual Basic за приложения прозорец. Кликнете Поставете > Модули.

2. Копирайте и поставете кода по-долу в Модули скриптове.

VBA: номериране с A

Sub Prefix_A()
'UpdatebyExtendoffice20180828
Dim xRg As Range
Dim xStrPrefix As String
xStrPrefix = "A."
On Error Resume Next
Application.ScreenUpdating = False
For Each xRg In Selection
    If xRg.Value <> "" Then
        xRg.Value = xStrPrefix & xRg.Value
    End If
Next
Application.ScreenUpdating = True
End Sub

3. След това повторете поставете кода и променете A на B или C или D според нуждите.
номерация на документа с буква 4

4. Запазете кода и затворете Microsoft Visual Basic за приложения прозорец.

5. Изберете клетките, които искате да номерирате с A, и щракнете Софтуерен Инженер > Макроси.
номерация на документа с буква 5

6. В Макро изберете кода Префикс_А и кликнете бягане.
номерация на документа с буква 6

7. Селекцията е номерирана с А.
номерация на документа с буква 7

8. Повторете стъпка 5 и 6, за да номерирате клетките с конкретна буква, както е необходимо.


Номериране на клетки с Kutools за Excel

Ако имате Kutools за Excel, можете бързо да номерирате клетки.

Kutools за Excel, с повече от 200 удобни функции, улеснява работата ви. 

След инсталиране Kutools за Excel, моля, направете следното:(Безплатно изтегляне Kutools за Excel сега!)

Изберете клетките, които искате да номерирате, след което щракнете Kutools > Поставете > Поставете номерация, изберете един вид, от който се нуждаете.
номерация на документа с буква 8

След това клетките са добавени номерирани.
номерация на документа с буква 9

Сърфиране с раздели и редактиране на множество работни книги на Excel/документи на Word като Firefox, Chrome, Internet Explore 10!

Може да сте запознати да преглеждате множество уеб страници във Firefox/Chrome/IE и да превключвате между тях, като лесно щраквате върху съответните раздели. Тук Office Tab поддържа подобна обработка, която ви позволява да преглеждате множество работни книги на Excel или документи на Word в един прозорец на Excel или прозорец на Word и лесно да превключвате между тях, като щраквате върху техните раздели. Кликнете безплатно 30-дневна пробна версия на Office Tab!

от ексел

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sub Alphabetic_Numbering()
Dim InputRng As Range, Start As Integer, Cell As Range, Start1 As Integer, Rowsx As Integer, Double_Start As Integer
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range", xTitleId, InputRng.Address, Type:=8)

Start = 65
Rowsx = InputRng.Rows.Count


For i = 1 To Rowsx
If i < 27 Then
InputRng.Cells(i, 1).Value = Chr(Start) & ". " & InputRng.Cells(i, 1).Value
Start = Start + 1
End If

roundupUnitcount = Application.WorksheetFunction.RoundUp(i / 26, 0) - 1
If Start > 90 Then
Start = Start - 26
End If
Double_Start = 64 + roundupUnitcount
If i > 26 Then
InputRng.Cells(i, 1).Value = Chr(Double_Start) & Chr(Start) & ". " & InputRng.Cells(i, 1).Value
InputRng.Cells(i, 2).Value = Start
Start = Start + 1
End If
Next i
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations