a001 den a999 a listeleme

[Miras7]

iyi akşamlar arkadaşlar..
ben fazla uğraşmadan şöyle bişi yapmak istiyorum
a001 den a999 a listelemek istiyorum
mesala
a001
a002
a003
a999 a kadar biitikden sonra
b001
b002
b003
b999 diye devam edicem ve z de bitircem yanı rakamlar sabit kalıcak ama harfleri degiştirebilicem bunu en kolay yoldan nasıl yapabilirim
teşekkürler..

 

[Miras7]

teşekkürler arkadaşlar buldum..

 

[Orion1]

A sütununa çıkarır.

Sub numara()
Dim harfler(), i As Long, k As Byte, sat As Long
Application.ScreenUpdating = False
Range("A:A").ClearContents
sat = 1
harfler = Array("", "a", "b", "c", "d", "e", "f", "h", "ı", "i", "j", "k", "l", "m", "n", _
"o", "p", "r", "s", "t", "u", "v", "y", "z")
For k = 1 To 23
    For i = 1 To 999
        Cells(sat, "A").Value = harfler(k) & Format(i, "000")
        sat = sat + 1
    Next i
Next k
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır."

End Sub