Note: The other languages of the website are Google-translated. Back to English

How to numbering the cells with alphabetical letters in Excel?

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

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

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!
officetab bottom
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
Leave your comments
Posting as Guest
Rate this post:
0   Characters
Suggested Locations