http://zhidao.baidu.com/question/625743779340846964
右键点 工作表 标签, 查看代码, 把如下复制进去 ,F5运行
Sub hebing()
j = 1
For i = 2 To Range("G65536").End(xlUp).Row
If Cells(i, "G") <> Cells(j, "G") Then
j = i
Else
Application.DisplayAlerts = False
Range(Cells(j, "G"), Cells(i, "G")).Merge
Application.DisplayAlerts = True
End If
Next
End Sub
先排序,然后合并单元格。简单易操作。数据透视表,搞定非常快。使用公式,必须用宏表公式,否则无法实现。用宏,数据太少不划算。
分类汇总可以。
直接数据透视