<p>只看了一下工作簿合并</p><p>问题有几个</p><p>合并后成了“sheet1(2)”之类的工作表名,不好</p><p>然后Workbooks(dirname).Sheets(i).UsedRange.Offset(ComboBox2.Text - 1, 0).Copy Cells(c1 + 1, 1)</p><p>这也不好,合并后的工作表中会产生很能 多空行。仅用Offset是不行了 '这点你放心,不会有空行存在的.</p><p>再后工作表合并只能是当前工作表同文件夹中,灵活性再打个折扣 '只要表的格式一致,完成可以用SQL查询与汇总解决,适用手多工作表或多工作簿,速度也还可以.</p><p>最后多工作簿同中同名工作表未合并在一起,而是不同工作表中,实用性再打点折扣 '也是一样用SQL查询与汇总来解决,因为此工具是汇总与样表格式一样的工作表,格式不一样的不做计算.</p><p>没有菜单或者快捷键操作 再折扣 '本想做成加载宏,可实用效果并不是很好,老是让杀毒软件干掉.本人更喜欢从其它工作簿中打开宏,也是一样可以运行,不是非要把此工具复制来复制去的. </p><p></p><p></p><p>不过还是非常谢谢兄弟,提的意见,不过拆分\合并工具,是咱刚学VBA不久才写的,里面确实有很多不足,不过他懒得去改了.</p><p>最新写的也就是合并计算\SQL查询与汇总\分类汇总(修改过,也是本人平时用得最多的一个).有兴趣可以试一试.</p><p></p><p>.........</p> |