将汇总表中每一行人员信息在同一excel表中转换成每个人一张审批表(格式相同)如何用宏来实现自动化?

184 2023-12-27 19:47

在你编的宏里面利用以下循环,就可把2-336个表都填满

subliyoushang()

dimbod$

fori=2to336

bod="sheet"&i

sheets(bod).cells(1,1)=1

nexti‘此循环实现个把每个sheet里面的a1赋值为1:)

endsub

顶一下
(0)
0%
踩一下
(0)
0%
相关评论
我要评论
点击我更换图片