1、首先打开需要编辑的Excel表格,右键单击工作表的标签,选择打开“查看代码”。
2、然后在弹出来的窗口中点击输入:Sub删除重复行()DimxRowAsIntegerDimiAsIntegerxRow=Range("B65536").End(xlUp).RowFori=2ToxRowForj=i+1ToxRowIfCells(j,2)=Cells(i,2)ThenRange(Cells(j,1),Cells(j,256)).Rows.Deletej=j-1xRow=xRow-1EndIfNextNextEndSub3、然后点击左上角的保存按钮进行保存,之后运行该代码或运行宏“删除重复行”即可。
4、然后就可以删除重复数据的整行。


- 相关评论
- 我要评论
-