excel取不重复值的四种方法

   2020-11-20 IP属地 浙江1130
核心提示:excel取不重复值的方法真是多种多样,比如使用高级筛选、SQL、函数、VBA完成excel取不重复值。下面以一个例子来说明excel取不重复值的方法。
内容提要:excel取不重复值的方法真是多种多样,比如使用高级筛选、SQL、函数、VBA完成excel取不重复值。下面以一个例子来说明excel取不重复值的方法。

excel取不重复值方法一:高级筛选

A列姓名有重复的,将A列姓名取不重复值之后放在C列。

操作方法是:单击数据――高级,打开“高级筛选”对话框,进行如下图设置。

excel取不重复值方法二:SQL

单击数据――现有连接,单击最下面的“浏览更多”,按照路径找到文件,弹出的“导入数据”对话框,单击“属性”,打开“连接属性”对话框,切换到“定义”选项卡,在“命令文本”输入:selectdistinct姓名as不重复姓名from[Sheet1$],确定。

SQL的动画演示相关教程参考论坛帖子:http://www.blwbbs.com/forum.php?mod=viewthread&tid=2141&highlight=select

excel取不重复值方法三:VBA

按ALT+F11,打开VBE编辑器界面,单击插入――模块,复制下面的代码,然后按F5键运行,在B1开始提取A列不重复姓名。

Subexcel取不重复值()
 DimdAsObject
 DimlRowAsLong
 DimiAsLong
 DimstrAsVariant
 DimstrKeyAsString
 Setd=CreateObject("scripting.dictionary")
 lRow=Range("A65536").End(xlUp).Row
 str=Range("A1:A"&lRow)
 Fori=1TolRow
   strKey=CStr(str(i,1))
    IfNotd.exists(strKey)Then
       d.AddstrKey,strKey
    EndIf
 Nexti
 Range("B1").Resize(UBound(d.keys)+1,1)=Application.Transpose(d.keys)
EndSub

excel取不重复值方法四:函数

B1单元格留空或者输入文字“不重复姓名”,然后在B2单元格输入公式:=OFFSET($A$1,MATCH(,COUNTIF($B$1:B1,$A$2:$A$15),),)&"",按ctrl+shift+enter,三键结束数组公式,完成不重复值提取。

 
反对 0举报收藏 0打赏 0评论 0
更多>相关评论
暂时没有评论,来说点什么吧
更多>同类办公
推荐图文
推荐办公
点击排行