excel 同一工作表中非连续区域中筛选唯一值（VBA代码）二

最新推荐文章于 2021-08-19 18:11:49 发布

原创最新推荐文章于 2021-08-19 18:11:49 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel #工作 #each

本文介绍了一个使用VBA编写的去除Excel中重复值的小模块。该模块通过Collection对象收集唯一值，并利用DoEvents循环等待用户选择输出区域。尽管可以通过数据透视表实现相同效果，但此过程有助于理解VBA的编程技巧。

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打开才行。也是一点经验的积累吧。

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