Nếu muốn xóa một/nhiều hàng (theo điều kiện) trong Excel thì bạn sẽ phải mất rất nhiều thời gian để chọn và xóa trong bảng dữ liệu. Cách này cũng rất dễ xảy ra thiếu sót, đặc biệt là với những bảng tính có số lượng dữ liệu lớn. Bài viết của Ketoan.vn sẽ hướng dẫn 2 cách xóa dòng có điều kiện trong Excel rất đơn giản và nhanh chóng. Mời các bạn đọc bài viết nhé.
- Mách bạn một số cách Thêm Cột, Xóa Cột trong Excel
- Vài cách thêm dòng, xóa dòng cực nhanh trong Excel, bạn đã biết chưa?
- Cách xóa nhanh các dòng trống (dòng trắng) trong bảng dữ liệu Excel
Cách 1: Sử dụng Find and Replace
Ngoài tính năng tìm kiếm và thay thế, chức năng Find and Replace còn được sử dụng để xóa dòng có điều kiện trong Excel. Bạn đọc thực hiện như sau:
Bước 1: Chọn vùng dữ liệu có dòng và bạn cần xóa.
Bước 2: Nhấn tổ hợp phím Ctrl + F để mở hộp thoại Find and Replace.
Bước 3: Tại hộp thoại Find and Replace, tại ô Find what nhập giá trị của ô có điều kiện mà bạn muốn xóa, sau đó chọn Find All. Ở ví dụ này ta sẽ xóa các ô có giá trị “sữa béo”.
Bước 4: Nhấn tổ hợp phím Ctrl + A để chọn tất cả các kết quả tìm kiếm được ở cuối hộp thoại Find and Replace. Sau đó đóng hộp thoại lại.
Bước 5: Nhấn chuột phải vào một trong các ô đã chọn, sau đó chọn Delete, rồi chọn Table Rows.
Như vậy, chỉ với một vài thao tác đơn giản, các dòng chứa giá trị “Sữa béo” đã được xóa khỏi bảng dữ liệu.
Cách 2: Sử dụng mã VBA
Ngoài chức năng Find and Replace, bạn có thể xóa các dòng có điều kiện bằng sử dụng mã VBA. Bạn đọc thực hiện như sau:
Bước 1: Nhấn tổ hợp phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for applications.
Bước 2: Chọn Insert, sau đó chọn tiếp Module để nhập đoạn mã VBA.
Bước 3: Nhập đoạn mã sau vào Module, sau đó chọn Run để chạy mã.
Sub DeleteRows()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "Xoa dong"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
For Each rng In InputRng
If rng.Value = DeleteStr Then
If DeleteRng Is Nothing Then
Set DeleteRng = rng
Else
Set DeleteRng = Application.Union(DeleteRng, rng)
End If
End If
Next
DeleteRng.EntireRow.Delete
End Sub
Bước 4: Khi có hộp thoại xuất hiện, bạn chọn vùng dữ liệu có chứa dòng cần xóa vào ô nhập. Sau đó ấn OK.
Bước 5: Khi hộp thoại tiếp theo hiện lên, bạn nhập giá trị điều kiện của dòng muốn xóa vào ô. Sau đó ấn OK để hoàn tất.
Như vậy bạn đã hoàn thành xóa các dòng chứa điều kiện trong Excel bằng mã VBA.
Trên đây là 2 cách đơn giản giúp bạn xóa dòng chứa điều kiện trong Excel một cách nhanh chóng và chính xác. Mời bạn đọc tham khảo và áp dụng. Chúc các bạn thành công.
