EXCEl 删除多列重复数据

发布网友发布时间：2022-05-14 10:52

共5个回答

热心网友时间：2023-10-14 15:43

你好！根据楼主的意思，其实可以使用VBA程序进行处理，方便快捷。看不到楼主给出的行标号和列标号，也就大致给出如下示例：

一、VBA程序代码如下：（可以根据实际需要自行修改）

Sub Delete_C()
Dim i, j, k
On Error Resume Next
Set MySheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1

For i = 5 To 1 Step -1  '从第5列到第1列
For j = 1 To 1000  '从第1行到1000行
  If MySheet1.Cells(j, i) <> "" Then
   k = Application.WorksheetFunction.CountIf(MySheet1.Range("A1:E28"), MySheet1.Cells(j, i))
   '查看A1:E28里面存在重复的个数
   If k > 1 Then  '如果存在重复
    MySheet1.Cells(j, i) = ""  '重复的单元格置空
   End If
  End If
Next
Next

End Sub

二、VBA程序运行之后的结果如下：

热心网友时间：2023-10-14 15:43

截图无行列号，我自己模拟了一串数字，如图A1:D16

在隔壁F1单元格输入如下公式后向右填充，再向下填充即可

=IF(COUNTIF($A$1:$D$16,A1)>1,"",A1)

追问老大。你这是重复的都删除完了，我是比方说有3个2或者4个1，保留一个2，一个1

热心网友时间：2023-10-14 15:44

用条件格式可以实现批量清除

如上图设置条件格式

复制到word，再从Word复制粘贴回excel，用来固化单元格格式

查找替换，然后格式刷清除格式

热心网友时间：2023-10-14 15:44

见截图，E1输入 =IF(COUNTIF($A$1:A1,A1)>1,"",A1) 下拉

F1输入 =IF(COUNTIF($A$1:B$10,B1)>1,"",B1) 下拉，右拉

热心网友时间：2023-10-14 15:45

在excel中有一个功能是“删除重复项”，你只需使用这个功能即可删除重复数据，然后确保各行或各列数据的唯一性，具体操作步骤如下：
选中需删除重复数据的单元格
点击工具栏中的"数据"一栏，选择"重复项"
在弹出来的选项中选择“删除重复项”，然后点击“设置”，最后按“确定”即可。追问我这边早就试过了，没用