Skip to main content

How to numbering the cells with alphabetical letters in Excel?

Author: Sun Last Modified: 2018-09-10

In Excel, we can numbering the cells with number series such as 1, 2, 3… by using the autofill handle , but how can you numbering cells with alphabetical letters A, B, C…? In this tutorial, I introduce some ways to handle this job in Excel.

Numbering cells with alphabetical letter with formula

Numbering cells with alphabetical letter with VBA code

Numbering cells with with Kutools for Excelgood idea3

Insert multiple bullets or numberings in a range

In Excel, you need to insert the bullets or numbering one by one, but with this handy tool, Kutools for Excel's Insert Bullet and Insert Nmbering utilities, you can quickly insert bullets or numbering
to the selected cells at once..  Click for 60 days free trial!
doc insert bullet numbering
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days.

Numbering cells with alphabetical letter with formula

1. Type all letters you want to use to numbering cell in a list next to the cells you want to numbering.
doc numbering with letter 1

If you have Kutools for Excel, the Fill Custom Lists utility supports you to create a list from a range, then you can insert the new list at anywhere as you need without retype them one by one.  Click for 60 days free trial!
doc numbering with letter 2

2. Select a cell which is adjacent to the letters and cell contents you want to numbering, type this formula =A1&"."&B1, drag fill handle down to fill the formula to all cells you need.
doc numbering with letter 3

Numbering cells with alphabetical letter with VBA code

If you are familiar with macro codes, you can do as these:

1. Press Alt + F11 keys to enable Microsoft Visual Basic for Applications window. Click Insert > Module.

2. Copy and paste below code to the Module script.

VBA: numbering with A

Sub Prefix_A()
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
Application.ScreenUpdating = True
End Sub

3. Then repeat paste the code and change A to B or C or D as you need.
doc numbering with letter 4

4. Save the code and close the Microsoft Visual Basic for Applications window.

5. Select the cells you want to numbering with A, and click Developer > Macros.
doc numbering with letter 5

6. In Macro dialog, select the code Prefix_A and click Run.
doc numbering with letter 6

7. Selection have been numbered with A.
doc numbering with letter 7

8. Repeat step 5 and 6 to numbering the cells with specific letter as you need.

Numbering cells with Kutools for Excel

If you have Kutools for Excel, you can quickly numbering cells.

Kutools for Excel, with more than 200 handy functions, makes your jobs easier. 

After installing Kutools for Excel, please do as below:(Free Download Kutools for Excel Now!)

Select the cells you want to numbering, then click Kutools > Insert > Insert Numbering, select one type you need.
doc numbering with letter 8

Then the cells have been added numbering.
doc numbering with letter 9

Tabbed browsing & editing multiple Excel workbooks/Word documents as Firefox, Chrome, Internet Explore 10!

You may be familiar to view multiple webpages in Firefox/Chrome/IE, and switch between them by clicking corresponding tabs easily. Here, Office Tab supports similar processing, which allow you to browse multiple Excel workbooks or Word documents in one Excel window or Word window, and easily switch between them by clicking their tabs. Click for free 30-day trial of Office Tab!

ot excel

Best Office Productivity Tools

🤖 Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions
Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ...
Super Lookup: Multiple Criteria VLookup    Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |   Big Formula Bar    Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells    Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...


Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
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