Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
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
|Dynamic Excel Input Form||29||32|
|related question to modify VBA, how to get it from workbooks instead of worksheets||6||18|
|why excel offset of negative and positive shows incorrect Delta, please see attached||2||17|