在excel中使用vba实现查询、统计系统

最新推荐文章于 2025-05-21 11:06:05 发布

职场老油条

最新推荐文章于 2025-05-21 11:06:05 发布

阅读量1.5w

点赞数 5

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： excel 编程语言 EXCEL VBA 应用开发实例

本文链接：https://blog.youkuaiyun.com/qq_42539251/article/details/107356530

本文介绍了如何在Excel VBA中使用公式和工作表函数提高效率，通过实例展示了如何实现多工作表数据的查询和统计功能。讲解了VBA中的Split函数，并与工作表的Mid函数进行了对比。最后，鼓励读者学习相关函数，以提升Excel技能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

excel里面有很多强大的公式，可以快速实现我们想要的结果。如果在vba中可以使用公式，可以大大减少编码，提升工作效率！这么强悍的功能让我们一起学习一下吧！

我们直接通过案例来学习公式在vba中的使用

题目：

实现多个工作表数据的查询，统计功能，如下图：

分析：

在一个表里面的查询统计只需要用到count,vlookup函数即可完成，我们这里有多张表需要循环查找，所以要通过vba实现
上面查询和统计是两个按钮，所以要分成两个宏来写
vba调用工作表函数的方法：Application.WorksheetFunction.公式

代码：

'统计部分代码
Sub tongji()
Dim i, k, l, m As Integer

For i = 2 To Sheets.Count
    '累加每张表A列非空单元格的个数
    k = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1
    '累加每张表F列为“男”的单元格的个数
    l = l + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")
    '累加每张表F列为“女”的单元格的个数
    m = m + Application.