xóa 1 hàng khi có 1 ô không có giá trị (1 người xem)

[lamho27]

chào các bạn trong diển đàn,
em muốn xóa 1 hàng khi trong hàng đó có 1 ô không có giá trị ( ex: trong bản tính của em từ ô A8 đến ô A44 , nếu trong ô mà trống thì hàng đó sẽ được dấu đi )

 

[SA_DQ]

Trước tiên các ô trong cột 'B' mình không rớ tới được; nhưng bằng đoạn Code dưới đây, mình biết được các ô 'B' này trống, cùng với ô D8: 9, 14, 16, 21, 23, 28, 30, 35, 37, 42-44

Option Explicit
Sub Macro1()
' Macro recorded 6/26/2008 by Sa_DQ (GPE.COM)'
 Dim lrow As Long
 Dim Rng As Range, Clls As Range, BRng As Range
 
 lrow = [e65432].End(xlUp).Row
 For Each Rng In Range("A8:A" & lrow)
    For Each Clls In Rng.Resize(1, 5)
        If Clls = "" Then
            If BRng Is Nothing Then
                Set BRng = Clls
            Else
                Set BRng = Union(BRng, Clls)
            End If
            Exit For
        End If
 Next Clls, Rng
 MsgBox BRng.Address '<<=='
End Sub

Nếu bạn cần xóa các dòng này, thì sửa lại dòng lệnh cuối của macro, thành như sau xem thử:
BRng.EntireRow.Delete

 

[MinhK]

Chào bạn LamHo27

Sub Macro1()
On Error Resume Next ' In case there are no blanks
Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Lúc trước tôi cũng cần đoạn này, có người giãi cho tôi nay gủi lai cho LH227
Đổi Columns(B:B) tùy vào column cần thiết.
Good Luck.