用Excel做统计是很多职场伙伴的喜好，因为划分清晰明了，Excel的行列线像经纬线一样将内容分的清楚明白。但是绝大多数盆友都被合并和拆分单元格整的苦不堪言吧，有的请举爪。。。老板们喜欢将相同内容合并着看，而做统计的时候合并单元格带来的痛苦是谁用谁知道哇。今天我们一起脱离苦海，走上人生巅峰。
总体思路是：合并时从下至上，即从最后一行开始判断单元格内容是不是相同，相同则合并，不相同跳过；
拆分时是从上到下，即从第一行开始判断单元格是不是合并了，合并了就拆开，没合并跳过1. 打开VBA编辑区，插入模块，输入以下代码
Sub Button1_Click()
Dim k As Integer
Application.DisplayAlerts = False
For k = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(k, 1) = Cells(k, 1).Offset(-1, 0).Value Then
Range(Cells(k, 1), Cells(k - 1, 1)).Merge
End If
Next
Application.DisplayAlerts = True
End Sub
Sub Button2_Click()
Dim m, n As Integer
Application.DisplayAlerts = False
For m = 1 To [A1048576].End(xlUp).Row '最后一行数据的行数
If Cells(m, 1).MergeCells = True Then
n = Cells(m, 1).MergeArea.Count '合并的单元格个数
Range(Cells(m, 1), Cells(m + n - 1, 1)).UnMerge '拆分单元格
Range(Cells(m, 1), Cells(m + n - 1, 1)).FillDown '给每个单元格填充数据
m = m + n - 1
End If
Next
End sub
2.插入合并及拆分的按钮
开发工具→插入→表单控件→按钮→指定宏(Button1_Click()/Button2_Click())→按钮右键修改控件信息
看下最后效果爽一爽吧
