- ©«¤l
- 518
- ¥DÃD
- 54
- ºëµØ
- 0
- ¿n¤À
- 594
- ÂI¦W
- 243
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- []
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-19
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 7# boblovejoyce
¦pªG¨Ï¥Î °}¦C¾Þ§@¡A ¦b§Úªº¹q¸£¥un 0.324¬í¡F¥u°µ°Ñ¦Ò¡G- 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) ' '²¾¢X£«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
½Æ»s¥N½X |
|