Question

关于判断数据源并自动合并单元格的超级复杂问题，用高级EXCEL技术VBA程序代码实现，请高手赐教交流探讨。

详细问题见如下图片，要实现的效果也见图：
详细问题及解释：

效果图：

请问高手如何写VBA代码啊，究竟能不能实现？请大家出出主意





Answer 1

Sheet1插入辅助列Q列

Q2=MONTH(C2)&"月"&DAY(C2)&"日"&G2&K2&M2&N2公式下拉

Sheet2

A2=INDEX(Sheet1!E:E,SMALL(IF(Sheet1!$Q$2:$Q$20000=A2,ROW($2:$20000),4^8),ROW(B1)))&""&"/"&INDEX(Sheet1!F:F,SMALL(IF(Sheet1!$Q$2:$Q$20000=A2,ROW($2:$20000),4^8),ROW(B1)))

B2=INDEX(Sheet1!E:E,SMALL(IF(Sheet1!$Q$2:$Q$20000=A2,ROW($2:$20000),4^8),ROW(B1)))&""&"/"&INDEX(Sheet1!F:F,SMALL(IF(Sheet1!$Q$2:$Q$20000=A2,ROW($2:$20000),4^8),ROW(B1)))

这两个都是数组公式，公式输完后，光标放在公式编辑栏同时按下CTRL+SHIFT+回车键，使数组公式生效。两公式向下复制

C2=SUMPRODUCT((Sheet1!$Q$2:$Q$20000=$A2)*(Sheet1!O$2:O$20000))向右向下复制

Answer 2

我觉得这个不是合并单元格的问题，应该是合并或求和相同项。因为最后每一项的结果其实只有一行。请确认。
所以，初步考虑可以用字典的方法，去重复比较方便。

追问

问题是：不是所有的列都是合并或者都是求和啊，只是有些合并有些求和。字典方法真的可以解决吗，代码怎么编，太复杂了！

追答

以下是测试情况和下载地址（代码超字数限制了）

http://pan.baidu.com/s/1mgvD7z6

 

运行前请务必备份你的源文件。