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

戏子

<p>没投机,11秒</p><p>

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

</p>

lhh090200

Private Sub CommandButton1_Click()<br/>Dim i%, x&amp;, j&amp;, s%, a&amp;, b&amp;, y, c, m&amp;<br/>Application.ScreenUpdating = False<br/>c = Timer<br/>x = 60000: a = 1: b = 200<br/>For i = 1 To x / 200<br/>&nbsp;&nbsp;&nbsp; For j = a To b<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s = Cells(j, 1).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; y = WorksheetFunction.CountIf(Range(Cells(a, 1), Cells(b, 1)), s)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If y = 1 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("a" &amp; j).Font.ColorIndex = 5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("a" &amp; j).Interior.ColorIndex = 6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next j<br/>&nbsp;&nbsp;&nbsp; a = a + 200: b = b + 200<br/>Next i<br/>MsgBox "计算完毕，共用了" &amp; Format(Timer - c, "0.000") &amp; "秒"<br/>Application.ScreenUpdating = True<br/>End Sub<br/>

zbhpass

<p>我想把范围用Union联合起来再设格式,可能是我写的有问题,狂慢</p><p>

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

zbhpass

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>戏子</i>在2008-7-4 4:45:00的发言：</b><br/><p>没投机,11秒</p><p></p></div>用字典在哪里有设置吗？我的2002不能运行,报错用户类型未定义

tinytree

找唯一的答案。<br/>

yxcandzhq

学习学习<br/>

戏子

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>zbhpass</i>在2008-7-4 10:44:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>戏子</i>在2008-7-4 4:45:00的发言：</b><br/><p>没投机,11秒</p><p></p></div>用字典在哪里有设置吗？我的2002不能运行,报错用户类型未定义</div><p>请参考:http://www.excelpx.com/forum.php?mod=viewthread&tid=36377</p>

assume

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

不看不看

15楼用了Union，速度能大幅度提高的

兰色幻想

<p>还没有发现跑进1秒的代码</p>