- 帖子
- 519
- 主題
- 54
- 精華
- 0
- 積分
- 595
- 點名
- 255
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2024-11-22
          
|
16#
發表於 2015-5-30 10:07
| 只看該作者
回復 7# boblovejoyce
如果使用 陣列操作， 在我的電腦只要 0.324秒；只做參考：- Option Base 1
- Sub test1()
- t = Timer
- Dim arr, arr1, arr2
- Dim i&, j&, k&
- arr1 = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
- arr = Range("J2:J" & Cells(Rows.Count, 10).End(xlUp).Row)
- ReDim arr2(UBound(arr), 1)
- For i = 1 To UBound(arr)
- For j = UBound(arr1) To 1 Step -1
- If InStr(arr1(j, 1), arr(i, 1)) <> 0 Then
- For k = j To 1 Step -1
- If InStr(arr1(k, 1), " (net ") <> 0 Then
- arr2(i, 1) = Right(arr1(k, 1), Len(arr1(k, 1)) - 7) ' '²¾°£«e±8Ó¦r¤¸
- GoTo Nexti
- End If
- Next
- End If
- Next
- Nexti:
- Next
- Range("L2").Resize(UBound(arr2)) = arr2
- MsgBox Format(Timer - t, "0.0000")
- End Sub
|
|
發表於 2015-5-29 19:36
| 
