怎样操纵能精确查找到指定格数的合并单元格？

作者：绿色风分类：时间：2022-08-17 浏览：113

楼主
传递

Q:怎样操纵能精确查找到指定格数的合并单元格？

从单元格选择格式，无论是否选单元格匹配。EXCEL只能查找到所有的合并单元格。

A:通过VBA 扩展功能可以精确查找到合并2格单元格的区域（不分横向，纵向合并单元格）

代码1
用inputbox根据输入数字确定合并单元格格数

Sub 选择合并单元格()
Dim c As Range, rng As Range, i%
i = Application.InputBox("输入合并单元格格数", , 2, , , , , 1)
If i = 0 Then Exit Sub
For Each c In ActiveSheet.UsedRange
If c.MergeArea.Count = i Then If rng Is Nothing Then Set rng = c Else Set rng = Union(rng, c)
Next
If Not rng Is Nothing Then rng.Select
End Sub

代码2

Sub 选取合并()
Dim i As Range, rng As Range
For Each i In ActiveSheet.UsedRange
If i.MergeArea.Count = 2 Then If rng Is Nothing Then Set rng = i Else Set rng = Union(rng, i)
Next
If Not rng Is Nothing Then rng.Select
End Sub

可以实现批量选取所有2格的合并单元格

查找指定个数合的并单元格.rar

2楼
luckydog

3楼
水星钓鱼

感谢分享。

免责声明

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

评论列表