既有“横向合并单元格”又有“纵向合并单元格”，如何用代码取消纵向合并单元格的合并

作者：绿色风分类：时间：2022-08-18 浏览：70

楼主
水星钓鱼

Q：如下图所示

一个工作表中既有横向合并单元格，又有纵向合并单元格，如果现在要取消G列的纵向合并单元格的合并，选中G列后单击取消合并单元格命令，相应的横向合并单元格也都取消合并了。
如果要批量的取消选定区域中的纵向合并单元格的单元格合并可以使用以下的
Worksheet_SelectionChange 事件
代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oRng As Range
Dim oCell As Range
If IsNull(Target.MergeCells) Or Target.MergeCells Then
Set oRng = Application.Intersect(Me.UsedRange, Target)
For Each oCell In oRng
If oCell.MergeCells Then
If oCell.MergeArea.Columns.Count = 1 Then
oCell.UnMerge
End If
End If
Next
Else
End If
End Sub

附件如下：

批量取消单元格合并代码.rar

2楼
angel928

这个代码不错，正需要的。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表