小经验分享

Sub 取不重复值() Dim Cel As Range Dim itm As Variant, i As Variant Dim MyList As New Collection Dim SelectArea As Range 'Application.ScreenUpdating = False On Error Resume Next For Each Cel In Selection If Cel <> "" Then MyList.Add Cel.Value, CStr(Cel.Value) Next On Error GoTo 0 Set SelectArea = Selection Do While True DoEvents If Selection.Address <> SelectArea.Address Then Exit Do Loop i = 0 For Each itm In MyList Cells(Selection.Row + i, Selection.Column).Value = itm i = i + 1 Next End Sub

 

应要求将上次的改了一下， 运用DOEVENTS来选择输出单元格。期间总是出现doevents不起作用的情况。后来发现，一定要把ScreenUpdating打开才行。也是一点经验的积累吧。

 

虽然这个完全可以通过数据透视来实现，但是还是从做这个小模块的过程中学到不少东西。