Bỏ qua nội dung chính

Làm cách nào để xóa toàn bộ hàng nếu ô chứa số XNUMX trong Excel?

Đôi khi, bạn muốn xóa toàn bộ hàng nếu ô chứa số XNUMX trong Excel và bạn có thể xóa từng hàng một nếu có một vài trong số chúng. Nhưng làm thế nào về hàng trăm hàng chứa số không cần được loại bỏ? Bạn có thể chọn một trong những cách khó dưới đây để giải quyết.

Xóa hàng nếu ô chứa XNUMX bằng chức năng Bộ lọc trong Excel
Xóa hàng nếu ô chứa XNUMX bằng VBA trong Excel
Xóa hàng nếu ô chứa số XNUMX với Kutools cho Excel


Xóa hàng nếu ô chứa XNUMX bằng chức năng Bộ lọc trong Excel

Bạn có thể sử dụng chức năng Bộ lọc để lọc ra tất cả các hàng dựa trên các giá trị XNUMX trong một cột nhất định, rồi xóa tất cả các hàng hiển thị sau đó. Hãy làm như sau.

1. Chọn các ô cột chứa các giá trị XNUMX mà bạn muốn xóa toàn bộ các hàng dựa trên đó, sau đó nhấp vào Ngày > Lọc. Xem ảnh chụp màn hình:

2. Sau đó, một mũi tên thả xuống sẽ hiển thị trong ô đầu tiên của cột đã chọn, hãy nhấp vào mũi tên, rồi chọn Bộ lọc số > equals từ danh sách thả xuống.

doc xóa nếu 1 XNUMX

3. bên trong Bộ lọc tự động tùy chỉnh hộp thoại, nhập số 0 vào hộp văn bản như hình minh họa bên dưới, sau đó nhấp vào OK .

doc xóa nếu 1 XNUMX

4. Sau đó, tất cả các ô có giá trị XNUMX trong cột nhất định này sẽ được lọc ra. Vui lòng chọn tất cả các ô có thể nhìn thấy trong phạm vi bộ lọc và nhấp chuột phải vào chúng, chọn Xóa Hàng từ menu chuột phải. Và trong hộp nhắc bật lên, hãy nhấp vào OK cái nút. Xem ảnh chụp màn hình:

doc xóa nếu 1 XNUMX

5. Bây giờ tất cả các hàng hiển thị đã bị xóa. Bạn có thể bấm vào Ngày > Lọc một lần nữa để hiển thị tất cả dữ liệu không có ô giá trị bằng không. Xem ảnh chụp màn hình:

doc xóa nếu 1 XNUMX


Dễ dàng xóa tất cả các hàng nếu giá trị XNUMX tồn tại trong một phạm vi nhất định trong Excel:

Kutools cho Excel's Chọn các ô cụ thể tiện ích giúp bạn dễ dàng chọn toàn bộ các hàng nếu các giá trị không tồn tại trong một phạm vi nhất định và sau đó bạn có thể nhanh chóng xóa tất cả các hàng đã chọn theo cách thủ công mà không gặp bất kỳ sai sót nào.
Hãy tải về và dùng thử ngay bây giờ! (30 ngày dùng thử miễn phí)


Xóa hàng nếu ô chứa XNUMX bằng VBA trong Excel

Phần này sẽ chỉ cho bạn phương pháp VBA để xóa tất cả các hàng nếu các giá trị bằng không tồn tại trong một cột nhất định trong Excel.

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

2. Trong cửa sổ Microsoft Visual Basic for Applications, bấm Chèn > Mô-đun, sau đó sao chép và dán mã VBA sau vào cửa sổ mô-đun.

VBA: Xóa toàn bộ hàng nếu giá trị XNUMX tồn tại trong phạm vi cột nhất định trong trang tính

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8 ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("0", LookIn: = xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub

3. Nhấn nút F5 phím để chạy mã, trong cửa sổ bật lên KutoolsforExcel hộp thoại, chọn phạm vi cột bạn muốn xóa toàn bộ hàng dựa trên các giá trị XNUMX bên trong, sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:

doc xóa nếu 1 XNUMX

Sau đó, tất cả các hàng dựa trên giá trị XNUMX trong dải cột được chỉ định sẽ bị xóa ngay lập tức.

doc xóa nếu 1 XNUMX


Xóa hàng nếu ô chứa số XNUMX với Kutools cho Excel

Đối với nhiều người dùng Excel, việc sử dụng mã VBA rất nguy hiểm khi xóa dữ liệu trong Excel. Nếu bạn không hoàn toàn tin tưởng mã VBA, thì ở đây chúng tôi khuyên bạn nên thử Chọn các ô cụ thể tiện ích của Kutools cho Excel.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Chọn phạm vi cột bạn sẽ xóa toàn bộ hàng dựa trên các giá trị XNUMX bên trong, sau đó nhấp vào Kutools > Chọn > Chọn các ô cụ thể. Xem ảnh chụp màn hình:

2. bên trong Chọn các ô cụ thể hộp thoại, bạn cần:

(1) Chọn Toàn bộ hàng tùy chọn trong Loại lựa chọn phần.

(2) Chọn equals Trước hết Loại cụ thể danh sách thả xuống, sau đó nhập số 0 vào hộp văn bản.

(3) Nhấp vào OK .

3. Một hộp thoại bật lên cho bạn biết có bao nhiêu hàng đã được chọn, hãy nhấp vào OK cái nút. Bây giờ tất cả các hàng có giá trị XNUMX tồn tại trong phạm vi cột được chỉ định đều được chọn. Vui lòng nhấp chuột phải vào bất kỳ hàng nào đã chọn, sau đó nhấp vào Xóa bỏ trong menu chuột phải. Xem ảnh chụp màn hình:

doc xóa nếu 1 XNUMX

Bây giờ tất cả các hàng có giá trị XNUMX tồn tại trong cột được chỉ định sẽ bị xóa ngay lập tức. Xem ảnh chụp màn hình:

doc xóa nếu 1 XNUMX

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Xóa hàng nếu ô chứa số XNUMX với Kutools cho Excel


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 (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
This comment was minimized by the moderator on the site
Insert this in VB new module.
This is with InputBox to delete row which contains that word.

Attribute VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK Tools"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
This comment was minimized by the moderator on the site
Good Day,
Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
This comment was minimized by the moderator on the site
This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
This comment was minimized by the moderator on the site
Hi dears , I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2. that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
This comment was minimized by the moderator on the site
modified for my purpose--thank you for your help: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Set the range you want to remove the unused 0 quantity rows from" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed 0's ROWS from column FG--calculating now--please wait" Application.Calculation = xlAutomatic End Sub
This comment was minimized by the moderator on the site
I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
This comment was minimized by the moderator on the site
thanks for the response, worked for me
This comment was minimized by the moderator on the site
I modified the above code to work for me. I wanted to delete every row that had "Delete" in row C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
This comment was minimized by the moderator on the site
This was a life saver!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations