如何统计Excel中合并单元格的数量？

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代码进行了自定义，赋予了这串字母函数的功能，用于统计特定区域范围内合并单元格的数量。

回顾关键内容，善用图片表达，学会建立联系，拓展深度广度，浓缩关键概念，应用到行动中，善于归纳总结，尝试进行分享。