实现多表合并

湘西农民

cbtaja 发表于 2014-4-11 22:51
只需改一个字——把代码中第一句的4改成5即可：
Const bths = 4 '表头行数
改成：

列数怎么不用改啊

cbtaja

湘西农民 发表于 2014-4-11 22:38
发来了，你看看 我增加四列 和一行

表头增加了1行，把4改成5；
左边的列头数没有变，仍为4；
总的列数增加了4列，则把16改成20

湘西农民

cbtaja 发表于 2014-4-11 22:58
表头增加了1行，把4改成5；
左边的列头数没有变，仍为4；
总的列数增加了4列，则把16改成20

我运行了 不对啊？麻烦你代码发一下 运行结果传一下 谢谢！

cbtaja

湘西农民 发表于 2014-4-11 22:55
列数怎么不用改啊

因为你的汇总表中，总的列数仍是16列没有变！！！

cbtaja

湘西农民 发表于 2014-4-11 23:01
我运行了 不对啊？麻烦你代码发一下 运行结果传一下 谢谢！

前3行，改成：
.Const bths = 5 '表头行数
.Const btls = 4 '表头列数
.Const bgzls = 20 '表格总列数

再没法多说了。。。

湘西农民

cbtaja 发表于 2014-4-11 23:16
前3行，改成：
.Const bths = 5 '表头行数
.Const btls = 4 '表头列数

谢谢，若从第5列E-Q列不是数字格式，文字字符就运行类型不对

cbtaja

湘西农民 发表于 2014-4-12 14:44
谢谢，若从第5列E-Q列不是数字格式，文字字符就运行类型不对

你捣来捣去的改，难道不能把最终的表格结构发一个模拟表上来吗？

henry3w4t

cbtaja 发表于 2014-4-5 20:02
这个是上面代码对应的附件：

cbtaja 老师，如何实现宏文件不保存为.xlsm格式？

我编写的VBA宏文件，一直提示我要改成.xlsm格式。如果用.xls格式！默认把我的宏删除了！！

2007小金猪

学习了，正好又遇到多表合并

npwz0427

标记，学习一下