作者:乔山办公网日期:
返回目录:excel表格制作
操作步骤如下:
1.删除A列重复的,保留B列值最大的
2.先对B列进行逆向排序
3.选择AB列,并删除重复项
4.勾选A列
5.完成
亲,打开你的Excel文件,按“Alt+F11”打开VBA编辑zd窗口,然后在左侧对应的Sheet上双回击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击答“执行”。
Sub qcf()
Dim d
Set d = CreateObject("Scripting.Dictionary")
Dim i, j, r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To r
For j = 1 To 10
d(Cells(i, j).Value) = ""
Next
Range("L" & i).Resize(1, d.Count) = d.keys
d.RemoveAll
Next
Set d = Nothing
End Sub
把表1拷到表2的下方,在右边插一列,写公式=countif(a:a,a1),向下复制粘贴,然后选中这一来列的数据,复制,粘贴数值,再把表1的内容删除掉。再筛选这一列源的值为1的数据,把筛选出的数据复制,粘贴到新表就行了。
原理,通过公式知道表二与表一中有重复的数据,值大于1的就是有重复的。
复制,粘贴数值zd是防止删除掉表1后,所有的数据都会变成1
筛选出来的1的就是没重复的,保留。
在B2中输入或zhidao复制粘贴下列公式
=INDEX(A:A,SMALL(IF(MATCH($A$2:$A$13,$A$2:$A$13,)=ROW($2:$13)-1,ROW($2:$13),4^8),ROW(A1)))&""
按三键CTRL+SHIFT+ENTER结束公式输入内
下拉填充
此公式的结果容会将A列的数值,转换为文本