从数组中筛选符合指定条件的条目写入新数组，有没有更高效的方法？

督中外诸军事

本人是VBA初学者，在最近一段时间的学习过程中发现在VBA中操作数组不甚方便。比如我要下表中的内容写入数组Arr：

1. Arr=range(activesheet.cells(1,1),activesheet.cells(6,5)).value

复制代码

没问题，速度很快，语句也很简练。但是如果我要在Arr中筛选符合某些条件的条目写入数组Brr，比如职级是部门负责人的员工，问题就来了：以我目前的学习水平，只能想到这种方案：

1. Dim i As Long, j As Long, m As Long
   
2. j = 0
   
3. For i = 1 To UBound(arr)
   
4.     If arr(i, 4) = "部门负责人" Then
   
5.         j = j + 1
   
6.     End If
   
7. Next i
   
8. ReDim brr(1 To j, 1 To 5)
   
9. j = 1
   
10. For i = 1 To UBound(arr)
    
11.     If arr(i, 4) = "部门负责人" Then
    
12.         For m = 1 To 5
    
13.             brr(j, m) = arr(i, m)
    
14.         Next m
    
15.         j = j + 1
    
16.     End If
    
17. Next i

复制代码

好繁琐！主要是事先不知道符合条件的条目数量，所以无法预先定义Brr的上标。当然我也知道可用Redim Preserve保留原数据扩展维度，但只能扩展最后一维十分不便。请问各位高手有更好的方法吗？欢迎交流~

zax010

Dim i As Long, j As Long, m As Long, Arr, brr
Arr = Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(6, 5)).Value
ReDim brr(1 To UBound(Arr), 1 To 5)
For i = 1 To UBound(Arr)
    If Arr(i, 4) = "部门负责人" Then
     m = m + 1
        For j = 1 To 5
            brr(m, j) = Arr(i, j)
        Next
    End If
Next

Zamyi

如果仅仅为了写回工作表，用原数组就行。
如数组Arr（1 to 100,1 to 10)
range("a1:e10")=arr
仅写入前10行5列。

zhjlgaojuan

定义brr的时候,将行列反过来定义,先定义列,再定义行,重定义的时候就不会有问题了 ReDim preserve brr(1 To 5, 1 To j) ,需要对应到表格中的时候,用一个worksheetfunction.transpose(brr)行列就转换回来了

督中外诸军事

zax010 发表于 2016-8-15 16:02
Dim i As Long, j As Long, m As Long, Arr, brr
Arr = Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cell ...

按照原数据的行数定义结果数组的行数吗？嗯，某些场合下可以这么用。但是如果我要把结果数组写入另一个工作表甚至工作薄，且写入目标不允许在表格中间出现空行的话这样就不行了。

督中外诸军事

zhjlgaojuan 发表于 2016-8-15 16:31
定义brr的时候,将行列反过来定义,先定义列,再定义行,重定义的时候就不会有问题了 ReDim preserve brr(1 To  ...

这样不失为一种解决方案，不过本人抽象思维能力有限，有时在操作这种转置数组的时候脑袋里不好想象哈~

督中外诸军事

其实我有点搞不懂为什么微软在设计VBA（或者VB也存在这个问题？）的时候要给数组重定义功能设下这样的限制？难道是为了刻意跟自家的VC++拉开差距？

huang1314wei

要么用ADO，要么就用4楼的方法，3楼的也可以

zax010

督中外诸军事 发表于 2016-8-15 17:16
按照原数据的行数定义结果数组的行数吗？嗯，某些场合下可以这么用。但是如果我要把结果数组写入另一个工 ...

只输出 m 行不就行了？为什么要输出空行？

Range("A2").Resize(m,5)=brr

督中外诸军事

zax010 发表于 2016-8-15 19:52
只输出 m 行不就行了？为什么要输出空行？

Range("A2").Resize(m,5)=brr

问题是我怎么知道Brr中有多少行存在有效数据？