工具\材料
excel软件
1、首先打开excel表格,如下图所示。
2、接着用鼠标全选表格。
3、点击菜单栏中的的“数据”选项打开,点击“高级筛选”。
4、接着会弹出一个“高级筛选”的选项,如下图。
5、点击“将筛选结果复制到其他位置”选项。
6、最后勾选选择不重复的记录,如下图所示。
插入3列B列C列F列,假如数据在A列,则在B2输入=INDEX($A$2:$A$100,MATCH(,COUNTIF($B$1:B1,$A$2:$A$100),))&""
数组公式,其余参照执行,需多次编辑
D2输入=INDEX($C$2:$C$100,MATCH(,COUNTIF($D$1:D1,$C$2:$C$100),))&""
F2输入=INDEX($E$2:$E$100,MATCH(,COUNTIF($F$1:F1,$E$2:$E$100),))&""都是数组公式
成这样的形状
直接用高级筛选选择不重复的然后复制到别的位置
.假设上面三列分别是ABC列,则在D1输入公式
=if(countif(A$1:A1,A1)=1,A1,"")
向右填充公式至F1,向下填充。
复制DEF三列数据,选择性粘贴,并排序即可
Sub 宏1()
'
' 宏1 宏
'
'
Range("A2:A7").Select
ActiveSheet.Range("$A$2:$A$7").RemoveDuplicates Columns:=1, Header:=xlNo
Range("B2:B7").Select
ActiveSheet.Range("$B$2:$B$7").RemoveDuplicates Columns:=1, Header:=xlNo
Range("C2:C7").Select
ActiveSheet.Range("$C$2:$C$7").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
——————————————————————————————
如果觉得复杂的话,其实就是分别选中各部门的全部名单,如先选定部门1下边的A2:A8,按菜单上的数据——删除重复项——以当前选定区域排序——删除重复项——确定。重复操作选定部门2、部门3下边的数据删除重复项,就大功告成了。