excel 拆分单元格

前沿拓展:


大家好,今天跟大家分享如何利用VBA代码快速将Excel工作表中的合并单元格批量进行拆分。

应用案例

将下面图1中C列“组别”列的所有合并单元格进行批量拆分,目标效果见图2。

excel 拆分单元格

图1

excel 拆分单元格

图2

**作步骤

1.打开工作表,单击窗口上方“开发工具”选项卡“代码”功能组中的“Visual Basic”按钮。

excel 拆分单元格

2. 在打开的VBA编辑器窗口左侧,找到“Microsoft Excel对象”列表中的“Sheet16(合并单元格批量拆分)”,也就是我们要进行处理的工作表,双击鼠标。

excel 拆分单元格

3.在弹出的代码编辑窗口中输入如下代码:

Private Sub kbiji()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub

excel 拆分单元格

4.单击VBA编辑器窗口上方的“运行子过程/用户窗体”按钮。

excel 拆分单元格

5.返回工作表,可见C列“组别”列中所有合并单元格已经全部拆分为了**的单元格。

excel 拆分单元格

#职场技能##办公技能#

拓展知识:

前沿拓展:


大家好,今天跟大家分享如何利用VBA代码快速将Excel工作表中的合并单元格批量进行拆分。

应用案例

将下面图1中C列“组别”列的所有合并单元格进行批量拆分,目标效果见图2。

excel 拆分单元格

图1

excel 拆分单元格

图2

**作步骤

1.打开工作表,单击窗口上方“开发工具”选项卡“代码”功能组中的“Visual Basic”按钮。

excel 拆分单元格

2. 在打开的VBA编辑器窗口左侧,找到“Microsoft Excel对象”列表中的“Sheet16(合并单元格批量拆分)”,也就是我们要进行处理的工作表,双击鼠标。

excel 拆分单元格

3.在弹出的代码编辑窗口中输入如下代码:

Private Sub kbiji()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub

excel 拆分单元格

4.单击VBA编辑器窗口上方的“运行子过程/用户窗体”按钮。

excel 拆分单元格

5.返回工作表,可见C列“组别”列中所有合并单元格已经全部拆分为了**的单元格。

excel 拆分单元格

#职场技能##办公技能#

拓展知识:

前沿拓展:


大家好,今天跟大家分享如何利用VBA代码快速将Excel工作表中的合并单元格批量进行拆分。

应用案例

将下面图1中C列“组别”列的所有合并单元格进行批量拆分,目标效果见图2。

excel 拆分单元格

图1

excel 拆分单元格

图2

**作步骤

1.打开工作表,单击窗口上方“开发工具”选项卡“代码”功能组中的“Visual Basic”按钮。

excel 拆分单元格

2. 在打开的VBA编辑器窗口左侧,找到“Microsoft Excel对象”列表中的“Sheet16(合并单元格批量拆分)”,也就是我们要进行处理的工作表,双击鼠标。

excel 拆分单元格

3.在弹出的代码编辑窗口中输入如下代码:

Private Sub kbiji()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub

excel 拆分单元格

4.单击VBA编辑器窗口上方的“运行子过程/用户窗体”按钮。

excel 拆分单元格

5.返回工作表,可见C列“组别”列中所有合并单元格已经全部拆分为了**的单元格。

excel 拆分单元格

#职场技能##办公技能#

拓展知识:

前沿拓展:


大家好,今天跟大家分享如何利用VBA代码快速将Excel工作表中的合并单元格批量进行拆分。

应用案例

将下面图1中C列“组别”列的所有合并单元格进行批量拆分,目标效果见图2。

excel 拆分单元格

图1

excel 拆分单元格

图2

**作步骤

1.打开工作表,单击窗口上方“开发工具”选项卡“代码”功能组中的“Visual Basic”按钮。

excel 拆分单元格

2. 在打开的VBA编辑器窗口左侧,找到“Microsoft Excel对象”列表中的“Sheet16(合并单元格批量拆分)”,也就是我们要进行处理的工作表,双击鼠标。

excel 拆分单元格

3.在弹出的代码编辑窗口中输入如下代码:

Private Sub kbiji()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub

excel 拆分单元格

4.单击VBA编辑器窗口上方的“运行子过程/用户窗体”按钮。

excel 拆分单元格

5.返回工作表,可见C列“组别”列中所有合并单元格已经全部拆分为了**的单元格。

excel 拆分单元格

#职场技能##办公技能#

拓展知识:

原创文章,作者:九贤生活小编,如若转载,请注明出处:http://www.wangguangwei.com/77013.html