求助一个能自动生成汇总表的代码

xiangbaoan

财知道 发表于 2018-8-17 08:14
找到送花了，小白一个，不要笑话啊，　加个好友，新手请多关照

你原来的，中间有空行，现在的没有了，今后你要保证中间不留空行，且后面是领导审批内容，不然有一条数据统计不到。
正要回复，突然停电~~

财知道

lsc900707 发表于 2018-8-17 08:31
将代码   For r = 4 To UBound(ar) 改为：For r = 4 To UBound(ar) - 1就好！

完美，谢谢。如果想要那个导出数据表的名字能自己输入的话可以吗

lsc900707

财知道 发表于 2018-8-17 11:23
完美，谢谢。如果想要那个导出数据表的名字能自己输入的话可以吗

当然可以，自己尝试修改一下嘛。

财知道

lsc900707 发表于 2018-8-17 11:31
当然可以，自己尝试修改一下嘛。

也对哦，决定试下

财知道

xiangbaoan 发表于 2018-8-17 08:42
你原来的，中间有空行，现在的没有了，今后你要保证中间不留空行，且后面是领导审批内容，不然有一条数据 ...

哈哈，明白，

财知道

xiangbaoan 发表于 2018-8-17 08:42
你原来的，中间有空行，现在的没有了，今后你要保证中间不留空行，且后面是领导审批内容，不然有一条数据 ...

我决定试下能不能在代码里加些打印设置，自己输入生成表名的，如果不行再请大侠帮忙哈

财知道

xiangbaoan 发表于 2018-8-17 08:42
你原来的，中间有空行，现在的没有了，今后你要保证中间不留空行，且后面是领导审批内容，不然有一条数据 ...

要是有空行咋办吆

xiangbaoan

财知道 发表于 2018-8-17 11:42
要是有空行咋办吆

有空行就用原来的；无空行有后来的，它们的区别只有2个字符：
for r= 4 to ubound(ar)  '此句适用于有空行
for r= 4 to ubound(ar)-1  '此句适用于无空行
均要求它们的后面一行是有领导审批什么什么的，
我说，盆友 ，Are you 明白 ?

后面为补充：
可以做一个通用的，不想搞了！！

财知道

xiangbaoan 发表于 2018-8-17 11:58
有空行就用原来的；无空行有后来的，它们的区别只有2个字符：
for r= 4 to ubound(ar)  '此句适用于有空 ...

thanks!大侠，Ｉ　明白……。

xiangbaoan

财知道 发表于 2018-8-17 14:55
thanks!大侠，Ｉ　明白……。

非也非也，我本混混，闲来无事，混迹论坛，边学边练，偶尔动手，以期乞得花儿数朵，聊以自慰…………