二维数组赋值的问题

我现在要给以个二维数组赋值 里面两个字段（货号，数量）
 循环赋值给二维数组，在赋值的时候监测货号，货号相同的吧数量加到上面去，如果发现数组里面货号没有就新增个记录


数值：
  货号 数量
  A ----------1
  B ----------1
  A ----------2
  C ----------3
需要付给数值 a（99,1）的结果是
a（0,0） a（0,1）
  A 3
a（1,0） a（1,1）
  B 1 
a（2,0） a（3,1）
  C 3  

我要实现这样的一个效果，那位大侠给我写个方法谢谢……

你这个不叫二位数组, 而是应该实用自定义数据类型数组.

Private Type Sth
Name As String
Number As Long
End Type

Dim Doods(100) As Sth
使用的时候是:
Goods(X).Name = "Disk"
Goods(X).Number = 999