Table of contents
Excel中最重要的活动之一是 删除重复的内容 今天我将展示如何在Excel中只用VBA来删除重复的数据。
下载实践工作手册
用VBA删除Excel中的重复内容.xlsm在Excel中使用VBA删除重复内容的3种快速方法
这里我们有一个数据集，其中有 名字，身份证。 唛头。 和 等级划分 在对一所名为 "向日葵幼儿园 "的学校的一些学生的考试中。
如果你仔细观察，你会发现有些名字被错误地重复了。
今天，我们的目标是使用Excel VBA删除重复的值。
1.使用VBA删除固定单元格范围内的重复内容
首先，我们将尝试 删除重复的名字 使用一个固定的单元格范围，在 VBA 代码。
这里，我们的数据集是范围 B3:E15 在工作簿中（包括 专栏标题 ).
我们将在这里的代码中使用这个固定的单元格范围。
步骤1。
➤ 打开一个新的 VBA 窗口并插入一个新的模块（点击这里查看 如何在Excel中打开并插入一个新的VBA模块）。
➤ 在模块中插入此代码。
代码。
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ 它会产生一个叫做 "宏 "的东西。 删除重复的内容 . A3:E14 是我的数据集的范围，而我想要 删除重复的行 基于 第1栏 你用你的那个。
第2步。
➤ 回到你的工作表并运行此宏（单击此处查看如何运行宏）。
➤ 它将删除第1列中有重复的行( 学生姓名）。
阅读更多。 如何删除Excel中的重复内容但保留一个（7种方法）
2.插入VBA代码，从选定的单元格范围中删除重复的内容
现在我们将尝试建立一个宏，可以从工作表中任何选定的单元格区域中删除重复的内容。
步骤1。
➤ 打开一个新的 VBA 窗口，并插入另一个新模块。
➤ 在模块中插入此代码。
代码。
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ 它会产生一个叫做 "宏 "的东西。 删除重复的内容 我想根据以下原则删除重复的行 第1栏 你用你的那个。
第2步。
➤ 返回到你的工作表。
➤ 选择你的数据集并运行此宏。
➤ 它将执行与上面相同的事情。 删除第1列中有重复的行( 学生姓名）。
阅读更多。 如何删除Excel中的重复行（3种方法）
类似读物
- 如何删除Excel中的重复列（3种方法）
- Excel VBA：从数组中删除重复的内容（2个例子）
- 如何在Excel中删除重复数据并保留第一个值（5种方法）
- 在Excel中删除重复的行，除了第一次出现的以外（7种方法）
- 如何删除Excel中的两个重复项（5种简单方法）
3.嵌入一个VBA宏来删除多列的重复内容
到目前为止，我们已经删除了第1列中有重复的行( 学生姓名 ).
但事实上，两个学生的名字可以是相同的，如果两个名字相同，并不总是意味着被误加。
但是如果两个学生的ID也是一样的，那么他们就是同一个学生。 那么这一行就要被删除。
这一次，我们将开发一个宏，如果两行的名称和ID都是相同的，则将删除该行。
步骤1。
➤ 打开一个新的 VBA 窗口，并插入另一个新模块。
➤ 在模块中插入此代码。
代码。
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array（1, 2）, Header:=xlYes End Sub ➤ 它会产生一个叫做 "宏 "的东西。 删除重复的内容 我想根据以下原则删除重复的行 第1和第2栏（姓名和身份证）。 你用你的那个。
第2步。
➤ 返回到你的工作表。
➤ 选择你的数据集并运行此宏。
这一次，只有当姓名和学生证都相同时，它才会删除这些行。
请注意。 在这里，它没有删除Jennifer Marlo，因为两个学生的ID是不同的，也就是说，他们是两个不同的学生。
阅读更多。 Excel VBA: 删除重复的多列比较（3个例子）
总结
使用这些方法，你可以用VBA从Excel中的数据集中删除重复的数据。 你有什么问题吗？ 欢迎向我们提问。
