Bạn dùng kỹ thuật Hook quá dzữ luôn. Cám ơn bạn nha.
Bạn kiểm tra dùm mình xem đoạn code sau trong nút nhấn xoá thực thi mỗi lần nhấn xoá vài dòng thoả điều kiện rồi ngưng và lại nhấn nút
À bi thêm cột B trong file dãy kí tự có độ dài 6 thử nha.
With Activesheet
i = 12
While Len(Cells(i, 2).Value) = 6 and i < 20
.Range("B" & i).EntireRow.Delete
i = i + 1
Wend
End with
Tks bạn nhiều