求助：10万行数据用循环判断效率问题

Tenrence_law

求助：10万行数据用循环判断效率问题
DATA.part1.rar (488.28 KB, 下载次数: 10)

2012-3-19 22:15 上传

点击文件名下载附件
数据文件3 DATA.part2.rar (488.28 KB, 下载次数: 17)

2012-3-19 22:15 上传

点击文件名下载附件
数据文件2 DATA.part3.rar (400.69 KB, 下载次数: 37)

2012-3-19 22:15 上传

点击文件名下载附件
数据文件1
我的语句如下，但运行太慢，请各位大侠指点。
Sub MPS_WO()
Dim i As Long, rg As Range, cn As Long
cn = (Range("A1048576").End(xlUp).Row)
For i = 2 To cn
If Not Range("A" & i).Find("SUB") Is Nothing Then
Range("B" & i).FormulaR1C1 = "=LEFT(RC[-1],LEN(RC[-1])-7)"
ElseIf Not Range("A" & i).Find("TA") Is Nothing Then
Range("B" & i).FormulaR1C1 = "=LEFT(RC[-1],LEN(RC[-1])-6)"
Else
Range("B" & i).FormulaR1C1 = "=LEFT(RC[-1],LEN(RC[-1])-2)"
End If
Next
End Sub

hrpotter

1. Sub test()
   
2.     Dim ar
   
3.     Dim i As Long
   
4.     ar = Range("a2:a" & [a1048576].End(xlUp).Row)
   
5.     For i = 1 To UBound(ar)
   
6.         If InStr(ar(i, 1), "SUB") Then
   
7.             ar(i, 1) = Left(ar(i, 1), Len(ar(i, 1)) - 7)
   
8.         ElseIf InStr(ar(i, 1), "TA") Then
   
9.             ar(i, 1) = Left(ar(i, 1), Len(ar(i, 1)) - 6)
   
10.         Else
    
11.             ar(i, 1) = Left(ar(i, 1), Len(ar(i, 1)) - 2)
    
12.         End If
    
13.     Next
    
14.     Range("b2:b1048576").ClearContents
    
15.     Range("b2").Resize(UBound(ar)) = ar
    
16. End Sub

复制代码

试试这个

zjcat35

你可以去看看校长的VBA80集里的数组字典教程，那样速度就加快啦

Tenrence_law

hrpotter 发表于 2012-3-19 22:52
试试这个

多谢帮助与指点！

bb75308973

用数组就会快很多了