【字典与数组二期1班】第二讲课件：字典的基本应用

wszbd

学习学习，再接再厉。

桃源の仙踪

老师，谢谢谢谢谢谢谢谢谢谢

qing33670000

下载学些，谢谢老师！

liziyuliziyu7

学习                        

无影无形

Sub huizong()
    Dim arr, brr(), x&, k&, r&, t
    t = Timer
    r = Cells(Rows.Count, 1).End(3).Row
    arr = Range("a1", Cells(r, 3))
    ReDim brr(1 To r, 1 To 3)
    k = 1
    For x = 1 To r
        If Len(arr(x, 1)) Then
            brr(k, 1) = brr(k, 1) + arr(x, 1)
            brr(k, 2) = brr(k, 2) + arr(x, 2)
            brr(k, 3) = brr(k, 3) + arr(x, 3)
            Else: k = x + 1
        End If
    Next x
    Range("f:h").Clear
    Range("f1").Resize(r, 3) = brr
    MsgBox Timer - t
End Sub

小丁当88

要学习一下啦..............

victorl

繼續學習；謝謝老師

simonsunvip

先开开眼，学习学习

kanndy

學習中！！！！！！！！！！！！

dapangniao

学习