[已解决]求助：如何把筛选出来数据直接赋值给数组？谢谢！

ligh1298

求助：如何把筛选出来数据直接赋值给数组？谢谢！详见附件。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-31 23:11

1.     Dim arr, arrResult
   
2.     Dim i As Long, j As Long
   
3.     Dim lRecordCount As Long
   
4.     arr = Range("A1").CurrentRegion
   
5.     ReDim arrResult(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     For j = LBound(arr, 2) To UBound(arr, 2)
   
7.         arrResult(1, j) = arr(1, j)
   
8.     Next
   
9.     lRecordCount = 1
   
10.     For i = LBound(arr) + 1 To UBound(arr)
    
11.         If arr(i, 3) >= 90 Then
    
12.             lRecordCount = lRecordCount + 1
    
13.             For j = LBound(arr, 2) To UBound(arr, 2)
    
14.                 arrResult(lRecordCount, j) = arr(i, j)
    
15.             Next
    
16.         End If
    
17.     Next

复制代码

跳转到最佳答案楼层

hwc2ycy

你用我上次的数组法想想。

ligh1298

hwc2ycy 发表于 2013-5-31 23:04
你用我上次的数组法想想。

班亲：今天为这个问给数组直接赋值的题想了一个晚上，没整明白。请赐教！

hwc2ycy

另外可以用筛选的方法，再定位可见单元格的方法，不过有个得注意的地方。

hwc2ycy

另外还可以用SQL语句生成，

hwc2ycy

1.     Dim arr, arrResult
   
2.     Dim i As Long, j As Long
   
3.     Dim lRecordCount As Long
   
4.     arr = Range("A1").CurrentRegion
   
5.     ReDim arrResult(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     For j = LBound(arr, 2) To UBound(arr, 2)
   
7.         arrResult(1, j) = arr(1, j)
   
8.     Next
   
9.     lRecordCount = 1
   
10.     For i = LBound(arr) + 1 To UBound(arr)
    
11.         If arr(i, 3) >= 90 Then
    
12.             lRecordCount = lRecordCount + 1
    
13.             For j = LBound(arr, 2) To UBound(arr, 2)
    
14.                 arrResult(lRecordCount, j) = arr(i, j)
    
15.             Next
    
16.         End If
    
17.     Next

复制代码

hwc2ycy

高级筛选也是一个方法，

ligh1298

hwc2ycy 发表于 2013-5-31 23:09
另外还可以用SQL语句生成，

班亲：我是想把筛选出来的，直接赋值给数组，再将数组用作它用。

hwc2ycy

SQL查询可以结果直接导出数组

ligh1298

hwc2ycy 发表于 2013-5-31 23:09
另外还可以用SQL语句生成，

这个题，我借您的思路，做出来了。现在有个问题，就是借助了一个区域，才生成的arr数组。想直接赋值给数组。您请看看，谢谢！