EXCEL删除一列重复数据所在行保留最后一行的宏

Question

A B C D E F
1 2 3 4 5 6
1 2 3 4 5 5
2 2 3 4 5 6
1 2 3 4 5 7
如上面所示A列重复数据是1想把是A列是1的前两行正行删除保留4行5行想达到的效果如下
A B C D E F
2 2 3 4 5 6
1 2 3 4 5 7
请告诉帮忙编个宏，谢谢。

Answer 1

Sub jk()
Dim i, j, k
For k = 1 To 6
For i = Cells(1, k).End(4).Row To 2 Step -1
For j = 2 To i - 1
If Cells(j, k) = Cells(i, k) Then
Cells(j, k) = ""
End If
Next
Next
Next
Columns("A:F").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp

End Sub追问

现实表A列是AL列行数有5000行这个代码怎么更改啊

追答

Sub jk()
Dim i, j, k
For k = 1 To 38
For i = Cells(65536, k).End(3).Row To 2 Step -1
For j = 2 To i - 1
If Cells(j, k) = Cells(i, k) Then
Cells(j, k) = ""
End If
Next
Next
Next
Columns("A:AL").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp

End Sub