|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原帖由 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 |
|