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