【字典与数组二期1班】第四讲课件

xmniuge

学习 学习....................

chenxiaodong

wetgwaghqaqaqaqaqaqaqaqaqaqaqaqaqaqaf

ljx63426

领课件了

xujiang8112

rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

桃源の仙踪

谢谢谢谢谢谢谢谢谢谢谢谢谢谢

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

领取学习课件..谢谢
                                                

sylvester008

【字典与数组二期1班】第三讲课件 ...  › 参与/回复主题