如何使用VBA删除多列完全相同的行呢？下面我来操作演示一下，希望对大家有用！
工具/原料
联想ThinkPadX13
Windows7或10
Excel2016
方法/步骤
1、如图测试表格中AB两列中有完全相同的行，下面操作就删除重复的行，只保留一条；
2、按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【删除重复的行】；
3、通过双循环语句逐行遍历数据（Fori=1To讵症慧鹱Sheet1.UsedRange.Rows.Count:Forj=i+1ToActiveSheet.炽扃仄呦UsedRange.Rows.Count:next:next)；
4、在循环体内依次逐行对比两列完全相同的数据，如果有相同的行，在行末E列单元格添加重复钿泼兽匿标识（IfCells(i,1)=Cells(j,1)AndCells(i,2)惺绅寨瞀=Cells(j,2)AndCells(j,5)=""ThenCells(j,5)="重复"EndIf）；
5、对E列进行定位查找，选中重复标识的行并整行删除（Se隋茚粟胫tRng=ActiveSheet.Range("E:E").胨检馁秣SpecialCells(xlCellTypeConstants)：Rng.Select：Selection.EntireRow.Delete）;
6、执行宏后，重复的行删除了。
