Trong bài viết này, chúng tôi sẽ tạo một macro để xóa các bản ghi chưa hoàn chỉnh có chứa các ô trống.

Dữ liệu thô bao gồm một số dữ liệu mẫu, bao gồm Tên, Tuổi và Giới tính. Nó cũng chứa một số ô trống.

ArrowRawData

Chúng tôi muốn loại bỏ những bản ghi chứa các ô trống.

ArrowOutput

Giải thích logic

Chúng tôi đã tạo macro “BlankRowDeletion” để xóa các bản ghi chưa hoàn thành.

Nó tìm kiếm và chọn các ô trống và sau đó xóa toàn bộ hàng có chứa ô trống.

Giải thích mã

Đặt Rng = Range (“A9: C” & LastRow)

Đoạn mã trên được sử dụng để tạo một đối tượng phạm vi cho dữ liệu đã cho.

Rng.SpecialCells (xlCellTypeBlanks) .Select Đoạn mã trên được sử dụng để chọn các ô trống trong phạm vi được chỉ định.

Selection.EntireRow.Delete Đoạn mã trên được sử dụng để xóa toàn bộ hàng cho ô đã chọn.

Vui lòng theo dõi bên dưới để biết mã

Option Explicit

Sub BlankRowDeletion()

'Declaring variables

Dim LastRow As Long

Dim Rng As Range

'Getting row number of last cell

LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row

'Selecting all data

Set Rng = Range("A9:C" & LastRow)

'Selecting Blank cells

Rng.SpecialCells(xlCellTypeBlanks).Select

'Deleting complete row

Selection.EntireRow.Delete

Range("A9").Select

End Sub

Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.

Chúng tôi rất muốn nghe ý kiến ​​từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]