短网址生成站长工具,指数基金定投怎么买,陕西省建设执业注册中心网站,php网站建设价格各位朋友#xff0c;你们好#xff0c;今天和你们分享Excel中提取不重复值的几种方法#xff0c;着重介绍【5种】基础操作方法#xff0c;另外附送一个VBA去重代码#xff0c;拿去就可以直接使用。一、基础操作方法1、数据工具直接去重(见下图)数据工具去重2、高级筛选(见…各位朋友你们好今天和你们分享Excel中提取不重复值的几种方法着重介绍【5种】基础操作方法另外附送一个VBA去重代码拿去就可以直接使用。一、基础操作方法1、数据工具直接去重(见下图)数据工具去重2、高级筛选(见下图)高级筛选去重3、数据透视表(见下图)数据透视表方法去重4、条件格式(见下图)条件格式去重注①条件格式去重的公式AND($A1,COUNTIF($A$1:$A1,$A1)1)②设置的单元格格式为【;;;】这个表示什么意思可以查看我之前的文章③这种方式并不是真正意义的去重只是将重复的内容不显示出来点击链接带你认识【】5、使用数据表的设计模式(见下图)数据表的设计模式数据去重二、VBA方法(下面的代码可直接拿去用)VBA去重VBA去重最常用的方法就是数组字典本例使用的代码如下Sub 数据去重() Dim Arr, Brr, a%, b%, Str1, Str2 Dim Dic As Object Set Dic CreateObject(scripting.dictionary) Set Str1 Application.InputBox(请选择要去重的数据区域, 选择数据, , , , , , 8) Arr Range(Str1.Address) If Not IsArray(Arr) Then Exit Sub 如果不存在数据源选项则arr非数组那么退出程序 For a 1 To UBound(Arr, 1) For b 1 To UBound(Arr, 2) If Arr(a, b) Then Dic(Arr(a, b)) 单元格非空则装入字典 Next Next Brr Dic.keys Set Str2 Application.InputBox(请确定数据存放的单元格, 选择数据存放的单元格, , , , , , 8) Range(Str2.Address).Resize(Dic.Count, 1) Application.Transpose(Brr) Set Dic Nothing 释放字典内存End Sub此代码做了灵活设置处理支持自己选择区域而并非只能对固定区域内容去重有需要的朋友可以直接拿去使用。三、函数公式去重1、公式组合套路用公式对数据去重效率不是很高且遇到数据量很大的时候文件的运行会卡顿。但是既然说到去重还是应该介绍下公式去重的套路(效果见下图)。公式去重下面是去重公式的套路组合拿去就可以直接套用INDIRECT(ASMALL(IF(MATCH(数据区域,数据区域,)ROW($1:$16),ROW($1:$16),4^6),ROW(A1)))套路解析①【A】表示数据所在的列②【数据区域】需要去重的数据需要绝对引用③【ROW($1:$16)】这里的16表示数据区域的高度要根据实际情况调整④公式是数组公式需要按组合键【CtrlShiftEnter】结束。当然此处也可以用OFFSET函数或者INDEX函数根据自己的情况合理选择即可。2、高版本专有函数如果你是Office 365的用户还有一个更方便的函数【UNIQUE 函数】UNIQUE 函数去重3、自定义函数如果是低版本的用户不想用复杂的套路组合又要实现不重复数据的实时更新就只能使用自定义函数了。效果见下图自定义函数去重自定义函数的代码如下Function QuChong(Rng As Range, Optional i As Integer, Optional Str As String ,)函数作用去除重复项函数名QuChong。此函数有三个参数Rng、i、StrRng需要去重的数据区域i(可忽略)去重选项如果i0则去重后合并如果i0则依次提取出内容Str(可忽略)用于当i0时合并用的连接符。Dim Arr,Brr, a%, b%Dim DicSet Dic CreateObject(scripting.dictionary)If Rng.Count 0 Then QuChong Arr RngFor a 1 To UBound(Arr, 1) For b 1 To UBound(Arr, 2) If Arr(a, b) Then Dic(Arr(a, b)) 单元格非空则装入字典 End If NextNextBrr Dic.keysIf i 0 Then QuChong VBA.Join(Dic.keys, Str)ElseIf i 0 Then If i Dic.Count Then QuChong Brr(i - 1) Else QuChong End IfElse QuChong 参数错误End IfEnd Function函数作用去除重复项;函数名QuChong。此函数有三个参数Rng、i、Str;Rng需要去重的数据区域;i(可忽略忽略是默认为0)去重选项如果i0则去重后合并如果i0则依次提取出不重复内容;Str(可忽略忽略时默认为逗号)用于当i0时合并用的连接符。我是上班下班因为爱好办公软件、喜欢分享。所以来到这里将我的学习心得和踩过的一些坑和大家聊聊希望大家学习我成功的经验避开我踩过的坑。我和你们一起进步。好了今天就聊到这里感谢各位朋友的关注和支持。如果你喜欢我分享的内容请点个赞支持下如果你觉得我分享的内容对你有帮助可以关注我如果要看我以前分享过的好玩的内容大家可以去我的主页查看历史文章。
