Bỏ qua nội dung chính

Làm cách nào để xóa các hàng không chứa văn bản nhất định trong Excel?

Có thể một số bạn biết cách xóa toàn bộ hàng khi chúng chứa một số văn bản nhất định trong Excel, nhưng nếu bạn muốn xóa toàn bộ hàng khi chúng không chứa văn bản nhất định, bạn có thể làm thế nào? Bây giờ, hãy làm theo hướng dẫn này, bạn có thể tìm thấy cách giải quyết vấn đề này trong Excel.

Xóa các hàng không chứa văn bản nhất định bằng Bộ lọc

Xóa các hàng không chứa văn bản nhất định bằng VBA

Xóa các hàng không chứa văn bản nhất định với Kutools cho Excel


mũi tên màu xanh bong bóng bên phải Xóa các hàng không chứa văn bản nhất định bằng Bộ lọc

Trong Excel, chức năng Bộ lọc có thể nhanh chóng giúp bạn lọc các hàng không chứa văn bản nhất định và sau đó bạn có thể chọn chúng để xóa.

1. Chọn cột chứa văn bản mà bạn sẽ xóa các hàng dựa trên và nhấp vào Ngày > Lọc. Xem ảnh chụp màn hình:

doc-delete-row-not-contains-1
doc-mũi tên
doc-delete-row-not-contains-2

2. Trong tiêu đề của cột, có một nút bộ lọc, và nhấp vào nút đó để mở danh sách thả xuống, kiểm tra tất cả ngoại trừ văn bản nhất định bạn muốn dựa vào. Xem ảnh chụp màn hình:

doc-delete-row-not-contains-3

3. Sau đó, bạn chỉ có thể thấy hàng tiêu đề và các hàng không chứa văn bản nhất định được lọc. Xem ảnh chụp màn hình :

doc-delete-row-not-contains-4

4. Chọn tất cả chúng ngoại trừ hàng tiêu đề và nhấp chuột phải để chọn Xóa hàng từ menu ngữ cảnh. Xem ảnh chụp màn hình:

doc-delete-row-not-contains-5

5. Sau đó nhấn vào Ngày > Lọc một lần nữa, và sau đó tất cả các hàng không chứa văn bản nhất định sẽ bị xóa. Xem ảnh chụp màn hình:

doc-delete-row-not-contains-6
doc-mũi tên
doc-delete-row-not-contains-7

mũi tên màu xanh bong bóng bên phải Xóa các hàng không chứa văn bản nhất định bằng VBA

VBA rất hữu ích cho các thao tác hơi khó trong Excel và hãy làm theo các bước dưới đây để xóa các hàng không chứa văn bản nhất định.

1. nhấn Alt + F11 để hiển thị Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong cửa sổ, nhấp vào Chèn > Mô-đun để hiển thị một cửa sổ mô-đun mới, sau đó sao chép mã VBA sau vào cửa sổ mô-đun.

VBA: Xóa toàn bộ hàng nếu ô có chứa văn bản nhất định.

Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
    If rng Is Nothing Then
       xRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
3. nhấp chuột chạy và một hộp thoại xuất hiện để bạn chọn một phạm vi hoạt động. Xem ảnh chụp màn hình:

doc-delete-row-not-contains-8

4. Sau đó nhấn vào OKvà nhập văn bản bạn muốn xóa các hàng vào hộp thoại bật lên khác. Xem ảnh chụp màn hình:

doc-delete-row-not-contains-9

5. nhấp chuột OKvà các hàng không chứa Apple sẽ bị xóa.


mũi tên màu xanh bong bóng bên phải Xóa các hàng không chứa văn bản nhất định với Kutools cho Excel

Nếu bạn nghĩ rằng các phương pháp trên không dễ dàng cho bạn, bạn có thể sử dụng Kutools cho Excel's Chọn các ô cụ thể tính năng này.

Kutools cho Excel bao gồm hơn 300 công cụ Excel tiện dụng. Dùng thử miễn phí không giới hạn trong 30 ngày. Lấy nó ngay

1. Chọn cột mà bạn muốn xóa các hàng không chứa văn bản nhất định và nhấp vào Kutools > Chọn công cụ > Chọn các ô cụ thể. Xem ảnh chụp màn hình:

doc-delete-row-not-contains-10

2. Và trong Chọn các ô cụ thể hộp thoại, kiểm tra Toàn bộ hàng, Và chọn Không chứavà nhập văn bản nhất định vào hộp văn bản, bạn cũng có thể nhấp vào nút phạm vi trong Loại cụ thể để chọn ô chứa văn bản nhất định.

doc-delete-row-not-contains-11

3. Sau đó nhấn vào Ok, sau đó các hàng không chứa văn bản nhất định được chọn, nhấp chuột phải để chọn Xóa bỏ từ menu ngữ cảnh. Xem ảnh chụp màn hình:

doc-delete-row-not-contains-12

4. Bây giờ tất cả các hàng không chứa văn bản nhất định trong phạm vi sẽ bị loại bỏ. Nhấp vào cô ấy để biết thêm thông tin về Chọn các ô cụ thể.


Các bài báo tương đối:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to modify the VBA code to add an option like this,

Dim xOpt As Integer
xOpt = Application.InputBox("Rows Around Kept (0, 1, 2)", xTitleId, "", Type:=1)

where 0 is the same as your code above where it keeps only the row with specified word in it and deletes all other rows.
where 1 keeps the rows immediately above and below the rows with the specified word in it and deletes all other rows.
where 2 keeps the 2 rows above and below the rows with the specified words in it and deletes all other rows.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations