墙上那一串串红辣椒——数组入门讲座

wanderchen

眼泪哗啦啦，这么好的贴，不顶不行啊

wanderchen

眼泪哗啦啦，这么好的贴，不顶不行啊

tulip165

精华就是精华

hyy514

好东西不能沉,努力顶!!!让更多的人受益!!

mrt188

好贴

lizhigang160

期待山老师有更多精彩的文章！！

sky007a

刚刚学习VBA，顶起来慢慢看！！

[em20]

marshzlh

谢谢！

liu6911

 别人帮我写了一个程序，其中有几句，我看不懂，能帮我解释一下吗？

 If d.exists(rng(i, 1)) Then
    arr(d(rng(i, 1)), Day(rng(i, 2)) - 5) = rng(i, 3)

  Sheet2.[c2].Resize(m, 5) = arr

 Sub yy()
Dim n%, i%, a As Range, rng, arr
With Sheet1
n = .[a65536].End(xlUp).Row
rng = .Range("a2:c" & n)
End With
Set d = CreateObject("Scripting.Dictionary")
For Each a In Sheet2.Range("a2:a" & Sheet2.[a65536].End(xlUp).Row)
 m = m + 1
d.Add a.Value, m
Next
ReDim arr(1 To m, 1 To 10)
For i = 1 To n - 1
    If d.exists(rng(i, 1)) Then
    arr(d(rng(i, 1)), Day(rng(i, 2)) - 5) = rng(i, 3)
End If
Next i
Sheet2.[c2].Resize(m, 5) = arr
End Sub

   

windowsxp444

從沒有見過這么好的帖子，樓主繼續髮更好的啊