[已解决]请问如何计算多个工作表中的职位人数

bella2046

一个工作簿中有多个工作表，现要计算多个工作表中的A级员的总人数？由于每个工作表的名称没有规律的，请问各位有哪些公式可以计算出来，而且我实际工作中使用的表格数量达到几十份，手输公式的话效率会很慢，在此请教各位了。

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-12-2 15:11

bella2046 发表于 2016-12-2 15:09
发现了一个疑问，现我设好了代码，计算目前的A级员总人数是正确的，但后续因数据有变动，如减少一个A级员 ...

1. Function CONT()
   
2. Application.Volatile
   
3.     Dim i&, sht As Worksheet
   
4.     For Each sht In Worksheets
   
5.         For i = 1 To sht.UsedRange.Rows.Count
   
6.             If sht.Cells(i, 3) = "A级员" Then
   
7.                 n = n + 1
   
8.             End If
   
9.         Next
   
10.     Next
    
11.    CONT = n
    
12. End Function

复制代码

加一句代码

跳转到最佳答案楼层

望帝春心

那么多工作表就用VBA吧

bella2046

望帝春心 发表于 2016-12-2 14:17
那么多工作表就用VBA吧

我不懂怎么写公式哦

望帝春心

bella2046 发表于 2016-12-2 14:28
我不懂怎么写公式哦

1. Function CONT()
   
2.     Dim i&, sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.         For i = 1 To sht.UsedRange.Rows.Count
   
5.             If sht.Cells(i, 3) = "A级员" Then
   
6.                 n = n + 1
   
7.             End If
   
8.         Next
   
9.     Next
   
10.    CONT = n
    
11. End Function

复制代码

VBA自定义函数，代码放入模块中，然后回到表格，在C列外的任意空白单元格输入=CONT()就可以了

bella2046

望帝春心 发表于 2016-12-2 14:32
VBA自定义函数，代码放入模块中，然后回到表格，在C列外的余空白单元格输入=CONT()就可以了

先谢谢了，我试试先{:11:}

望帝春心

bella2046 发表于 2016-12-2 14:35
先谢谢了，我试试先

参考效果，随意多少张工作表都可以

bella2046

望帝春心 发表于 2016-12-2 14:38
参考效果，随意多少张工作表都可以

成功了，谢谢啦！不过不太懂里面写的意思

望帝春心

bella2046 发表于 2016-12-2 15:01
成功了，谢谢啦！不过不太懂里面写的意思

太棒啦，成功了给我点个赞吧，评个最佳走起

bella2046

望帝春心 发表于 2016-12-2 14:38
参考效果，随意多少张工作表都可以

发现了一个疑问，现我设好了代码，计算目前的A级员总人数是正确的，但后续因数据有变动，如减少一个A级员，这计算出来的总数并没有跟着减少。

望帝春心

bella2046 发表于 2016-12-2 15:09
发现了一个疑问，现我设好了代码，计算目前的A级员总人数是正确的，但后续因数据有变动，如减少一个A级员 ...

1. Function CONT()
   
2. Application.Volatile
   
3.     Dim i&, sht As Worksheet
   
4.     For Each sht In Worksheets
   
5.         For i = 1 To sht.UsedRange.Rows.Count
   
6.             If sht.Cells(i, 3) = "A级员" Then
   
7.                 n = n + 1
   
8.             End If
   
9.         Next
   
10.     Next
    
11.    CONT = n
    
12. End Function

复制代码

加一句代码