How can I fill alphabetic series in excel
Hi I am not able to do alphabetic series in excel. etc A.......Z,AA,AB,AC
please help me out from this. |
How can I fill alphabetic series in excel
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 |
How can I fill alphabetic series in excel
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 |
How can I fill alphabetic series in excel
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 |
All times are GMT +1. The time now is 12:59 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com