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

使用Collection对象筛选唯一值的VBA代码示例

最新推荐文章于 2024-05-22 17:17:43 发布

原创最新推荐文章于 2024-05-22 17:17:43 发布 · 3.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel #工作 #each #integer

本文介绍了一个使用VBA和Collection对象筛选工作簿中唯一值的代码示例。通过此代码，可以高效地从选定区域中提取并整理唯一值，并将它们以过滤工作表的形式展示出来，方便后续的数据分析与处理。

Sub 筛选唯一值() '筛选唯一值 Dim Des As New Collection Dim Newsheet As Worksheet Dim Oldsheet As Worksheet Dim ItemX As Variant Dim Rg As Range Dim i As Integer Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each Rg In Selection If Rg <> "" Then Des.Add Rg.Value, CStr(Rg.Value) Next On Error GoTo 0 For Each Oldsheet In Worksheets If Oldsheet.Name = "FilterSheet" Then Oldsheet.Delete Next Set Newsheet = Worksheets.Add Newsheet.Name = "FilterSheet" i = 1 For Each ItemX In Des Newsheet.Cells(i, 1).Value = ItemX i = i + 1 Next Range("A1").Sort KEY1:=Columns("A") Application.ScreenUpdating = True Application.DisplayAlerts = False Set Des = Nothing Set Newsheet = Nothing Set Oldsheet = Nothing End Sub

简写一段代码，活用了一下Collection对象。