1. excel删除多列重复的数据只保留一个
亲，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Sub qcf()
Dim d
Set d = CreateObject("Scripting.Dictionary")
Dim i, j, r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To r
For j = 1 To 10
d(Cells(i, j).Value) = ""
Next
Range("L" & i).Resize(1, d.Count) = d.keys
d.RemoveAll
Next
Set d = Nothing
End Sub
2. excel一列中重复的数据都删除
EXCEL 把重复的数据全删掉的具体步骤如下：我们需要准备的材料分别是：电脑、Excel表格。
1、首先我们打开需要编辑的Excel表格，点击“B”，全选B列的数据。
2、然后我们点击打开数据中的“删除重复项”。
3、然后我们在弹出来的窗口中点击“删除重复项”。
4、然后我们在弹出来的窗口中点击“确定”即可。
3. excel删除多列重复的数据只保留一个数值
1、打开【excel】，选中要进行筛选重复的单元格，然后在上方的工具栏中，点击【数据】，在【数据工具】一栏中，点击【删除重复项】。
2、在弹出来的窗口中，选择要进行操作的列，最后点击【确定】
3、弹出窗口，点击确定。数据中的重复项就被删除掉了。
4. excel删除重复值只保留一个
第一种方法：首先打开excel表格，选中我们要处理的区域，点击“数据”选项，选择“删除重复项”。然后然后弹出一个对话框，选择默认全选，A列，点击确定，重复数据就保留了一个。
第二种方法：选中区域，点击“数据”选项，选择“高级”图标。然后在“高级筛选”的对话框中，在“选择不重复的记录”前面打上对勾，点击确定，重复数据就保留了一个。
5. excel把重复数据删掉,一个都不保留
Excel表里面重复项只想保留一个。我们就需要将所有的重复项找出来。先要找到查找替换工具，在文件的下拉菜单里面，进入到这个页面后，我们在查找的搜索项里面输入这个重复项的内容，不停的点下一个并将其填充一个颜色，然后再回到整个的工作列表，将填充颜色的保留一个，其他的全部删除就可以了。
6. excel多列删除重复数据保留一条
假设数据在A列，留小于等于5重复的，用辅助列，B1用公式：
=IF(COUNTIF(A$1:A1,A1)<6,"保留","删除")
下拉；
然后，全选公式列，右击“复制”，再右击B1，“选择性粘贴”，选择“数值”，粘贴到原位置；
对B列排序，删除“删除”的行；
最后删除B列。
7. excel重复数据只保留一个并把删除同一行的非重复项
将鼠标放在有数据的格上，在选项卡中点击数据选项卡
数据工具栏内点击删除重复项
在跳出的对话框中选择你要上出数据的那，点击确定
如果有重复值会跳出，找到多少重复值已经删除，保多少唯一值的对话框，如果没有重复值，会跳出没有找到重复值的对话框
8. excel同一列重复数据保留一个
第一步，首先打开电脑，然后点击Excel文档进入，然后在菜单栏‘开始’–“筛选”。
第二步，在“筛选”下拉选项中点“高级筛选”。
第三步，在弹出的“高级筛选”窗口，列表区域选择A列，条件区域不用选，也可以选择在本列上显示筛选的内容，也可以选择“复制到”在别的地方显示，然后勾选下方的“选择不重复的记录”，然后点击确定。
第四步，回到文档表格中，就可以看到在A列上显示筛选不重复的数据。
第五步，点选“将筛选结果复制到其它位置”，在“复制到”区域选择想要的位置。
第六步，确定后，表格中出单独显示不重复的数据列表。
9. excel怎么删除重复数据只保留一个
使用高级筛选功能实现过滤重复数据，以office2013为例：
打开excel2013 ,依次点击菜单“数据”-“筛选”-“高级”
在打开的高级筛选对话框中，选择显示结果方式（若选择“将筛选结果复制到其他位置”时，需要填写‘复制到’区域）、筛选数据区域，并勾选“选择不重复的记录”
点击【确定】按钮，表格中重复的数据会只显示一个在目标位置。
10. excel删除多列重复的数据只保留一个数字
亲，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。
关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Sub qcf()Dim dSet d = CreateObject("Scripting.Dictionary"
)Dim i, j, r As Longr = Cells(Rows.Count, "A").End(xlUp).RowFor i = 1 To r For j = 1 To 10 d(Cells(i, j).Value) = "" Next Range("L" & i).Resize(1, d.Count) = d.keys d.RemoveAllNextSet d = NothingEnd Sub
- 相关评论
- 我要评论
-