# Microsoft Office Excel: Alphabetic Numberings on cells

Published Sat, May 6 2006 4:17

Let's give Masking a break today. And yes, we will be talking about Microsoft Office Excel today. Just this afternoon, my supervisor requested for a solution on adding alphabetic numbering on a row instead of numbers (e.g. A-Z on row 1). Let's say if you want to number 1 - 10 on row 1, you can simply drag to cells to expand series. But this is not possible with alphabets.

Figure 1: Numbering cells with alphabets horizontally.

Figure 2: Numbering cells with alphabets vertically.

So here's a quick way you can try it out. We will need to make use of the first 3 rows for this.

First, type 65 in A1, 66 in B1.
Highlight the two cells, then drag to extend series (e.g. 65, 66, 67, 68…).
Now on A2, use the char function.
The char function returns the character specified by a number. So char(65) will represent A, while char(90) will give you Z.
Type this function: “=char(A1)”.
Drag A2 to extend series.
We are not finished yet! You can't delete the the numberings (e.g. 65, 66, 67, 68...) just like that. If you do, it will result in an error in value.
So here's what you should do next. Highlight the alphabets, then right click and select copy.
Click on A3 now, and click Edit > Paste Special > Values.
By doing so, we will remove the formulas while retaining the values.
Ok your way out.
Finally, delete the 1st and 2nd rows.

Alternately, if you are lazy to do that, here's a macro that you can try. To use the macro, click Tools > Macro > Visual Basic Editor.
Right click on the VBAProject, then select Insert > Module.
Paste the code below and exit.
After which, move the entire row, which has been automatically selected for you, to anywhere on the excel worksheet.

```Sub alphabeticCellNumberings()

Range("A1").Select

ActiveCell.FormulaR1C1 = "A"

Range("B1").Select

ActiveCell.FormulaR1C1 = "B"

Range("C1").Select

ActiveCell.FormulaR1C1 = "C"

Range("D1").Select

ActiveCell.FormulaR1C1 = "D"

Range("E1").Select

ActiveCell.FormulaR1C1 = "E"

Range("F1").Select

ActiveCell.FormulaR1C1 = "F"

Range("G1").Select

ActiveCell.FormulaR1C1 = "G"

Range("H1").Select

ActiveCell.FormulaR1C1 = "H"

Range("I1").Select

ActiveCell.FormulaR1C1 = "I"

Range("J1").Select

ActiveCell.FormulaR1C1 = "J"

Range("K1").Select

ActiveCell.FormulaR1C1 = "K"

Range("L1").Select

ActiveCell.FormulaR1C1 = "L"

Range("M1").Select

ActiveCell.FormulaR1C1 = "M"

Range("N1").Select

ActiveCell.FormulaR1C1 = "N"

Range("O1").Select

ActiveCell.FormulaR1C1 = "O"

Range("P1").Select

ActiveCell.FormulaR1C1 = "P"

Range("Q1").Select

ActiveCell.FormulaR1C1 = "Q"

Range("R1").Select

ActiveCell.FormulaR1C1 = "R"

Range("S1").Select

ActiveCell.FormulaR1C1 = "S"

Range("T1").Select

ActiveCell.FormulaR1C1 = "T"

Range("U1").Select

ActiveCell.FormulaR1C1 = "U"

Range("V1").Select

ActiveCell.FormulaR1C1 = "V"

Range("W1").Select

ActiveCell.FormulaR1C1 = "W"

Range("X1").Select

ActiveCell.FormulaR1C1 = "X"

Range("Y1").Select

ActiveCell.FormulaR1C1 = "Y"

Range("Z1").Select

ActiveCell.FormulaR1C1 = "Z"

Range("A1", "Z1").Select

End Sub
```

If you have a better and easier solution, feel free to share with us here!

# bc said on Friday, November 03, 2006 9:36 AM

you could just make an Alphabetic custom list one time, under Tools->Options->Custom Lists

lot easier than the formulas/copy/paste or a macro.

# kleistico said on Friday, November 03, 2006 6:04 PM

Enter formula =RIGHT(LEFT(CELL("address",A1),2),1) in A1, copy it to cells B1:Z1, copy, edit- paste special- values. Then move it to wherever you need it.

# Bob said on Tuesday, October 23, 2007 10:25 AM

Use the formula: =char(row())

# Don said on Friday, June 24, 2011 3:58 PM

To start at A

use formula: =char(row(A65))

# Don said on Friday, June 24, 2011 4:00 PM

Then fill down as far as you want to go

(required)
(required)
(optional)
(required)

Enter the numbers above: