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

bella2046

望帝春心 发表于 2016-12-2 15:11
加一句代码

太厉害了！！非常感谢你！！{:24:}

望帝春心

bella2046 发表于 2016-12-2 15:15
太厉害了！！非常感谢你！！

不客气，我也是刚入门，相互学习

bella2046

望帝春心 发表于 2016-12-2 15:18
不客气，我也是刚入门，相互学习

你好，想请教多一个问题，如果我一份表中要分别计算出A级员、B级员、C级员分别的人数，请问怎么编写？
A级员多少人？
B级员多少人？
C级员多少人？

望帝春心

bella2046 发表于 2016-12-2 16:12
你好，想请教多一个问题，如果我一份表中要分别计算出A级员、B级员、C级员分别的人数，请问怎么编写？
A ...

1. Function CONT(str As String)
   
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) = str Then
   
7.                 n = n + 1
   
8.             End If
   
9.         Next
   
10.     Next
    
11.    CONT = n
    
12. End Function

复制代码

=CONT("A级员"),其他相应调整参数

bella2046

望帝春心 发表于 2016-12-2 16:24
=CONT("A级员"),其他相应调整参数

成功了，谢谢{:06:}