New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Sub DeleteDupRows() Dim i Dim J Dim RowsA Dim Val1 Dim Val2 Application.ScreenUpdating = False RowsA = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To RowsA Val1 = Cells(i, 2) For J = i + 1 To RowsA Val2 = Cells(J, 2) If Val1 = Val2 And Cells(i, 13) = "No Constraints" Then Rows(J).EntireRow.Delete End If Next J Next i Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.