求助统计月份个数用vba还是用函数方便

almeidactu

请教大家怎么求个数，求出每个月每个部门的入职人数

almeidactu

大家帮忙看看

micch

1. =SUM(N(LEFT(INDIRECT($B5&"!a1:a99"),6)=TEXT(C$4,"emm")))

复制代码

数组，右拉下拉

feiyang8878

1. Sub test()
   
2.     Dim sht As Worksheet, i%, j%, x%, arr, brr
   
3.     arr = Sheet9.Range("b4:n9")
   
4.     For i = 2 To UBound(arr)
   
5.         For Each sht In Worksheets
   
6.             If arr(i, 1) = sht.Name Then
   
7.                 brr = sht.UsedRange
   
8.                     For j = 2 To UBound(brr)
   
9.                         For x = 1 To 12
   
10.                             If Val(Mid(brr(j, 1), 5, 2)) = x Then
    
11.                                 arr(i, x + 1) = arr(i, x + 1) + 1
    
12.                             End If
    
13.                         Next x
    
14.                     Next j
    
15.             End If
    
16.         Next sht
    
17.     Next i
    
18.     Sheet9.Range("b4").Resize(UBound(arr), UBound(arr, 2)) = arr
    
19. End Sub
    

复制代码

孙旭白

Sub tiqu()
Dim sht As Worksheet
Dim rng As Range
Dim dic
Set dic = CreateObject("scripting.dictionary")
Dim arr
Sheets("汇总").Range("c5:n9").ClearContents
For Each sht In Worksheets
    If sht.Name <> "汇总" Then
        arr = sht.UsedRange
        For i = 2 To UBound(arr)
            s = Month(Format(arr(i, 1), "0000-00-00"))
            dic(s) = dic(s) + 1
        Next
        Set rng = Sheets("汇总").UsedRange.Find(sht.Name)
        For i = 3 To 14
            Sheets("汇总").Cells(rng.Row, i) = dic(i - 2)
        Next
        dic.RemoveAll
    End If
Next

End Sub

孙旭白

公式不会，代码试一下

feiyang8878

自己测试一下

almeidactu

孙旭白 发表于 2020-1-16 11:14
Sub tiqu()
Dim sht As Worksheet
Dim rng As Range

谢谢，我试试

almeidactu

micch 发表于 2020-1-16 10:53
数组，右拉下拉

老师，我好像弄不来，弄出的不对
部門        2019年1月        2019年2月
工程一部        1       
工程二部        1       
车队        0       
组装班        0       
其他人员        0       

almeidactu

micch 发表于 2020-1-16 10:53
数组，右拉下拉

可以了，很久没用数组了，忘记按键了，感谢老师