专栏名称: Excel之家ExcelHome
excel技巧原创教程每日推送,excel表格职场模板干货仓库,图文/视频/动画等多种教学方式分享excel操作技巧教程/excel函数公式教程/excel数据透视表教程/excel图表教程/Word教程,助您轻松提高办公效率!
目录
相关文章推荐
51好读  ›  专栏  ›  Excel之家ExcelHome

Excel工作表提取不重复数据,职业表亲必备五招

Excel之家ExcelHome  · 公众号  · Excel  · 2017-06-01 06:53

正文


高级筛选法


此方法主要利用【数据】选项卡下的【高级筛选】功能,下面大家来看演示:

1、  选择要筛选的数据源,然后选择【数据】选项卡下【高级】命令。

2、  在弹出的对话框中,勾选选择不重复的记录,列表区域即你想要筛选的区域。 选择【确定】就OK啦。



数据透视表法


1、单击数据区域任意单元格,选择【插入】选项卡下的数据透视表命令


2、在弹出的【创建数据透视表】对话框中保持默认设置,生成一个透视表。

3、拖拽字段到数据透视表的行区域就OK啦



数组公式法


在随便一个单元格中输入数组公式

=INDEX(A:A,SMALL(IF(MATCH(A$1:A$12,A$1:A$12,)=ROW($1:$12),ROW($1:$12),""),ROW(A1)))&""

按Shift+Ctrl+回车,然后向下拖动就完活喽。


VBA法


按Alt+F11键,打开VBE窗口,在代码对话框中输入以下代码,点击【运行】按钮即可:

Sub 合并()

Dim irow&, iroww&

irow = 1

iroww = 1

Range("d1") = Range("a1")

Do

If Cells(irow, 1) Cells(irow + 1, 1) Then

iroww = iroww + 1

Cells(iroww, 4) = Cells(irow + 1, 1)

irow = irow + 1

Else

irow = irow + 1

End If

Loop Until Cells(irow, 1) = ""

End Sub

这个代码中,数据源是A列,存放结果位置是D1单元格,大家使用时可以根据实际数据自行修改。


SQL语句法


1、选择【数据】选项卡下的【获取外部数据】→【现有连接】


2、在弹出的【现有连接】对话框中选择【浏览更多】

3、 依次选择存放数据的 工作簿和工作表。

4、在弹出的对话框中选择【属性】


5、在命令对话框里输入代码,点击确定:

select distinct * from[Sheet1$]

代码中的Sheet1是工作表名称,使用时注意修改。


小潜潜的话


技巧法 ,只能一次性操作,一旦数据源变化,就要推翻重做,而且步骤繁琐,你的约妹时间就这样被一点点的摧残掉了,多可惜呢。

再来看看 公式法 吧,虽然公式法从一定程度上来说可以做成适应数据源变化的模板,但这是数据量小的情况,试想一想如果数据量非常非常大话,估计你就会被速度弄得欲哭无泪了







请到「今天看啥」查看全文