Excel 如图所示，“大量”重复数据，怎么用公式筛选出来？

发布网友 发布时间：2022-03-09 00:51

我来回答

共6个回答

热心网友 时间：2022-03-09 02:20

有两个不用公式的方法：一是高级筛选，直接可以选择不重复、复制到新区域，操作如下图：

二是系统的删除重复项，如果需要原始数据，先整体复制过去，然后点删除重复项，直接剩下唯一部分，干干净净，瞬间完成，轻轻松松，指指点点。

热心网友 时间：2022-03-09 03:38

没行列号没法给准公式，自己修改
E5=INDEX(B$5:B$1000,MATCH(,COUNTIF($E$4:$E4,$B$5:$B$1000),))&""
要按ctrl+shift+enter三键
右拉下拉

热心网友 时间：2022-03-09 05:13

可以写个VBA函数,我知道楼主可能不会写,所以拷贝以下代码到宏过程里.

首先,你先创建宏,设置快捷键,然后ctrl+V 以下代码到宏过程里头.

在执行前,用鼠标选定区域,这个区域必须是两列的(就象你提供的图片一样)

然后,用你设置的快捷键执行代码....

 Dim x, y, str
    For Each x In Selection
         y = y + 1
         str = str & x & "§"
         If y Mod 2 = 0 Then
            str = Left(str, Len(str) - 1) & vbNewLine
         End If
    Next
        str = Left(str, Len(str) - Len(vbNewLine))
    
    str = Split(str, vbNewLine)
    Dim dd
    For x = 0 To UBound(str) - 1
        For y = x + 1 To UBound(str)
            If str(x) = str(y) Then
                GoTo F1
            End If
        Next
        dd = dd & str(x) & vbNewLine
F1: Next
        dd = dd & str(x) & vbNewLine
    dd = Left(dd, Len(dd) - Len(vbNewLine))
    dd = Replace(dd, "§", vbNewLine)
    dd = Split(dd, vbNewLine)
   
    x = Selection.Row
    y = Selection.Column + 5
    
    Dim i, ii, ix
    ix = 0
    Application.ScreenUpdating = False
    For i = 0 To UBound(dd) / 2
        For ii = 0 To 1
            Cells(x + i, y + ii) = dd(ix)
            ix = ix + 1
        Next
    Next
    Application.ScreenUpdating = True

 

 

   

热心网友 时间：2022-03-09 07:04

在数据菜单里面找到筛选,然后是高级筛选,选择不重复记录.

热心网友 时间：2022-03-09 09:12

07或以上的版本有去重功能
03的用高级筛选——选择不重复内容

热心网友 时间：2022-03-09 11:37

你复制的这个文档没错吧 ，后面数字是123345么？两个3？