关于二维数组循环赋值的方法

cf4095690

我有一个循环，里面根据一个vo循环去取字段的值，现在要把这些字段取出来的值放到一个二维数组里，请教一下，该怎么实现

322344

请举例说明 vo 是 vlookup

cf4095690

不是什么vlookup,vo就是一个很多字段的集合

活在理想的世界

这是二维数组赋值的标准写法。

注意：brr赋值单元格需要转置一下。

1. Sub d()
   
2. Dim arr(), brr(): arr = Range("a1").CurrentRegion
   
3. For i = 2 To UBound(arr)
   
4.     If arr(i, 条件所在列) = "条件" Then
   
5.         j = j + 1: ReDim Preserve brr(1 To UBound(arr, 2), 1 To j)
   
6.         For c = 1 To UBound(arr, 2)
   
7.             brr(c, j) = arr(i, c)
   
8.         Next
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

活在理想的世界

还是送你个实际案例吧。提取指定大洲的数据到G2为圆心的单元格里。