各位网友晚上好：烦请各位高手修改一下下面两段代码，目的如下，谢谢！

yumin790830

各位网友晚上好：小弟偶然得到两段代码，觉得对工作上面非常有用，但是还有一些小缺陷，烦请各位高手再修改一下，目的如下，谢谢！
1、在“灵活的多工作表合并或汇总”的工作簿中的“汇总”工作表中有两个按钮分别为汇总或者合并当前工作簿中的sheet1到sheet5工作表的相应内容到“汇总”工作表中去，但是按下按钮之后弹出的对话框没有“全选”与“取消全选”要汇总或者合并sheet1到sheet5的工作表的选项，这样在实际工作中如果工作表太多的话，一个一个勾过来就比较的麻烦，小弟对窗体这一块还是不太熟悉的，烦请各位高手帮帮忙把弹出的对话框中的勾选项加上“全选”与“取消全选”，其余的代码应该没有问题，小弟试过随着工作表的增加弹出对话框中的工作表的名称就会自动增加，谢谢！

2、在“如何根据A列的序号，自动合并C单元格并计算合计数”的工作簿中按下求和的按钮就会根据“A”列序号中相同的部分，对“B”的相对应的金额进行汇总并把结果放入“C”列中同时合并相应的“C”列单元格，现在小弟想要实现的是把公示一起写入“C”列相应的单元格中去，例如运行宏后C2单元格让它出现公示如“＝SUM(B2:B3)”的样子，恳请高手帮帮忙！
辛苦各位高手把上面两个代码再修改一下，再次对各位以前帮助过在下的网友表示感谢，谢谢！

guzhen9315

我试过了，但我不会，关注中。。。。。。

yumin790830

谢谢2楼的网友回复，期待有高手出现，谢谢！

yumin790830

小弟比较急，麻烦各位好心的网友帮帮忙，谢谢！

yumin790830

还没人回复，自己再顶一下，谢谢！

thtfzhaobo

第一个有更新版本,在下载就可以,你想改就加个CheckBox,定义下事件就行,我的目前报错,就不再加了
第二个用高级筛选找出不重复值,按find进行(没有增加排序),不能适应你的要求,不如你自己写,只是排序,判断起始结束点,合并单元格,加个公式,不难,练练手把

[ 本帖最后由 thtfzhaobo 于 2009-7-6 10:24 编辑 ]