<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/> Dim d As Object<br/> Dim lRow As Long<br/> Dim i As Long<br/> Dim varRng As Variant<br/> <br/> Set d = CreateObject("Scripting.Dictionary")<br/> With Sheets("不重复数据")<br/> lRow = .[a65536].End(xlUp).Row<br/> varRng = .Range("A1:A" & lRow)<br/> For i = 1 To lRow<br/> d.Item(varRng(i, 1)) = i '字典的key是不允许重复的,有重复的话会自动之前的<br/> Next i<br/> .[c1].Resize(UBound(<font color="#ff0033" size="4">oDic.keys</font>), 1) = Application.Transpose(d.keys) 'd.keys是字典key的集合<br/> End With<br/> <br/>End Sub<br/><br/></div><p> 老师在改代码的时候没有改全,大家注意一下,应该为 <font color="#3809f7" size="5">d.keys</font></p>
[此贴子已经被作者于2008-7-2 20:57:31编辑过] |