求助几十万数据的处理

709bus · 发表于 2011-3-7 14:36

因为工作需要，需要处理大量数据检测值，查找变化最大的检测点，但是数据量特别大，几十上百万的数据，请问能有方法提高运算效率么？见附件，谢谢达人了

（谁能帮解决，赠送一个月qq会员聊表心意，少了点，意思下心意

）

[ 本帖最后由 709bus 于 2011-3-7 14:44 编辑 ]

liulangbaby · 发表于 2011-3-7 14:41

到Access中处理吧,Excel并不适合那么大的数据量.

709bus · 发表于 2011-3-7 14:43

但是就是很简单的查找函数，access不熟悉啊，谁能帮解决，赠送一个月qq会员聊表心意

Zamyi · 发表于 2011-3-7 14:45

仅昨日今日VBA很快的。还有名称会不会唯一？

zhaogang1960 · 发表于 2011-3-7 14:47

原帖由 709bus 于 2011-3-7 14:36 发表
因为工作需要，需要处理大量数据检测值，查找变化最大的检测点，但是数据量特别大，几十上百万的数据，请问能有方法提高运算效率么？见附件，谢谢达人了

（谁能帮解决，赠送一个月qq会员聊表心意，少了点，意思下 ...

试试看
Sub 宏1()
Dim d As Object, arr, brr(), i&
Set d = CreateObject("scripting.dictionary")
arr = Sheets("昨日").Range("A1").CurrentRegion
For i = 2 To UBound(arr)
      d(arr(i, 1)) = arr(i, 2)
Next
arr = Range("A2:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row)
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
      brr(i, 1) = d(arr(i, 1))
      brr(i, 2) = arr(i, 2) - brr(i, 1)
Next
Range("c2").Resize(i - 1, 2) = brr
End Sub

709bus · 发表于 2011-3-7 14:50

原帖由 Zamyi 于 2011-3-7 14:45 发表
仅昨日今日VBA很快的。还有名称会不会唯一？

名称是唯一的，每个名称都不一样

Zamyi · 发表于 2011-3-7 14:50

原帖由 zhaogang1960 于 2011-3-7 14:47 发表

试试看
Sub 宏1()
Dim d As Object, arr, brr(), i&
Set d = CreateObject("scripting.dictionary")
arr = Sheets("昨日").Range("A1").CurrentRegion
For i = 2 To UBound(arr)
d( ...

脚手太快啦！

709bus · 发表于 2011-3-7 14:52

原帖由 zhaogang1960 于 2011-3-7 14:47 发表

试试看
Sub 宏1()
Dim d As Object, arr, brr(), i&
Set d = CreateObject("scripting.dictionary")
arr = Sheets("昨日").Range("A1").CurrentRegion
For i = 2 To UBound(arr)
d( ...

这个我要怎么试？vba不知道怎么用，菜鸟，用到方知少啊

最好是能传个附件

zhaogang1960 · 发表于 2011-3-7 14:55

原帖由 709bus 于 2011-3-7 14:52 发表

这个我要怎么试？vba不知道怎么用，菜鸟，用到方知少啊最好是能传个附件

工作簿另存为启用宏的工作簿，Alt+F11进入代码编辑区，插入一个模块，把代码复制到模块里：
单击下面附件中的按钮试试

100万数据处理.rar (20.37 KB, 下载次数: 131)

梅西 · 发表于 2011-3-7 15:05

几百万数据不会是存储在excel里吧？处理啥？没说清楚呀。

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

[求助] 求助几十万数据的处理