VBA能否定义二维动态数组？

兔子嘎嘎

如题，求高手解答并写个简短的实例，感激不尽！{:soso_e100:}

tonychris

可以，但是如果使用了Preserve 的话，那么多维的动态数组，只有最后一维可以动态改变大小
比如 dim a() as long
redim Preserve  a(1,2)
redim Preserve  a(1,10)
redim Preserve  a(2,2) '报错

兔子嘎嘎

Public Function VLOOKUPS(r As Range, ParamArray arg() As Variant)
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer

For j = arg(0).Row To (arg(0).Row + arg(0).Rows.Count - 1)
    l = 0
    For i = 0 To (UBound(arg) - 1) / 2
    If Cells(j, arg(2 * i).Column) = arg(2 * i + 1).Value Then
    k = 1
    Else
    k = 0
    End If
    l = l + k
    Next i
    If l = (UBound(arg) + 1) / 2 Then GoTo result
Next j

result:
VLOOKUPS = Cells(j, r.Column)

End Function

兔子嘎嘎

上面是我写的一个自定义函数，VLOOKUPS(返回值所在列,查找值1,列1,查找值2,列2……)，语法和SUMIFS很像，我在想能不能用二维动态数组来编写VLOOKUPS函数。

tonychris

兔子嘎嘎 发表于 2011-11-12 23:01
上面是我写的一个自定义函数，VLOOKUPS(返回值所在列,查找值1,列1,查找值2,列2……)，语法和SUMIFS很像，我 ...

如果每次循环都要改变高维的大小的话，就不能用二位数组，可以考虑用字典

兔子嘎嘎

可以这样写吗，dim arr(0 to i, 0 to j) i是row号，j是column号，然后调取对应的cells.value

Samsea

兔子嘎嘎 发表于 2011-11-13 01:41
可以这样写吗，dim arr(0 to i, 0 to j) i是row号，j是column号，然后调取对应的cells.value

ReDim Preserve 只能改变数组的最后一维.
   ReDim Preserve arr3(1 To row2 + 10)　　 '通过。　　
    ReDim Preserve arr2(1 To row2, 1 To 18 + 10)　 '通过。
    ReDim Preserve arr2(1 To row2 + 10, 1 To 18)　 '出错
如果要改变第一维，可以这样：用Transpose变为数组的最后一维，运行后再用Transpose 还原。
arr2 = WorksheetFunction.Transpose(Range(Cells(2, 1), Cells(row2, 18)))
   
    ReDim Preserve arr2(1 To 18, 1 To row2 + 5)
    For k = 1 To 18
        arr2(k, row2 + 5) = k
    Next
    [A2].Resize(row2 + 5, 18) = WorksheetFunction.Transpose(arr2)
。。。

极地之恋

7楼的方法让我莫塞顿开！

风起青萍之末

解决了一大难题. 使用Transpose将第一维转为最末维

Zamyi

极地之恋 发表于 2012-12-7 00:27
7楼的方法让我莫塞顿开！

告诉你，不如循环实在，不信，可以和下面比比速度

1. redim a(1 to n,1 to m)
   
2. redim b(1 to n+1,1 to m)
   
3. for i=1 to n
   
4. for j=1 to m
   
5. b(i,j)=a(i,j)
   
6. next
   
7. next
   

复制代码