[已解决]VBA问题

SHENQIAN

Sub 多列汇总()
Dim 棋盘(1 To 1000, 1 To 4)
Dim x
Dim arr, y As Integer, sr As String, k As Integer
Dim d As New Dictionary
arr = Range("a2:d" & Range("a65536").End(xlUp).Row)
For y = 1 To UBound(arr)
sr = arr(y, 1) & "-" & arr(y, 2)
If d.exists(sr) Then
x = d(sr)
棋盘(x, 3) = 棋盘(x, 3) + arr(y, 3)
棋盘(x, 4) = 棋盘(x, 4) + arr(y, 4)
Else
k = k + 1
d(sr) = k
棋盘(k, 1) = arr(y, 1)
棋盘(k, 2) = arr(y, 2)
棋盘(k, 3) = arr(y, 3)
棋盘(k, 4) = arr(y, 4)
End If
Next y
Range("g2").Resize(k, 4) = 棋盘
End Sub

产品名称	型号	数量	金额
A	a1	11	2
B	a2	2	3
C	a2	3	45
A	a1	78	5
E	c1	5	16
Y	b1	12	7
J	c1	10	8
B	c2	8	9
E	b2	9	10
L	a1	10	20
Q	b2	110	12
C	c2	12	22
R	a1	2	14
T	c1	14	15
Y	b1	25	16
L	c1	5	10
O	c2	17	8
Q	b2	18	5
T	a1	12	2

我这个有什么问题,为什么声明的字典好像没有用?

最佳答案

月排行榜 / 总排行榜

qh8600

2015-12-26 16:13

SHENQIAN 发表于 2015-12-26 16:11
怎么引用呢?
我这个是用别人的,那为什么他的可以用呀?

前期绑定，在工具中要勾选字典对象的，一般建议使用后期绑定，这样换个电脑也没事，不然，换个电脑又要勾选了

Dim d As New Dictionary
把这个改成 dim d as Object
然后加上下面这句，这是字典后期绑定
Set d = CreateObject("Scripting.Dictionary")

跳转到最佳答案楼层

qh8600

没有引用
一般字典，建议用后期绑定
Set d = CreateObject("Scripting.Dictionary")

SHENQIAN

qh8600 发表于 2015-12-26 16:08
没有引用
一般字典，建议用后期绑定
Set d = CreateObject("Scripting.Dictionary")

怎么引用呢?
我这个是用别人的,那为什么他的可以用呀?

SHENQIAN

qh8600 发表于 2015-12-26 16:08
没有引用
一般字典，建议用后期绑定
Set d = CreateObject("Scripting.Dictionary")

好的,谢谢.我看看

qh8600

SHENQIAN 发表于 2015-12-26 16:11
怎么引用呢?
我这个是用别人的,那为什么他的可以用呀?

前期绑定，在工具中要勾选字典对象的，一般建议使用后期绑定，这样换个电脑也没事，不然，换个电脑又要勾选了

Dim d As New Dictionary
把这个改成 dim d as Object
然后加上下面这句，这是字典后期绑定
Set d = CreateObject("Scripting.Dictionary")

SHENQIAN

qh8600 发表于 2015-12-26 16:13
前期绑定，在工具中要勾选字典对象的，一般建议使用后期绑定，这样换个电脑也没事，不然，换个电脑又要勾 ...

运行是可以了,那为什么运行之后不是还会出现两个一样的产品名称呢，不是不会出现一样的产品名称吗？

SHENQIAN

SHENQIAN 发表于 2015-12-26 16:30
运行是可以了,那为什么运行之后不是还会出现两个一样的产品名称呢，不是不会出现一样的产品名称吗？

上传不了,是怎么一回事?

SHENQIAN

qh8600 发表于 2015-12-26 16:13
前期绑定，在工具中要勾选字典对象的，一般建议使用后期绑定，这样换个电脑也没事，不然，换个电脑又要勾 ...

谢谢你,我又学了一点