Sub 去重()

//Dim AA11 As String

Dim i As Integer

For i = 216 To 1 Step -1

    If Cells(i, 2) = Cells(i - 1, 2) Then

    Rows(i).Delete

    End If

Next

End Sub