VBA自动筛选复制值、重复数据删除和粘贴到其他工作表中

基础概念

VBA（Visual Basic for Applications）是Microsoft Office软件中的编程语言，用于自动化办公任务。通过VBA，可以实现Excel工作表的自动筛选、复制值、删除重复数据，并将结果粘贴到其他工作表中。

类型

自动筛选：根据特定条件筛选数据。
复制值：将筛选后的数据复制到剪贴板。
删除重复数据：去除工作表中的重复行。
粘贴到其他工作表：将处理后的数据粘贴到新的工作表中。

应用场景

数据整理：对大量数据进行分类、筛选和去重。
报告生成：自动生成包含特定数据的报告。
数据分析：在数据处理前进行预处理。

示例代码

以下是一个简单的VBA脚本示例，演示如何实现自动筛选、复制值、删除重复数据并粘贴到其他工作表中：

Sub FilterAndCopyUniqueData()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim rngFilter As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsDest = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    
    ' 获取源工作表的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 设置筛选范围
    Set rngFilter = wsSource.Range("A1:D" & lastRow)
    
    ' 自动筛选
    rngFilter.AutoFilter Field:=1, Criteria1:=">0"
    
    ' 复制筛选后的数据
    rngFilter.SpecialCells(xlCellTypeVisible).Copy
    
    ' 粘贴到目标工作表
    wsDest.Paste Destination:=wsDest.Range("A1")
    
    ' 删除重复数据
    wsDest.Range("A1:D" & lastRow).RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
    
    ' 清除筛选
    wsSource.AutoFilterMode = False
End Sub