月度汇总

lcmphy

把BE这一列的公式改为用VBA代码统计，实际人数有几百人，VBA代码做成宏，打开任意一个月的月度汇总，只要调用该宏，就可以在BE这一列统计出上班时间出勤天数，标题行都是一样的，区别就在一个月有的30天，有的31天。测试附件如下。谢谢

shiruiqiang

for x=5 to ubound(arr)
  for y=26 to ubound(arr,2)-1
  if instr(arr(x,y),"休息"）=0 then
  i=i+1

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.14
   
2.     With Sheets("月度汇总")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .Range("a1:bd" & r)
   
5.         ReDim brr(1 To UBound(arr), 1 To 1)
   
6.         For i = 5 To UBound(arr)
   
7.             m = m + 1
   
8.             n = 0
   
9.             num = Val(arr(i, 7))
   
10.             For j = 1 To UBound(arr, 2)
    
11.                 n = n + IIf(InStr(arr(i, j), "休息并打卡"), 1, 0)
    
12.             Next
    
13.             brr(m, 1) = num - n
    
14.         Next
    
15.         .[be5].Resize(m, 1) = brr
    
16.     End With
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

lcmphy

ykcbf1100 发表于 2024-1-14 19:45
附件供参考。。。

非常完美，效率高多了。非常感谢ykcbf1100的帮助！