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

gogz888

学习

abigeyedgirl

<br/>不知道　老师能不能看到我的回复，刚看到题目，排得太靠后了

naivewolf

sdfade

Scarlett_88

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

wh7705

<p>学习</p>

wh7705

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

箫风

代码和3楼的基本上是样的，速度也在5秒左右，惭愧呀！心里知道要想提速必须用到数组或字典，但真是心余而力不足啊！

smxlyt

ddddddddddddddddd

smxlyt

Sub Unique()<br/>&nbsp;&nbsp;&nbsp; Dim i&amp;, j&amp;<br/>&nbsp;&nbsp;&nbsp; For i = 1 To 60000 Step 200<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For j = i To i + 199<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Application.CountIf(Range(Cells(i, 1), Cells(i + 199, 1)), Cells(j, 1)) = 1 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(j, 1).Interior.ColorIndex = 40<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(j, 1).Select<br/>&nbsp;&nbsp;&nbsp; Next<br/>End Sub

lzd8917

ddddddddd