UC知道在EXCEL中，如果拆分合并单元格时，可否将合并单元格的内容出现在所有拆分单元格中
来源：百度知道 编辑：UC知道 时间：2024/06/06 20:04:04
非常感谢4楼的朋友，已经非常接近了，但现在还遇到这样一个问题：我整个表格有许多合并单元格，我是通过ctrl＋A，“合并及居中”拆分所有合并单元格的，因为一个一个的拆分，再ctrl＋d，工作量还是很大，还能不能更近一步，简单一些?3KS
***********************************************
非常非常感谢4楼的朋友，已经对一个单元格测试成功，因为对宏语言不是很了解，想知道对于整个工作表不管三七二十一的改，怎样改宏？3KS,3KS
非常简单！一试就知了！
只需要多一个操作：
就是在拆分之后紧接着按一下 Ctrl+D(向下填充)，可能还需要按Ctrl+R(向右填充)。
如果拆分后的区域有多行多列，则两个快捷键都分别按一下。
-----------------
再补充：楼主补充的要求对于利用Excel的基本功能是无法实现的。只能利用宏了。我写了一个，可以试试。试之前注意保存好原文件，宏对文件做的改动可是无法撤消的，不过只要最后不保存文件也没事。
这次这个是不管三七二十一，一次性把当前工作表中所有的合并单元格都搞掂。
Sub 取消合并且填充()
'
' 取消合并且填充 Macro
' 宏由 James 录制，时间: 2008-5-15
' 说明：不管三七二十一，一次性把当前工作表中所有的合并单元格都搞掂！宏从第一列开始逐列搜索直到遇到空列停止
' 宏会检查连续且有数据的所有格子，如果其中有空格，那就不同了：
' 对于数据中有空格：如果500行以下有空格，则宏忽略501行以下的格子。这个“500”在程序是可以看到的，可以手工改变它。
Dim find As Boolean, i As Integer
Application.CutCopyMode = False
Cells(1, 1).Select
While ActiveCell.Text <> ""
find = False
i = 1
If Selection.MergeCells Then
Selection.UnMerge
i = Selection.Areas(1).Rows.Count
If i > 1 Then Selection.FillDown
If Selection.Areas(1).Colu