a8350070

Private Sub CommandButton1_Click()
Dim myRow As Integer, d, i As Integer

'Sheets("final").Activate ' ¤£­n³o¤@¦æ
With Sheets("final")
myRow = .Cells(1, 1).CurrentRegion.Rows.Count
d = 1
   For i = 1 To myRow
     If .Range("V" & d).Value = ComboBox1.Value Then '¥[¤@ÂI
       .Rows(d).Delete Shift:=xlUp '¥[¤@ÂI
         Else
       d = d + 1
     End If
   Next i

End With

End Sub