Microsoft Office Excel: Alphabetic Numberings on cells

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 1^st and 2^nd 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