在excel中用自定义函数获取合并单元格内的行数
发布时间：2022-09-09 16:34:26
有时需要在Excel公式中用到合并单元格内所包含的行数或列数。例如下图为几类产品的数量统计，其中每种大类的产品都包含若干小类，需要在合并的单元格中得到各种小类的品种数及数量合计。由于合并单元格与各个小类单元格相对应，且各小类数量不等，因而有必要统计合并单元格内的行数。
用自定义函数可以方便地得到合并单元格内的行数或列数，方法如下。
按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中输入下列代码：
Function MergeRowsCount(Rng As Range) As Long
MergeRowsCount = Rng.MergeArea.Rows.Count
End Function
这样就定义了一个自定义函数MergeRowsCount，它可以获取某个合并单元格内所包含的行数。上图中，E5单元格为5行合并的单元格，下面的公式可以返回数值5：
=MergeRowsCount(E6)
由于本例中E列或F列合并单元格内的行数不等，不能用拖动的方法填充公式，用下面的方法来批量输入公式：
选择E3:E12区域，在编辑栏中输入公式：
=COUNTA(OFFSET(D3,,,MergeRowsCount(E3)))
然后按Ctrl+Enter即可将公式输入到E列各合并单元格，该公式返回合并单元格对应C列的小类产品品种统计。用同样的方法将下面的公式输入到F列，在各合并单元格中即可得到小类产品的数量合计：
=SUM(OFFSET(D3,,,MergeRowsCount(E3)))
要获取合并单元格内所包含的列数，可用下面的代码：
Function MergeColumnsCount(Rng As Range) As Long
MergeRowsCount = Rng.MergeArea.Columns.Count
End Function
0
投稿猜你喜欢
问题描述我晚上在打开PPT时报错：powerpnt.exe-应用程序错误应用程序无法正常启动(0xc0000142)。请单击&q- 相信很多小伙伴在使用电脑的时候都经常会用到文件管理器，而一些用户在升级到Win11系统之后就不清楚文件管理器在哪里，如何去打开，因此小编就为
- 今天教大家用word2013文件保存时的一个选项来实现word文档的预览缩略图效果。第一步：打开你需要增加文档缩略图的word文件。第二步：
- 为了庆祝圣诞节，微信推出了一个小彩蛋：可自定义祝福表情发送给好友。方法如下：用户只需要在微信“搜一搜”搜索框输入“圣诞快乐”或“圣诞”并搜索
- Win7系统自带的windows media center怎么删除呢？有用户反映windows media center一直都没用到，想要卸
- 有时候在使用Win7电脑的时候，突然发现网络适配器不见了，这时候应该怎么呢？下面就好小编一起来看看有什么解决办法吧。有需要的朋友快来看看吧。
- 谈起Nero我想很多人都会比较了解，它是一款功能强大的刻录软件，因此有很多人会下载安装它。但是很多用户不知道如何用Nero刻录DVD？其实方
- TT语音怎么设置房间管理员？TT语音是款专为手游玩家设计的语音聊天工具，用户可以同时邀请很多人来语音，但有时候会出现一些不守规矩的用户们，却
- Excel2010工作表中的页眉或页脚可以设置为首页不同、奇偶页不同或者首页、奇数页和偶数页均不同等几种形式，用户可以根据实际需要进行设置E
- 为了确保短信应用仍然是 iOS 系统上最受欢迎的应用程序之一，苹果在 iOS 系统中对这个应用程序进行了一次“大检修”。在新系统中，苹果给短
- 很多时候我们在安装完PPT以后电脑并没有在桌面创建快捷方式，那么我们怎么在桌面创建一个快捷方式呢，今天我们就来学学PPT创建快捷方式的方法。
- Win11系统永劫无间initialization error 4错误怎么解决？有用户安装的永劫无间在启动游戏的时候，桌面上出现了错误代码，
- 欢迎观看 Pixelmator Pro 教程，小编带大家学习 Pixelmator Pro 的基本工具和使用技巧，了解如何在 Pixelma
- 最近小伙伴们都在用微信玩一个有趣的新功能拍一拍，而这个功能其实也可以拍自己的，那么该怎么去操作呢？下面就一起来看看详细的操作方法吧。微信拍一
- 在日常使用电脑的过程中，有时会出现以下问题，最近有网友遇到了win7系统注册表损坏无法启动的情况，win7系统注册表损坏无法启动怎么办？开始
- 在excel中，对表格数据进行处理的过程中，往往行数、列数都比较多，而查看数据的时候上下翻动就会不知道每行行数据具体代表什么含义，把首行固定
- 演示文稿制作流程包括：确定课题和设计方案等；演示文稿的制作原则包括：风格统一、排版一致、配色协调、图案搭配、图表设置、链接易用和简化页面。演
- Adobe InCopy CC 2019 for Mac增加了对HIDPI和Retina显示屏的支持；增强了字体搜索功能和灵活的页面访问，更
- 在我们平常电脑的使用中难免会遇到一些问题，就比如有Win10专业版出现2147416359文件系统错误的情况，导致文件无法打开，为此令人十分
- 最近有位win8.1系统用户开机使用微软帐户登录时，发现一直停留在"请稍后"的页面，无法进入系统，也不敢强行关机怎么办？
