Hi I am not able to do alphabetic series in excel. etc A.......Z,AA,AB,AC

please help me out from this.

This is a really quick fix. but maybe some help to you.

Sub Alphabet()
Dim j As Integer
Dim k As Integer
Dim i As Integer

k = 1
For k = 0 To 10
j = 65
For i = (1 + (25 * k)) To (1 + (25 * k)) + 25
If k = 0 Then
Worksheets("Sheet1").Range("A" & i).Value = "=char(" & j & ")"
j = j + 1
Else
Worksheets("Sheet1").Range("A" & i).Value = "=char(" & (k + 64) & ") &
char(" & j & ")"
j = j + 1
End If
Next i
Next k
End Sub

To change how many series you have decrease / increase the k loop
Example - For k = 0 To 11

note: this will only go to ZZ


--
Jimbo1
------------------------------------------------------------------------
Jimbo1's Profile: http://www.excelforum.com/member.php...o&userid=30637
View this thread: http://www.excelforum.com/showthread...hreadid=562395

Sorry! it should be.


Sub Alphabet()
Dim j As Integer
Dim k As Integer
Dim i As Integer

k = 1
For k = 0 To 10
j = 65
For i = (1 + (26 * k)) To (1 + (26 * k)) + 25
If k = 0 Then
Worksheets("Sheet1").Range("A" & i).Value = "=char(" & j & ")"
j = j + 1
Else
Worksheets("Sheet1").Range("A" & i).Value = "=char(" & (k + 64) & ") &
char(" & j & ")"
j = j + 1
End If
Next i
Next k
End Sub


--
Jimbo1
------------------------------------------------------------------------
Jimbo1's Profile: http://www.excelforum.com/member.php...o&userid=30637
View this thread: http://www.excelforum.com/showthread...hreadid=562395

Like down a column?

I'd use this formula
=SUBSTITUTE(ADDRESS(1,ROW(A1),4),"1","")
and copy down.

Then I'd convert it to values (edit|copy, edit|paste special|values)

Pawan arora wrote:

Hi I am not able to do alphabetic series in excel. etc A.......Z,AA,AB,AC

please help me out from this.

--

Dave Peterson