求大神指点将数据复制到对应模板中

18600972079

求助各位啦，真的是想的脑袋疼~
   主要是按明细表中公司名将对应数据填到模板标黄位置中（能生成以公司名命名的sheet文件最好了）还有个问题就是模板中数据列8-9列只有两列有的公司不够用要根据明细表数据自动填行
  下面是我自己搜索的，能实现按明细表每列自动填入模板自动打印，缺点就是不能把公司名称一样的数据填到一个模板中

sub ()
    dim arr,i,t

    arr=sheets("明细表").usedrange

    for i=2 to ubound(arr)

        with sheets("结算单模板")

'赋值，关键是下面的这句，其中的a2,3表示把【线上佣金汇总表】表第1列的内容填入【结算单模板】表的a2单元格，凡是需要填的地方都要这样一对一对的写到下面的行
for each t in array(array("b3",4), array("b5",3), array("a8",1), array("b8",2), array("c8",7), array("d8",6), array("e8",8), array("f8",9), array("g8",11), array("h8",10))
.range(t(0)) = arr(i, t(1))
next t
            .printout '打印输出【模板】表，如果需要选中打印机、设置打印性等，可以修改代码（录制来改）或者先设定好

        end with

    next i

end sub
}

gwjkkkkk

附件呢。。。

zhanglei1371

发错板块了