VBA过滤唯一值并将这些值复制到新工作表

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的编程语言。它可以通过编写宏来自动化和定制Office应用程序的功能。

在VBA中，要过滤唯一值并将这些值复制到新工作表，可以使用以下步骤：

打开Excel，并打开包含数据的工作簿。
在Excel的开发工具选项卡中，点击Visual Basic按钮，打开VBA编辑器。
在VBA编辑器中，插入一个新的模块。
在模块中编写以下代码：

Sub FilterUniqueValues()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim rngSource As Range
    Dim rngUnique As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("源工作表名称")
    Set wsDestination = ThisWorkbook.Worksheets.Add
    
    ' 设置源数据范围
    Set rngSource = wsSource.Range("A1:A" & wsSource.Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 过滤唯一值
    rngSource.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wsDestination.Range("A1"), Unique:=True
    
    ' 复制唯一值到新工作表
    Set rngUnique = wsDestination.Range("A1:A" & wsDestination.Cells(Rows.Count, 1).End(xlUp).Row)
    rngUnique.Copy
    
    ' 将唯一值粘贴到新工作表
    wsDestination.Range("B1").PasteSpecial Paste:=xlPasteValues
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 设置新工作表名称
    wsDestination.Name = "新工作表名称"
End Sub

请注意，上述代码中的"源工作表名称"和"新工作表名称"需要根据实际情况进行替换。

这段代码的作用是将源工作表中列A中的唯一值复制到一个新的工作表中的列B。你可以根据需要修改代码来适应不同的数据范围和目标位置。

推荐的腾讯云相关产品和产品介绍链接地址：