用VBA出勤统计

绿色心情小天使

E友大家好：需对附件标桔黄的用VBA做统计

      对出勤统计=1至31号的求和
      人员统计=某一天人员个数。
     之所以不用公式，老被人误删。
4.27.rar (12.98 KB, 下载次数: 10)

2023-4-27 06:23 上传

点击文件名下载附件

zxsea_7426

坐看高手解风云.......

chxw68

1. Sub test1()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("4")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
7.         .Cells(2, c - 1).Resize(r - 1, 1).ClearContents
   
8.         .Cells(r, 2).Resize(1, c - 1).ClearContents
   
9.         arr = .Range("a1").Resize(r, c)
   
10.         For i = 2 To UBound(arr) - 1
    
11.             For j = 2 To UBound(arr, 2) - 2
    
12.                 If Len(arr(i, j)) <> 0 Then
    
13.                     arr(i, UBound(arr, 2) - 1) = arr(i, UBound(arr, 2) - 1) + arr(i, j)
    
14.                     arr(UBound(arr), j) = arr(UBound(arr), j) + 1
    
15.                 End If
    
16.             Next
    
17.         Next
    
18.         .Range("a1").Resize(r, c) = arr
    
19.     End With
    
20. End Sub
    

复制代码

chxw68

1. Sub test2()
   
2.     Dim r%, i%, c%
   
3.     With Worksheets("4")
   
4.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
6.         .Cells(r, 2).Resize(1, c - 3).FormulaR1C1 = "=COUNT(R2C:R[-1]C)"
   
7.         .Cells(2, c - 1).Resize(r - 2, 1).FormulaR1C1 = "=SUM(RC2:RC[-1])"
   
8.     End With
   
9.    
   
10. End Sub
    

复制代码

chxw68

两种方法：一种用代码直接计算，一种用代码写入公式。

绿色心情小天使

chxw68 发表于 2023-4-27 07:30

大神你好：
       我在附件中加了一个序号，在数组上卡了。
4.27加序号.rar (20.87 KB, 下载次数: 1)

2023-4-27 09:54 上传

点击文件名下载附件

chxw68

修改好了。