如果找到，如何快速搜索然后更新/删除行

I am doing the code that.

我在做代码。

Sub DeleteProjectDuplicate()
    Dim BaseWorkbook As Workbook
    Set BaseWorkbook = ThisWorkbook
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Dim i, j As Long
    Dim needDelete As Boolean
    i = 4
        Do While BaseWorkbook.Sheets("Project Info").Cells(i, 10).Value <> ""
            needDelete = False
                For j = 3 To i - 1
                    If BaseWorkbook.Sheets("Project Info").Cells(i, 10).Value = BaseWorkbook.Sheets("Project Info").Cells(j, 10).Value Then
                        needDelete = True

                        If BaseWorkbook.Sheets("Project Info").Cells(i, 7).Value > BaseWorkbook.Sheets("Project Info").Cells(j, 7).Value Then
                            BaseWorkbook.Sheets("Project Info").Cells(j, 7).Value = BaseWorkbook.Sheets("Project Info").Cells(i, 7).Value
                        End If
                        Exit For
                    End If
                Next j
                If needDelete Then
                    BaseWorkbook.Worksheets("Project Info").Rows(i).EntireRow.Delete
                Else
                    i = i + 1
                End If
        Loop
    MsgBox ("Complete")
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
Sub Delete