下面的代码将表1的a1:a10单元格分别填入1至10：
sub aa()
dim c as range,i as integer
i=1
for each c in sheets("sheet1").range("a1:a10")
c=i
i=i+1
next c
end sub
宏又称宏命令,它可以实现多个命令一键操作,减少工作量.
我的邮箱是bobiezhang@online.sh.cn,发个过来，把要求说清楚，否则写好的VBA也是浪费时间
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024