excle表格出现重复的数字，把它们全部删除，一个都不留。不是删除重复项，有没有方法？看下如图

发布网友发布时间：2022-05-06 19:42

我来回答

共5个回答

热心网友时间：2023-09-13 18:48

如果你要替换掉的关键词比较多，用普通方法的话，是很没效率的。

可考虑用VBA代码解决。

方法如图：

点顶部的“开发工具”---点“VisualBasic”打开VB编辑器，

在画蓝色框的区域内的任意位置点右键---插入模块，

点击模块，在右侧输入代码，

点画红色圈的那个按钮可执行代码命令。

为方便复制，代码如下：

Sub 查找清除()
    Dim i, t
    For i = 2 To 7 '遍历关键词所在行
        s = Range("A65536").End(3).Row '赋值s为A列最后一个数据的行号
        For t = 1 To s  '遍历A列数据所在行
            If Range("A" & t) = Range("C" & i) Then
            Range("A" & t).ClearContents  '如果At=Bi那么清空At单元格
            End If
        Next
    Next
End Sub

追问谢谢啦！

热心网友时间：2023-09-13 18:48

可以用VBA写程序实现。之前帮别人写过一个检查重复内容并标记成红色的，可以给你参考一下：

'检查重复单元格

Sub plicateCheck()

Dim str As String

Dim colm, row As Integer

colm = 5 '列数，自己定义

row = 7 '行数，自己定义

For i = 1 To row Step 1 '遍历行

If Len(Sheet2.Cells(i, 1)) = 0 Then

Exit For

End If

For j = 1 To colm Step 1 '遍历列

If Len(Sheet2.Cells(i, j)) > 0 Then

str = Sheet2.Cells(i, j)

Dim temp As Integer

temp = j + 1

For m = i To row Step 1

For n = temp To colm Step 1

If Len(Sheet2.Cells(m, n)) > 0 And Sheet2.Cells(m, n) = str Then

Sheet2.Cells(i, j).Interior.ColorIndex = 3

Sheet2.Cells(m, n).Interior.ColorIndex = 3

End If

Next n

temp = 1

Next m

End If

Next j

Next i

End Sub

下面是运行结果，你按照自己的需求改改就行了

热心网友时间：2023-09-13 18:49

在要删的数据列旁边写一个如下图的vlookup语句，把想删的标记出来

然后筛选去掉 #N/A 的

然后选中筛选出来的数据，按下delete就行了

热心网友时间：2023-09-13 18:49

可以通过条件格式标记出重复值
然后筛选，通过颜色筛选出标记的重复值
最后将标记出的全选删除单元格，或者清除内容再调整位置

热心网友时间：2023-09-13 18:50

添加一辅助列，使用countif来计算每一行出现的次数。然后对国辅助列进行降序排列。删除大于1的行。