请教，自动筛选出的结果如何赋值给数组？

asdfwgd · 发表于 2022-9-7 07:58

因为数据量太大，有30W条数据。我打算用自动筛选的方法，把筛选出来的结果赋值给数组。这样运算速度应该会快一些。现在的问题是怎么操作

无敌小猪猪 · 发表于 2022-9-7 08:36

数据量很多，但是格式又比较规范的情况下，还是建议用sql会比较简洁，筛选之后赋值给数组的话还是要先判定再赋值，也比较慢。

wodewan · 发表于 2022-9-7 09:23

就老老实实的用循环判断就行，慢不到哪里去，30w数据应该在1秒以内。

心的启点 · 发表于 2022-9-7 09:25

下面的代码是直接跳过隐藏行进行循环，通过循环将非隐藏行数据写入数组，应该是最快的方法了。试试吧！
Z91~NT2ZA(F31R8_6%L3.png

Learner2022 · 发表于 2022-9-7 09:27

无敌小猪猪发表于 2022-9-7 08:36
数据量很多，但是格式又比较规范的情况下，还是建议用sql会比较简洁，筛选之后赋值给数组的话还是要先判定 ...

赞同筛选后赋值给数组感觉有点多此一举

qdtzq · 发表于 2022-9-7 09:32

...........................运行速度给我反馈一下

语虚何以言知 · 发表于 2022-9-7 09:32

估计你不是卡在这个计算上

松野 · 发表于 2024-3-22 17:13

本帖最后由松野于 2024-3-22 20:28 编辑

提供一种大容量数据筛选结果快速赋值给数组的方法

Sub 筛选后赋值给数组arr()
Dim Rng As Range
Sheet1.Range("a1").AutoFilter 1, "红"
Set Rng = Sheet1.Range("a1").CurrentRegion.Offset(1).Resize(Sheet1.Range("a1").CurrentRegion.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
lc = Rng.Columns.Count
lr = Rng.Cells.Count / lc
ReDim arr(1 To lr, 1 To lc)
For Each r In Rng.Areas
a = r
For q = 1 To UBound(a)
m = m + 1
For j = 1 To UBound(a, 2)
arr(m, j) = a(q, j)
Next
Next
Next
m = 0
Rng.AutoFilter
MsgBox "arr赋值成功"
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 请教，自动筛选出的结果如何赋值给数组？