Sub test() VBA新手，为什么这个程序会把1到100的值返回到单元格A1：A100，一直想不明白？Di End Sub

Sub test()
Dim c As Range, i As Integer
i = 1
For Each c In Range("a1:a10")
c.Value = i
i = i + 1
Next
End Sub

Sub test()
'第一句,定义变量 c为range 对象,i 为整数型
Dim c As Range, i As Integer
'给变量i赋初值为1
i = 1
'下面开始循环单元格a1:a10这个区域
For Each c In Range("a1:a10")
'给单元格赋值
c.Value = i
'变量i累加 程序第一次运行到这里时 i = 1 运行完后 i=i+1 也就是 i=2
i = i + 1
Next

End Sub

哪里不明白？

其实你已经举得差不多了，下面的也只是变形： range(cells(1,1), cells(100,1)) 如果获取a1周围一块的空间，可以： range("a1").currentregion 如果获取表内所有使用区域，可以： activesheet.usedrange

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息