正文

VBA技巧：轻松复制Excel不重复数据，告别手动筛选烦恼

/0 浏览量
0422

在Excel中，处理数据时常常会遇到重复数据的问题。手动筛选和删除重复项不仅耗时，而且容易出错。今天，我就来给大家分享一个VBA技巧，让你轻松复制Excel中的不重复数据，从此告别手动筛选的烦恼。

1. VBA基础准备

首先，确保你的Excel中已启用开发者工具。如果没有，请按照以下步骤操作：

  1. 点击“文件”>“选项”。
  2. 在“Excel选项”窗口中，选择“自定义功能区”。
  3. 在“从以下位置选择命令”中选择“开发工具”，然后点击“确定”。
  4. 此时，开发者工具应该已经出现在功能区中。

2. 编写VBA代码

打开Excel，按下 Alt + F11 打开VBA编辑器。在“插入”菜单中选择“模块”，然后粘贴以下代码：

Sub CopyUniqueData()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long, rng As Range
    Dim uniqueData() As Variant
    Dim uniqueRange As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ActiveSheet
    Set wsTarget = ThisWorkbook.Sheets("新工作表") ' 如果不存在，则自动创建
    
    ' 计算源工作表的数据行数
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    ' 读取所有不重复的数据
    Set rng = wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(lastRow, wsSource.Cells(1, 1).End(xlToLeft).Column))
    uniqueData = Application.WorksheetFunction.RemoveDuplicates(rng, 1)
    
    ' 复制不重复的数据到目标工作表
    Set uniqueRange = wsTarget.Range(wsTarget.Cells(1, 1), wsTarget.Cells(UBound(uniqueData, 1), UBound(uniqueData, 2)))
    uniqueRange.Value = uniqueData
    
    ' 自动调整列宽
    wsTarget.Columns.AutoFit
    
    MsgBox "不重复数据已复制到新工作表！"
End Sub

3. 使用VBA代码

  1. 在VBA编辑器中，点击“文件”>“关闭并退出”，返回Excel。
  2. 在开发者工具中，点击“插入”>“按钮”。
  3. 在弹出的对话框中，选择“表单控件”>“按钮”。
  4. 将按钮拖放到合适的位置，并右键点击按钮，选择“分配宏”。
  5. 在弹出的对话框中，选择“CopyUniqueData”宏，然后点击“确定”。

现在，每次点击这个按钮，Excel都会自动复制当前工作表中的不重复数据到一个新工作表中。

4. 总结

通过以上VBA技巧，你可以在Excel中轻松复制不重复的数据，大大提高工作效率。希望这个技巧能帮助你节省宝贵的时间，让你的工作更加轻松愉快。

-- 展开阅读全文 --