使用VBA结合高级筛选的方法将总表按某列数据分表

lele2000

小弟是一名仓管收发员，平时工作中不会用到Excel，对Excel也是业余研究懂的不多，某月初看到办公室同事用手工在做分表工作感觉效率太低于时想到用宏来解决。不会用数据透视表大家见笑了。
结果是做出来了不过可能用的for循环太多效率太低，运行起来太耗时。
哪位高手能精简下以提高效率不胜感激，代码写的也不规范请见谅。
详见附件。
对不起，我重新上传了附件，里面有我想要的结果：其中sheet1是要处理的总表，“客户”是一个临时表，后面是表是处理结果。
我的方法是这样：先建一个临时“客户”表，然后用高级筛选的办法从sheet1中“购货单位”中将客户放到“客户”表A列中，然后用这A列的结果用一个循环来建各个表，各个表的结果也是用高级筛选的办法得到，然后再处理各表，比如添加表头，删除无用列，计算每个商品的总实发数量，设打印格式等等。
如果分表太少可能用的时间不多，不过分表一多的话那速度真的太慢。昨晚想了一下，一开始就应在总表删除无用字段这样速度应能快了，当初想到的是反正分表的“购货单位”也要删除不如直接一下处理。另外就是计算每个商品的总实发数量这些代码写得太罗嗦，应有更好的方法。
不过结果并不重要，可能他们不会相信我这个宏，还是宁愿相信自己的手工，他们爱用不用吧。重要的是我写这个宏学了很多东西也感受到Excel的无穷魅力。

[ 本帖最后由 lele2000 于 2010-8-11 14:58 编辑 ]

dsmch

直接说明要求，手工做几个结果示意一下，不要让大家猜代码。

lzyamo3057

你的代码进行了很多项的工作，所以会慢点，不过还好吧。