【V入2期】第9讲讲义补充代码

喵喵

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

[此贴子已经被作者于2008-7-2 20:52:47编辑过]

Firerabbit

好

wayy

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>喵喵</i>在2008-7-2 20:52:00的发言：</b></div><div class="msgheader">QUOTE:</div><div class="msgborder">Sub UniqueData2()<br/>&nbsp;&nbsp;&nbsp; Dim d As Object<br/>&nbsp;&nbsp;&nbsp; Dim lRow As Long<br/>&nbsp;&nbsp;&nbsp; Dim i&nbsp; As Long<br/>&nbsp;&nbsp;&nbsp; Dim varRng As Variant<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Set d = CreateObject("Scripting.Dictionary")<br/>&nbsp;&nbsp;&nbsp; With Sheets("不重复数据")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lRow = .[a65536].End(xlUp).Row<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; varRng = .Range("A1:A" &amp; lRow)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To lRow<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d.Item(varRng(i, 1)) = i '字典的key是不允许重复的，有重复的话会自动之前的<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .[c1].Resize(UBound(<font color="#ff0033" size="4">oDic.keys</font>), 1) = Application.Transpose(d.keys)&nbsp; 'd.keys是字典key的集合<br/>&nbsp;&nbsp;&nbsp; End With<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>End Sub<br/><br/></div><p>&nbsp;&nbsp;&nbsp; 老师在改代码的时候没有改全，大家注意一下，应该为 <font color="#3809f7" size="5">d.keys</font></p>

[此贴子已经被作者于2008-7-2 20:57:31编辑过]

loren

xuexi

kelinss

学习...

ycb20010823

看看

nick0630

学习.

fzylx

<p>下载</p><p></p>

皮皮1998

谢谢老师!!

bandari

<p>看看</p>