快速合并与拆分同值单元格

每当遇到查询数据输出成Excel格式时,发现有部分数据列是重复值,一行一行的实在看着花,就会想着手动合并下,但是遇到大数据我们不是要累死? 所以我们得求助VBA解决了一劳永逸。 合并代码: Sub hb() Application.DisplayAlerts = False Dim r() As Range Set d = CreateObject("Scripting.Dictionary") For Each cel In Range("A1:F10"