【V入2期】实战练习五-筛选重复(数组)

ycb20010823

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

YX63

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

hai

[em01]

smxlyt

ddddddddddddddddddddddddddddddddd

cyy800829

<p>学习</p>

daiss

hei

风随

<p>学习下子,数组一直绕不出[em04].用字典写了个.</p><p>Sub test()<br/>Dim odic As Object<br/>Set odic = CreateObject("scripting.dictionary")<br/>Dim arow%, i%, x<br/>arow = Range("a65536").End(xlUp).Row<br/>For i = 2 To arow<br/>&nbsp;&nbsp;&nbsp; odic(Left(Cells(i, 1), Len(Cells(i, 1)) - 4)) = i<br/>Next i<br/>&nbsp; For i = 2 To arow<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x = odic(CStr(Cells(i, 2)))<br/>&nbsp;&nbsp;&nbsp; If x &lt;&gt; "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(i, 3) = "有"<br/>&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(i, 3) = "无"<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp; Next i<br/>End Sub</p>

[此贴子已经被作者于2008-12-14 18:03:35编辑过]

flying33200

<p>回贴学习！</p>

gzdfcsg

op

lxy29571968

谢谢