首页 > 代码库 > [办公应用]如何将excel合并单元格分拆后每个单元格上仍保留数据?

[办公应用]如何将excel合并单元格分拆后每个单元格上仍保留数据?

合并单元格虽然美观,但是无法进行排序、筛选等操作。

只有合并单元格拆分后才可以按常规进行统计。但是普通拆分后,excel仅保留合并单元格数据到区域左上角的单元格。

解决方案:
选定多个合并单元格,应用本宏即可每个单元格均保留数据:
Sub 拆分()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
  If c.MergeCells Then
    c.Select
    c.UnMerge
    Selection.Value = http://www.mamicode.com/c.Value
  End If
Next c
End Sub