Lương Tuấn Ba
Yêu THVBA
Mã:
Option Explicit
Sub xoadongcodieukien()
Dim dc&, i&
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
For i = dc To 2 Step -1
If (Sheet1.Range("A" & i) = Sheet1.Range("C1").Value) Then
Sheet1.Rows(i).Delete
End If
Next i
End Sub