[已解决]出勤天数为什么错了？？

fangniuji

Sub 不重复数统计()
    Dim i&, Arr, t
    Dim p As Object
    Application.ScreenUpdating = False
    If Not IsEmpty([O2]) Then Range("O2:P" & Cells(Rows.Count, "O").End(3).Row).ClearContents
    Arr = Range("c2:c" & Range("c65536").End(xlUp).Row)
    '求c列不重复数
    Set p = CreateObject("Scripting.Dictionary")
    For i = 3 To UBound(Arr)
        p(Arr(i, 1)) = p(Arr(i, 1)) + 1
    Next i
    [O2].Resize(p.Count, 1) = Application.Transpose(p.keys)
    [p2].Resize(p.Count, 1) = Application.Transpose(p.items)
    Application.ScreenUpdating = True
End Sub
出勤天数为什么错了？？，帮我改改，谢谢！！！

最佳答案

月排行榜 / 总排行榜

lisachen

2012-5-7 13:20

Sub 不重复数统计()

    Dim i&, Arr, t

    Dim p As Object

    Application.ScreenUpdating = False

    If Not IsEmpty([O2]) Then Range("O2:P" & Cells(Rows.Count, "O").End(3).Row).ClearContents

    Arr = Range("c2:c" & Range("c65536").End(xlUp).Row)

    '求c列不重复数

    Set p = CreateObject("Scripting.Dictionary")

    For i = 1 To UBound(Arr)

        p(Arr(i, 1)) = p(Arr(i, 1)) + 1

    Next i

    [O2].Resize(p.Count, 1) = Application.Transpose(p.keys)

    [p2].Resize(p.Count, 1) = Application.Transpose(p.items)

    Application.ScreenUpdating = True

End Sub

跳转到最佳答案楼层

lisachen

Sub 不重复数统计()

    Dim i&, Arr, t

    Dim p As Object

    Application.ScreenUpdating = False

    If Not IsEmpty([O2]) Then Range("O2:P" & Cells(Rows.Count, "O").End(3).Row).ClearContents

    Arr = Range("c2:c" & Range("c65536").End(xlUp).Row)

    '求c列不重复数

    Set p = CreateObject("Scripting.Dictionary")

    For i = 1 To UBound(Arr)

        p(Arr(i, 1)) = p(Arr(i, 1)) + 1

    Next i

    [O2].Resize(p.Count, 1) = Application.Transpose(p.keys)

    [p2].Resize(p.Count, 1) = Application.Transpose(p.items)

    Application.ScreenUpdating = True

End Sub

晕呼呼

都看不懂，这样能得金币不？