|
本帖最后由 VBA成长中 于 2012-9-29 16:45 编辑
Dim TJ As Object, nr1&, arr1()
Set TJ = CreateObject("scripting.dictionary")
nr1 = Me.Range("a1").End(xlDown).Row
arr1 = Me.Range("a2:a" & nr1).Value
arr1 全部用来存储客户名称的,每次都提示 类型不匹配?
谢谢、、
下面是 按月统计的源代码
Private Sub CommandButton1_Click()
Dim TJ As Object, nr1&, arr1(), Brr(), nr2&, arr2(), R&, C&
Set TJ = CreateObject("scripting.dictionary")
nr1 = Me.Range("a1").End(xlDown).Row
arr1 = Me.Range("a2:a" & nr1).Value
For k = 1 To nr1 - 1
TJ.Add arr1(k, 1), k
Next
ReDim Brr(1 To nr1 - 1, 1 To 12)
nr2 = Sheet4.Range("b1").End(xlDown).Row
arr2 = Sheet4.Range("b2:j" & nr2).Value
For g = 1 To nr2 - 1
R = TJ(arr2(g, 1))
C = Month(arr2(g, 2))
Brr(R, C) = Brr(R, C) + arr2(g, 9)
Next
Me.Range("b2:m" & nr1) = Brr
End Sub
|
|