有没有一种方法让拆分后的单元格都显示未拆分时的数值,谢谢!

来源:百度知道 编辑:UC知道 时间:2024/05/31 12:52:03

在Excel里按Alt+F11,打开VBA编辑器,插入一个模块,把下面的代码贴进去
用法:选中合并的单元格(可以选中多个),按Alt+F8,运行“分解合并单元格并填充”,也可以给这个宏指定键盘快捷键,或在工具栏上自定义一个按钮,把这个宏指定给按钮,用的时候按一下快捷键或点一下按钮就行了。再不明白的话找我,QQ 99137479
Sub 分解合并单元格并填充()
Set 已选择的区域 = Selection
首行 = 已选择的区域.Row
行数 = 已选择的区域.Rows.Count
If 首行 + 行数 - 1 = 65536 Then 行数 = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 首行 + 1
首列 = 已选择的区域.Column
列数 = 已选择的区域.Columns.Count
For 列 = 首列 To 首列 + 列数 - 1
Set 单元格 = Cells(首行, 列)
行 = 首行
While 单元格.Row < 首行 + 行数
If 单元格.MergeCells Then
Set 合并区 = 单元格.MergeArea
合并区.UnMerge
If 合并区.Rows.Count > 1 Then 合并区.FillDown
行 = 行 + 合并区.Rows.Count
Else
行 = 行 + 1
End If
Set 单元格 = Cells(行, 列)
Wend
Next
End Sub