[开_101] 词语整理

jimcomputer

太难，好好思考一下

marchwen01

Private Sub CommandButton1_Click()
t = Timer
Dim i&, ar, arr, d As Object
Set d = CreateObject("scripting.dictionary")
i = 1
Do While Cells(i, 1) <> ""
    arr = Split(Cells(i, 1), ",")
        For Each ar In arr
            d(ar) = ""
        Next
        i = i + 1
Loop
[c1].Resize(d.Count) = Application.Transpose(d.keys)
Range("g1") = Timer - t
End Sub



运行时间：        0.4375
测试时间：        48.46875

lenghonghai601

1. Private Sub CommandButton1_Click()
   
2. t = Timer
   
3. Dim d As Object
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("a1").CurrentRegion
   
6. For i = 1 To UBound(arr)
   
7.     brr = Split(arr(i, 1), ",")
   
8.     For j = 0 To UBound(brr)
   
9.         d(brr(j)) = ""
   
10.     Next j
    
11. Next i
    
12. Range("b1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
    
13. Range("g1") = Timer - t
    
14. End Sub

复制代码

jerry1218

lg_cai 发表于 2006-6-4 00:49
Option Base 1Private Sub CommandButton1_Click()t = TimerDim ar(1 to 65536, 1 to 1) ' 原代码： Dim ar ...

学习学习了

法法条

不错，支持楼主，谢谢。

梦幻庄园

学习学哈

gs6818115

怎么投票？

james699

想做个题，题目没法下载啊？