- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
回復 1# Qin
 Rept+1.rar (446.33 KB)
快一些些(程序test2)，字典物件也就這樣了，期待有更好的寫法
程序test1=原程序+計時器
話說...."笭葩" 是什麼意思?- Private Sub test2()
- t1 = Timer
- Application.ScreenUpdating = False
- Dim arr As Range, brr()
- Dim i As Long, Rn As Long
- Dim Dict As Object
- On Error Resume Next
- Set Dict = CreateObject("scripting.dictionary")
- With ActiveSheet
- Set arr = Intersect(.UsedRange, .Columns(3))
- Rn = arr.Cells.Count
- ReDim brr(1 To Rn)
- For i = 1 To Rn
- Dict(arr(i).Value) = Dict(arr(i).Value) + 1
- Next i
- For i = 1 To Rn
- If Dict(arr(i).Value) <> 1 Then brr(i) = "重覆"
- Next i
- .Columns(2) = ""
- .Range("b1").Resize(Rn, 1) = Application.Transpose(brr)
- End With
- Application.ScreenUpdating = True
- MsgBox "test2共耗時" & Round(Timer - t1, 3) & "秒"
- End Sub
|
|
發表於 2018-8-30 02:55
| 