html 单元格拆分及合并,一键轻松搞定合并和拆分单元格-excel拆分单元格

用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())→按钮右键修改控件信息

看下最后效果爽一爽吧