Excel情报局
职场联盟Excel
生产挖掘分享Excel基础技能
Excel爱好者大本营
用1%的Excel基础搞定99%的职场问题
做一个超级实用的Excel公众号
Excel是门手艺玩转需要勇气
数万Excel爱好者聚集地
SUPER EXCEL MAN
1
职场实例
今天小编遇到了这样的一个Excel案例，感觉很有用，所以整理了一下思路分享给大家以供不时之需。
在日常的职场工作中，我们经常对Excel中某些相同内容的单元格进行【合并单元格】的操作。有时候，可能需要统计选定范围内的所有合并单元格的个数。那么我们该如何实现呢？
如下图所示：
在A1:C6单元格数据区域中，我们发现有4个被合并的单元格，并且被合并的单元格所包含的原始单元格的数量是不一定的，即有2个单元格被合并的，有3个单元格被合并的，并且方向形状也不尽相同。现在我们想要统计一下A1:C6区域中合并单元格的个数。
2
解题思路
在Excel中没有一个基础的函数公式用于统计Excel某个区域范围内的合并单元格的数量。但是我们可以通过使用VBA代码自定义一个函数公式用于统计这个问题。
首先我们鼠标右击工作表的名称标签，点击【查看代码】命令（或按快捷键Alt+F11）进入VBA代码编辑器的界面。
然后点击【插入-模块】，在左侧出现了一个新建【模块1】，如下图所示：
双击【模块1】，在右侧代码输入界面将下面的一段VBA代码复制粘贴进去。粘贴完成之后，点击关闭按钮将VBA代码编辑器关闭即可。如下图所示：
Function CountMerged(pWorkRng As Range) As LongDim rng As RangeDim total As LongSet dt = CreateObject("Scripting.Dictionary")For Each rng In pWorkRng If rng.MergeCells Then TempAddress = rng.MergeArea.Address dt(TempAddress) = "" End IfNextCountMerged = dt.CountEnd Function
回到Excel工作表中，最后我们在E2单元格输入自定义函数：
=CountMerged(A1:C6)
按下回车键，即可得到统计结果：4
范围A1:C6是我们要从表格中计算合并单元格的范围，可以根据需要进行更改。
CountMerged函数在Excel中原本是不存在的，正是因为我们前面用VBA代码进行了自定义，赋予了这串字母函数的功能，用于统计特定区域范围内合并单元格的数量。
回顾关键内容，善用图片表达，学会建立联系，拓展深度广度，浓缩关键概念，应用到行动中，善于归纳总结，尝试进行分享。
