A sütununa verilen üst limit kadar sayı yazdıran VBA kodudur.
Option Explicit Sub ASutununaSirasiylaSayiYazdir() Dim i As Integer i = 1 Do While i <= 10 Cells(i, 1).Value = i i = i + 1 Loop End Sub