除了分类汇总功能 操作 搞定, 就只能用宏 来合并
给你写个:
右键点工作表标签,查看代码,如下代码复制进去,F5运行
Sub hebing()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, "A") <> "" Then
j = i
Else
Application.DisplayAlerts = False
Range(Cells(j, "A"), Cells(i, "A")).Merge
Application.DisplayAlerts = True
End If
Next
End Sub
没测试,应该差不多OK