|
我是VBA小白,现借用了一段代码,但是运算比较慢,
求助大侠 帮忙看看能否优化附件代码,加快运算速度。《浇捣报表》工作表运行代码 另外我表附件的工作簿上有《色标汇总》《计划及达成率》2个工作表的汇总是否也能加入代码内,现这2个子表上用的是函数公式。
谢谢!!
附件数据不能大于2M 所以我删除了很多数据,我的数据在5万行到7万行左右。
附件代码如下:
Sub 浇捣导入()
Dim Rng As Range, cll As Range
Dim arr, i&, ab&
Dim arr1(1 To 50000, 1 To 2)
Set Rng = Sheets("浇捣明细").Range("f8:r" & Cells(Rows.Count, 2).End(xlUp).Row)
'数据源赋值Rng
arr = Range("q4:ao" & Cells(Rows.Count, 5).End(xlUp).Row)
'查询区域装入数组arr
For i = 2 To UBound(arr) '遍历查询区域
Set cll = Rng.Find(arr(i, 1), lookat:=xlPart) 'xlpart模糊匹配模式
If Not cll Is Nothing Then
arr1(i, 1) = cll.Offset(0, 12)
arr1(i, 2) = cll.Offset(0, 7)
Else
arr1(i, 1) = ""
arr1(i, 2) = ""
End If
Next
arr1(1, 1) = "浇捣日期"
arr1(1, 2) = "浇捣数量"
Range("AN4:AO" & i + 4) = arr1
MsgBox "ok"
End Sub
|
|