Jika saya mengerti Anda dengan benar, diberi baris 1 dan 2, Anda ingin menghapus baris 2 jika dan hanya jika A1 = A2, C1 = C2, D1 = D2, E1 = E2 dan F1 = F2.
Inilah yang saya pikirkan. Itu mungkin bisa lebih pendek tetapi itu berhasil:
Sub DeleteDuplicate()
Dim current As String
ActiveSheet.Range("A1").Activate
Do While ActiveCell.Value <> ""
current = ActiveCell.Address
ActiveCell.Offset(1, 0).Activate
Do While ActiveCell.Value <> ""
If ((ActiveSheet.Range(current).Value = ActiveCell.Value) And (ActiveSheet.Range(current).Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value) And (ActiveSheet.Range(current).Offset(0, 3).Value = ActiveCell.Offset(0, 3).Value) And (ActiveSheet.Range(current).Offset(0, 4).Value = ActiveCell.Offset(0, 4).Value) And (ActiveSheet.Range(current).Offset(0, 5).Value = ActiveCell.Offset(0, 5).Value)) Then
ActiveSheet.Rows(ActiveCell.Row).Delete
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop
ActiveSheet.Range(current).Offset(1, 0).Activate
Loop
End Sub
Apa yang dilakukan adalah loop melalui semua baris yang tersisa menggunakan ActiveCell sebagai pointer ke Row yang sedang dievaluasi, dan menyimpan Cell Row "asli" dalam variabel saat ini . Setelah loop berakhir, Sel di bawah arus diaktifkan dan loop evaluasi bagian dalam dimulai lagi.
Jika saya mengacaukan suatu tempat jangan ragu untuk memberi tahu saya :)