|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
多个表,表10A列与表6“JSM”列均为单号,for循环匹配表10与表6对应的单号计算相应数据,运行计算速度太慢了,数据有上万行,,请朋友们帮下忙改下,该如何优化提高速度,
MSB = Sheet10.Range("A" & Rows.Count).End(xlUp).Row
MSC = Sheet6.Range(JSM & Rows.Count).End(xlUp).Row
For i = 1 To MSC
For k = 1 To MSB
If Sheet10.Range("A" & i) = Sheet6.Range(JSM & k) Then
Sheet10.Range("AK" & i) = (Sheet6.Range(JSC & k) + Sheet6.Range(JSD & k)) + Sheet6.Range(JSE & k) + (Sheet6.Range(JSK & k) - Sheet6.Range(JSD & k) - Sheet6.Range(JSL & k)) + Sheet6.Range(JSL & k)
Sheet10.Range("AL" & i) = Sheet6.Range(JSA & k)+Sheet6.Range(JSB & k)+Sheet10.Range("AQ" & i)
End If
Next k
Next i
|
|