【EXCEL】如何对多行数据批量去重? |
您所在的位置:网站首页 › excel两列重复数据 › 【EXCEL】如何对多行数据批量去重? |
问题案例 我们在使用Excel时常常会碰到去重的问题,对于简单的场景,通常会选择目标列直接点击Excel自带的“删除重复项”去重,但如果碰到类似下表,对成百上千行people的所有features去重,如果进行转置后对每一个人“删除重复项”,显然是不可行的,下面我们来看看如何批量去重。 复制源数据后,进行“选择性粘贴”,勾选“转置”。这里要注意的是:WPS和Excel03版的最大列为256列,Excel07版以后的最大列为16484列,如果源数据行数超过限制列是转置不了的。 点击“开发工具”,打开VB编辑器,添加“模块”,写入代码。 Sub 批量删除重复值() Do Until IsEmpty(ActiveCell) '循环语句:直到ActiveCell为空 ActiveCell.Font.Bold = True '给当前ActiveCell字体加粗 ActiveCell.Offset(0, 1).Select '水平右移选取ActiveCell Columns(ActiveCell.Column).RemoveDuplicates Columns:=1, Header:=xlYes '去重语句:对ActiveCell的Column去重 Loop End Sub返回工作表,点击“插入”,选择按钮控件,在新对话框中找到“批量删除重复值”的宏,点击确定,最后选择首列的Cell,点击按钮,就完成了批量去重的操作啦。 以上只是批量去重方法的一种,代码巧用了Do Until进行遍历,比较简单好理解,但如果数据量过大,可能会有一定限制且影响性能。欢迎读者提出更多更好的解决方法。 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |