如何在EXCEL表中快速筛选出所有的相同元素

如何在EXCEL表中快速筛选出所有的相同元素

可通过使用公式在EXCEL表中快速筛选出所有的相同元素
具体方法步骤：
增加插入一个辅助列
使用相应公式
对辅助列筛选符合条件的行，即可



其中步骤2可以使用下列公式
公式1：


 在K1单元格输入
=COUNTIF(A1:J1,1)

然后下拉，最后筛选K列值大于等于1的行即可。


公式2：


在K1单元格输入
=MIN(A1:J1)=1

然后下拉，最后筛选K列值等于TRUE的行即可。

在第11列即K列输入公式
=countif(a1:j1,1)=10
下拉复制公式
显示TRUE的就是这一行中10个都是你需要的数据
上面公式中，查找的是1，如果你要换其他。自己改成相应的数据就可以了。

建议通过增加辅助列筛选的办法。

比如你的 1 可能出现在 A到F列， 在G1输入
=COUNTIF(A1:F1,1)

然后下拉，最后筛选 G列值大于等于1的即可。

用条件格式，例如：
选定10行10列-开始-条件格式-突出显示单元格规则-等于-1-设置颜色-确定。

如果还要选中所有包含1的行可用VBA来做，运行如下VBA程序：
Sub select_1()
Dim i As Integer
Dim rag As Range, rag1 As Range
Set rag = Selection
For i = 1 To rag.Range("A1").End(xlDown).Row
  If Application.WorksheetFunction.CountIf(rag.Range(i & ":" & i), 1) > 0 Then
    If rag1 Is Nothing Then
      Set rag1 = rag.Range(i & ":" & i)
    Else
      Set rag1 = Union(rag1, rag.Range(i & ":" & i))
    End If
  End If
Next i
rag1.Select
End Sub
你可以在工作表状态，按Alt+F11进入VBA编辑器，然后把上面的程序代码copy进去。这时程序代码有可能变成一行，你可以在该换行处插入回车。你也可以随便找一个百度知道的问题来回答（但不要提交），把我给你的程序copy进去，然后再从那里复制copy到VBA编辑器。
按Alt+F4回到工作表状态，进行如下操作：
选中你要筛选的区域（例如10行10列）。
开发工具-宏-Sheet1.select_1-执行。
这样你刚才选中的你要筛选的区域中所有包含1的行被选中了。