excel删除多列(excel删除多列重复的数据只保留一个)

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