如何使用VBA删除多列完全相同的行

1、如图测试表格中AB两列中有完全相同的行，下面操作就删除重复的行，只保留一条；

2、按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【删除重复的行】；

3、通过双循环语句逐行遍历数据（For i = 1 To Sheet1.UsedRange.Rows.Count:For j = i + 1 To ActiveSheet.炽扃仄呦UsedRange.Rows.Count:next:next)；

4、在循环体内依次逐行对比两列完全相同的数据，如果有相同的行，在行末E列单元格添加重复标识（If Cells(i, 1) = Cells(j, 1) And Cells(i, 2) = Cells(j, 2) And Cells(j, 5) = "" Then Cells(j, 5) = "重复"End If）；

5、对E列进行定位查找，选中重复标识的行并整行删除（Set Rng = ActiveSheet.Range("E:E").SpecialCells(xlCellTypeConstants)：Rng.Select：Selection.EntireRow.Delete）;

6、执行宏后，重复的行删除了。