excel保留唯一值 A列有重复值 保留唯一值 B列数值 都不相同要求！ 删除A列重复数据！
发布网友
发布时间：2022-04-24 02:55
共4个回答
热心网友
时间：2023-10-23 05:39
此问题可以通过vba来实现
解释说明如下：
1、原始数据情况：
a列数据有重复项目
2、代码位置
鼠标右键点击删除项按钮，选择指定宏
如下图输入代码
3、代码
Application.ScreenUpdating = False '关闭刷屏
arr = [a1].CurrentRegion '将数据读入数组，提升读取效率
Set Rng = Nothing 'rng为了保存重复项
Set d = CreateObject("scripting.dictionary") '设置字典变量，用于去重
For J = 2 To UBound(arr) '循环遍历，查找重复项
If d.exists(arr(J, 1)) Then '根据字典里是否有该值，来确定是否有重复
If Rng Is Nothing Then '将重复项，使用union函数，赋值给变量rng
Set Rng = Cells(J, 1).Resize(1, 2)
Else
Set Rng = Union(Rng, Cells(J, 1).Resize(1, 2))
End If
Else
d(arr(J, 1)) = ""
End If
Next J
If Not Rng Is Nothing Then Rng.Delete '如果有重复。即删除
Application.ScreenUpdating = True
End Sub
4、代码运行后实现效果截图
热心网友
时间：2023-10-23 05:39
工具版本——excel2003
步骤方法：
打开一个A列包含有重复值的excel表格，点击含有数据的任意单元格，点击数据——筛选——高级筛选。
在高级筛选里，选择将筛选结果复制到其它位置，列表区域选择A1:A19，复制到选择E2（这个可以任意选），最后勾选选择不重复的记录（这一步最重要）。
3.点击确定以后，重复值就被删除了，只保留唯一值。
热心网友
时间：2023-10-23 05:40
在【数据】下面有【删除重复项】按钮，点一下就可以，注意点之前不要选中A列，只要在区域内的任意单元格就可以。按钮位置见下图：
热心网友
时间：2023-10-23 05:40
如图，首先选中AB两列的数据，然后点菜单数据-->删除重复项，如图设置，确认就可以了。
热心网友
时间：2023-10-23 05:39
此问题可以通过vba来实现
解释说明如下：
1、原始数据情况：
a列数据有重复项目
2、代码位置
鼠标右键点击删除项按钮，选择指定宏
如下图输入代码
3、代码
Application.ScreenUpdating = False '关闭刷屏
arr = [a1].CurrentRegion '将数据读入数组，提升读取效率
Set Rng = Nothing 'rng为了保存重复项
Set d = CreateObject("scripting.dictionary") '设置字典变量，用于去重
For J = 2 To UBound(arr) '循环遍历，查找重复项
If d.exists(arr(J, 1)) Then '根据字典里是否有该值，来确定是否有重复
If Rng Is Nothing Then '将重复项，使用union函数，赋值给变量rng
Set Rng = Cells(J, 1).Resize(1, 2)
Else
Set Rng = Union(Rng, Cells(J, 1).Resize(1, 2))
End If
Else
d(arr(J, 1)) = ""
End If
Next J
If Not Rng Is Nothing Then Rng.Delete '如果有重复。即删除
Application.ScreenUpdating = True
End Sub
4、代码运行后实现效果截图
热心网友
时间：2023-10-23 05:39
工具版本——excel2003
步骤方法：
打开一个A列包含有重复值的excel表格，点击含有数据的任意单元格，点击数据——筛选——高级筛选。
在高级筛选里，选择将筛选结果复制到其它位置，列表区域选择A1:A19，复制到选择E2（这个可以任意选），最后勾选选择不重复的记录（这一步最重要）。
3.点击确定以后，重复值就被删除了，只保留唯一值。
热心网友
时间：2023-10-23 05:40
在【数据】下面有【删除重复项】按钮，点一下就可以，注意点之前不要选中A列，只要在区域内的任意单元格就可以。按钮位置见下图：
热心网友
时间：2023-10-23 05:40
如图，首先选中AB两列的数据，然后点菜单数据-->删除重复项，如图设置，确认就可以了。
热心网友
时间：2023-10-23 05:39
此问题可以通过vba来实现
解释说明如下：
1、原始数据情况：
a列数据有重复项目
2、代码位置
鼠标右键点击删除项按钮，选择指定宏
如下图输入代码
3、代码
Application.ScreenUpdating = False '关闭刷屏
arr = [a1].CurrentRegion '将数据读入数组，提升读取效率
Set Rng = Nothing 'rng为了保存重复项
Set d = CreateObject("scripting.dictionary") '设置字典变量，用于去重
For J = 2 To UBound(arr) '循环遍历，查找重复项
If d.exists(arr(J, 1)) Then '根据字典里是否有该值，来确定是否有重复
If Rng Is Nothing Then '将重复项，使用union函数，赋值给变量rng
Set Rng = Cells(J, 1).Resize(1, 2)
Else
Set Rng = Union(Rng, Cells(J, 1).Resize(1, 2))
End If
Else
d(arr(J, 1)) = ""
End If
Next J
If Not Rng Is Nothing Then Rng.Delete '如果有重复。即删除
Application.ScreenUpdating = True
End Sub
4、代码运行后实现效果截图
热心网友
时间：2023-10-23 05:39
工具版本——excel2003
步骤方法：
打开一个A列包含有重复值的excel表格，点击含有数据的任意单元格，点击数据——筛选——高级筛选。
在高级筛选里，选择将筛选结果复制到其它位置，列表区域选择A1:A19，复制到选择E2（这个可以任意选），最后勾选选择不重复的记录（这一步最重要）。
3.点击确定以后，重复值就被删除了，只保留唯一值。
热心网友
时间：2023-10-23 05:40
在【数据】下面有【删除重复项】按钮，点一下就可以，注意点之前不要选中A列，只要在区域内的任意单元格就可以。按钮位置见下图：
热心网友
时间：2023-10-23 05:39
此问题可以通过vba来实现
解释说明如下：
1、原始数据情况：
a列数据有重复项目
2、代码位置
鼠标右键点击删除项按钮，选择指定宏
如下图输入代码
3、代码
Application.ScreenUpdating = False '关闭刷屏
arr = [a1].CurrentRegion '将数据读入数组，提升读取效率
Set Rng = Nothing 'rng为了保存重复项
Set d = CreateObject("scripting.dictionary") '设置字典变量，用于去重
For J = 2 To UBound(arr) '循环遍历，查找重复项
If d.exists(arr(J, 1)) Then '根据字典里是否有该值，来确定是否有重复
If Rng Is Nothing Then '将重复项，使用union函数，赋值给变量rng
Set Rng = Cells(J, 1).Resize(1, 2)
Else
Set Rng = Union(Rng, Cells(J, 1).Resize(1, 2))
End If
Else
d(arr(J, 1)) = ""
End If
Next J
If Not Rng Is Nothing Then Rng.Delete '如果有重复。即删除
Application.ScreenUpdating = True
End Sub
4、代码运行后实现效果截图
热心网友
时间：2023-10-23 05:39
工具版本——excel2003
步骤方法：
打开一个A列包含有重复值的excel表格，点击含有数据的任意单元格，点击数据——筛选——高级筛选。
在高级筛选里，选择将筛选结果复制到其它位置，列表区域选择A1:A19，复制到选择E2（这个可以任意选），最后勾选选择不重复的记录（这一步最重要）。
3.点击确定以后，重复值就被删除了，只保留唯一值。
热心网友
时间：2023-10-23 05:40
在【数据】下面有【删除重复项】按钮，点一下就可以，注意点之前不要选中A列，只要在区域内的任意单元格就可以。按钮位置见下图：
热心网友
时间：2023-10-23 05:40
如图，首先选中AB两列的数据，然后点菜单数据-->删除重复项，如图设置，确认就可以了。
热心网友
时间：2023-10-23 05:40
如图，首先选中AB两列的数据，然后点菜单数据-->删除重复项，如图设置，确认就可以了。
