Eğer sorunuzu yanlış anlamadı isem bu sayı aralığı 1000-9999 arasındaki sayılardır. Buradan toplam 9000 adet sayı olduğunu bulabiliriz. Bu sayıların neler olduğunu göstermek içinde aşağıdaki gibi bir döngü kurulabilir.
[vb:1:60c49a5bee]sub listele()
for a=1000 to 9999
cells(a-999,"a")=a
next
end sub[/vb:1:60c49a5bee]