在EXCEL中,如果拆分合并单元格时,可否将合并单元格的内容出现在所有拆分单元格中

2024-12-03 01:50:13
推荐回答(4个)
回答1:

非常简单!一试就知了!

只需要多一个操作:
就是在拆分之后紧接着按一下 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).Columns.Count > 1 Then Selection.FillRight
End If
ActiveCell.Offset(i, 0).Range("A1").Select
While (Selection.Range("A1").Text <> "" And Not find) Or (Selection.Range("A1").Text = "" And ActiveCell.Row() < 500)
If Selection.MergeCells Then find = True
If Not find Then ActiveCell.Offset(1, 0).Range("A1").Select
Wend
If Not find Then
ActiveCell.Offset(0, 1).Range("A1").Select
Cells(1, ActiveCell.Column()).Select
End If
Wend
End Sub

回答2:

直接拆分是不能的,会在第一个单元格出现,不过你只要用智能填充就很简单实现了

回答3:

应该不可以,因为我没试过

回答4:

不会!只在拆分单元格中其中的一个里面.