xoá dòng thoả điều kiện

[Ductinh]

Em nhờ các anh chị giúp em với, ở ô B7:B500 em có các mã hiệu mà tổng kí tự của nó là 7, 8, 9 (ví dụ : VT.D300; AD.11221; AB.651201; . . .). Bây giờ em muốn xoá dòng từ B7 đến B500 mà tổng các kí tự của nó là 8 (ví dụ xoá dòng chứa mã AD.11221).

 

[Hoàng Trọng Nghĩa]

Bạn gửi File lên đi để dễ làm hơn bạn ơi, làm thì dễ thôi, nhưng có file thì không phải điều chỉnh đi điều chỉnh lại.

 

[Ductinh]

Nhờ bạn giúp mính với! Cám ơn bạn nhiều

 

[Hoàng Trọng Nghĩa]

Nhờ bạn giúp mính với! Cám ơn bạn nhiều

Trời ơi, sao gửi file lên mà khóa VBA sao mà làm cho bạn hả trời?

 

[Ductinh]

Mính quên mở, ma khẩu là 111

 

[newhope2005]

Cái này sai ở đâu mà nó không chạy nhỉ

Sub xoadong()
Dim Rng As Range
On Error Resume Next
For Each Rng In Sheet1.Range("B7:B" & Sheet1.[B65500].End(xlUp).Row)
If Len(Rng) = 8 Then Rng.EntireRow.Delete
Next
End Sub

 

[ndu96081631]

Cái này sai ở đâu mà nó không chạy nhỉ

Chạy thì chạy rồi nhưng phải chú ý 2 chổ:
- Có thật bạn xóa đòng tại sheet1 không (xem lại tên sheet)
- Muốn xóa dòng phải duyệt từ dưới lên (kiểu vầy: For i = Sheet1.[B65500].End(xlUp).Row To 7 Step -1)

 

[Hoàng Trọng Nghĩa]

Bạn làm như vầy:

Sub XoaLen8()
    Dim lRow As Long
    [COLOR=#ff0000][B]For lRow = Sheets("DGR").Range("B65536").End(xlUp).Row To 7 Step -1[/B][/COLOR]
        If Len(Sheets("DGR").Range("B" & lRow)) = 8 Then Sheets("DGR").Range("B" & lRow).Offset(, -1).Resize(, 9).Delete 2
    Next
End Sub