V中班课前必做题：找唯一

liyh67 · 发表于 2008-7-5 18:46

不会用字典，调用工作表函数COUNTIF做了个好像速度挺慢的。如果同时运行了其他程序，对运行速度的影响挺大的。

liyh67 · 发表于 2008-7-5 19:15

游客，如果您要查看本帖隐藏内容请回复

劫-后-余-生 · 发表于 2008-7-5 19:19

为了学别人的，发一个上来：Sub test() t = Timer Application.ScreenUpdating = False Dim arr1(), r&, i1%, myrange As Range, arr2(0 To 100, 1 To 2) As Long arr1 = [a1:a60000].Value Set myrange = [b1] For r = 1 To 60000 Step 200   For i1 = 1 To 200     arr2(arr1(r + i1 - 1, 1), 1) = arr2(arr1(r + i1 - 1, 1), 1) + 1     arr2(arr1(r + i1 - 1, 1), 2) = r + i1 - 1   Next   For i1 = 0 To 99     If arr2(i1, 1) = 1 Then      Set myrange = Union(myrange, Range("a" & arr2(i1, 2)))     End If   Next   Erase arr2    myrange.Interior.Color = vbYellow    myrange.Font.Color = vbBlue    Set myrange = [b1] Next r [b1].Clear Application.ScreenUpdating = True [d1] = Timer - t End Sub

不看不看 · 发表于 2008-7-5 19:53

呵呵，2008跟楼上都是利用了数据本身，这是出题时没考虑到得该题原附件，数据全是文本的

zsj119 · 发表于 2008-7-5 21:38

看看是什么

兰色幻想 · 发表于 2008-7-5 22:13

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用不看不看在2008-7-5 19:53:00的发言： 呵呵，2008跟楼上都是利用了数据本身，这是出题时没考虑到得该题原附件，数据全是文本的</div>即使是数字,也是大于100就会出错. 各位再完善一下吧.

[此贴子已经被作者于2008-7-5 22:14:11编辑过]

兰色幻想 · 发表于 2008-7-5 22:18

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用zbhpass在2008-7-5 12:48:00的发言： <div class="msgheader">QUOTE:</div><div class="msgborder"> </div>兰版,帮我动行一下50楼的代码,看是不是能进1秒,我这是小于1秒的.进不了我也不去敢去回贴领BB,我想要而要不到很丢人的.</div>你的答案不能处理文本, 需要完善一下

aa123456aa · 发表于 2008-7-5 22:42

4秒多的答案都不敢发出来[em04] 兰版0.5秒[em06] 刚看了一下评语，还要能处理文本的！完不了！

游客，如果您要查看本帖隐藏内容请回复

[em09]

[此贴子已经被作者于2008-7-5 22:52:28编辑过]

劫-后-余-生 · 发表于 2008-7-5 23:13

按92楼的思想，改成字典的，数字、文字通吃：Sub test() Dim dic1 As New Dictionary, dic2 As New Dictionary Dim arr1(), r&, i%, myrange As Range t = Timer Application.ScreenUpdating = False arr1 = [a1:a60000].Value For r = 1 To 60000 Step 200   Set myrange = [b1]   For i = 1 To 200     dic1(arr1(r + i - 1, 1)) = dic1(arr1(r + i - 1, 1)) + 1     dic2(arr1(r + i - 1, 1)) = r + i - 1   Next   For i = 0 To dic1.Count - 1     If dic1.Items(i) = 1 Then Set myrange = Union(myrange, Cells(dic2.Items(i), 1))   Next   myrange.Interior.Color = vbYellow   myrange.Font.Color = vbBlue   Set dic1 = New Dictionary   Set dic2 = New Dictionary Next [b1].Clear [d3] = Timer - t End Sub好象92楼对文本型数字也可以。

aa123456aa · 发表于 2008-7-6 00:36

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用aa123456aa在2008-7-5 22:42:00的发言： 4秒多的答案都不敢发出来[em04] 兰版0.5秒[em06] 刚看了一下评语，还要能处理文本的！完不了！[em09] </div>发个自定义格式的可惜啊自定义格式不能用时间快的很！  再慢的机子应该也在0.03秒之内吧！

游客，如果您要查看本帖隐藏内容请回复

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

V中班课前必做题：找唯一

本帖子中包含更多资源

浏览过的版块