想统计每月每一个请假的人一共请假了多少时间并列表

cai2532

这个统计好用。

680926

Sub t()
Dim i As Integer
Dim arr
Dim d As Object
Dim brr(1 To 100, 1 To 4)
Set d = CreateObject("scripting.dictionary")
arr = Sheets("Çë¼Ù¼Ç¼±í").UsedRange
For i = 3 To UBound(arr)
    If Not d.exists(arr(i, 1)) Then
        n = n + 1
        d(arr(i, 1)) = n
        brr(n, 1) = n
        brr(n, 2) = arr(i, 1)
        brr(n, 3) = arr(i, 3)
        brr(n, 4) = arr(i, 4)
    Else

       m = d(arr(i, 1))
       brr(m, 3) = brr(m, 3) + arr(i, 3)
    End If
Next
Sheets("Çë¼Ùͳ¼Æ±í").[b5].Resize(n, 4) = brr
End Sub

zhangcheng6688

学习一下
r = Sheets("请假记录表").Cells(Rows.Count, "c").End(xlUp).Row
arr = Sheets("请假记录表").Range("a3:c" & r)
ReDim brr(1 To UBound(arr), 1 To 4)
For i = 1 To UBound(arr)
    If Len(arr(i, 1)) Then
       m = m + 1
       brr(m, 1) = m
       brr(m, 2) = arr(i, 1)
       brr(m, 3) = arr(i, 3)
       For j = i + 1 To UBound(arr)
           If arr(i, 1) = arr(j, 1) Then
               brr(m, 3) = brr(m, 3) + arr(j, 3)
               arr(j, 1) = vbNullString
           End If
        Next
    End If
Next
Sheets("请假统计表").Range("b5:e1000").ClearContents
Sheets("请假统计表").[b5].Resize(UBound(brr), 4) = brr

zhangcheng6688

学习一下字典，谢谢老师们
Sub test()
arr = Sheets("请假记录表").[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 4)
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
   s = arr(i, 1)
   If Not d.exists(s) Then
      m = m + 1
      d(s) = m
      brr(m, 1) = m
      brr(m, 2) = s
      brr(m, 3) = arr(i, 3)
      brr(m, 4) = arr(i, 4)
   Else
      p = d(s)
      brr(p, 3) = brr(p, 3) + arr(i, 3)
   End If
Next
Sheets("请假统计表").[b5].Resize(m, 4) = brr
End Sub