Sub test() Dim i As Integer '声明i是整数变量 For i = 1 To 10 '循环1到10 Cells(i, 1) = i '赋值 NextEnd Sub
dim a(1 to 10) as longdim i as longfor i = 1 to 10 a(i)=inext
For I = 1 To 10 Cells(I, 1) = INext I