[开_101] 词语整理

jimcomputer · 发表于 2014-5-7 23:40

太难，好好思考一下

marchwen01 · 发表于 2014-9-12 13:04

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 · 发表于 2018-6-19 15:07

Private Sub CommandButton1_Click()
t = Timer
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
For i = 1 To UBound(arr)
brr = Split(arr(i, 1), ",")
For j = 0 To UBound(brr)
d(brr(j)) = ""
Next j
Next i
Range("b1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
Range("g1") = Timer - t
End Sub

复制代码

jerry1218 · 发表于 2021-1-2 22:50

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

学习学习了

法法条 · 发表于 2021-2-25 22:11

不错，支持楼主，谢谢。

梦幻庄园 · 发表于 2021-5-4 20:43

学习学哈

gs6818115 · 发表于 2021-8-19 16:36

怎么投票？

james699 · 发表于 2021-12-10 09:46

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

		自动登录	找回密码
密码			免费注册

[Excel 程序开发] [开_101] 词语整理