【字典与数组二期1班】第三讲课件及作业

jerryken · 发表于 2013-3-10 21:32

还很不错的课程，谢谢了

xujiang8112 · 发表于 2013-3-24 17:08

wwwwwwwwwwwwwwwwwwwwwwww

cloud-sj · 发表于 2013-3-25 14:58

学习中，期待下次的开课

qing33670000 · 发表于 2013-4-12 13:30

下载学习，谢谢老师！

liziyuliziyu7 · 发表于 2013-4-12 13:49

学习

无影无形 · 发表于 2013-4-15 18:00

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

lengicess · 发表于 2013-5-6 14:42

使劲的让我学习一下，无限沉醉中

victorl · 发表于 2013-5-30 06:55

不斷學習；謝謝老師

sylvester008 · 发表于 2013-6-1 16:00

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

kanndy · 发表于 2013-6-10 08:32

學習！！！！！！！！！！！！！11

		自动登录	找回密码
密码			注册

[资料] 【字典与数组二期1班】第三讲课件及作业