Rakamları sıralama

[burculuburculu]

Selam arkadaslar bir sutunda aşağıdaki gibi 500 satırlık bir yazı kodu var ben onların icindeki rakamları otomatik 78
79
80
81
şeklinde sırayla sıralanmasını istiyorum. şuanda hepsininin icinde78 yazıyor. Bu işlemi nasıl düzeltebilirim ?



<rule name="78">
<rule name="78">
<rule name="78">
<rule name="78">
<rule name="78">
<rule name="78">
<rule name="78">
<rule name="78">

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim i%, basla%
    basla = Application.[COLOR="Red"]InputBox[/COLOR]("Başlanacak rakamı girin.", "[SIZE="1"][URL="http://www.muratosma.com"]Www.MuratOSMA.Com[/URL][/SIZE]")
    For i = 1 To Range("A65536").End(3).Row
        Cells(i, 1).Value = "<rule name=""" & basla & """>"
        basla = basla + 1
    Next i
    basla = Empty: i = Empty
End Sub[/SIZE][/FONT]