Note: The other languages of the website are Google-translated. Back to English

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.
Tải xuống và thử ngay bây giờ! (30-ngày đường mòn 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-day) của 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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (15)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây là một cuộc sống tiết kiệm !!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VB của bạn không hoạt động. Nó xóa tất cả các hàng có số 10 ở vị trí XNUMX giây. Tôi hy vọng không ai thực sự sử dụng điều này vì họ sẽ xóa dữ liệu ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sửa đổi mã trên để làm việc cho tôi. Tôi muốn xóa mọi hàng có "Xóa" trong hàng C. Sub Delete_DeleteRows () Đặt WorkRng = Phạm vi ("C2: C12000") Ứng dụng.ScreenUpdating = Sai Do Đặt Rng = WorkRng.Find ("Xóa", LookIn: = xlValues) If Not Rng Is Nothing then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sửa đổi mã dưới đây để làm việc cho tôi. Thao tác này đã xóa mọi hàng trong cột C có "Xóa" trong ô của cột C. Sub Delete_DeleteRows () Đặt 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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn vì đã phản hồi, đã làm việc cho tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
nó đã làm việc cho tôi, cảm ơn rất nhiều.
nếu tôi có nhiều trang tính? Làm cách nào để tôi có thể chạy tập lệnh 1 lần cho tất cả các trang tính?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
sửa đổi cho mục đích của tôi - cảm ơn bạn đã giúp đỡ: Sub DeleteZeroRow () Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Đặt phạm vi bạn muốn loại bỏ số lượng 0 không sử dụng các hàng từ "Set WorkRng = Application.InputBox (" Range ", xTitleId," FG93: FG500 ", Type: = 8) Application.ScreenUpdating = False Sheets (" ENTRY "). Chọn 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 "). Chọn Selection.End (xlDown). Chọn MsgBox" Đã loại bỏ ROWS của 0 từ cột FG - đang tính toán - vui lòng đợi "Application.Calculation = xlAutomatic End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào các bạn, tôi cần mã để ẩn các hàng có giá trị = 0 trên cột "N" trong trang tính 1. Giá trị của cột "N" sẽ thay đổi khi cập nhật thông tin chi tiết trên Trang tính 2. Đó là lúc cần bỏ ẩn hàng. điều này có thể thực hiện được với công thức Excel (không có macro và Bộ lọc Excel).
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này không hiệu quả với tôi. Nó đã thay đổi tất cả các giá trị trong cột đã chọn của tôi và cột liền kề thành số không. Tôi phải làm việc gì đó sai lầm!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Sheri,
Mã hoạt động tốt trong trường hợp của tôi. Bạn sử dụng phiên bản Excel nào?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Crystal. Tôi đã đăng bài này hai năm trước nên tôi đoán tôi đã tìm ra. Nhưng cảm ơn vì đã trả lời.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chèn cái này vào mô-đun mới VB.
Điều này là với InputBox để xóa hàng có chứa từ đó.

Thuộc tính VB_Name = "FindDelRowByWord"
Sub FindDelRow ()
'Updateby20140616
Dim Rng Như Phạm vi
Dim WorkRng As Range
Dim xRep dưới dạng chuỗi
On Error Resume Next
xTitleId = "Công cụ ZOK"
Đặt WorkRng = Application.Selection
Đặt WorkRng = Application.InputBox ("Phạm vi", xTitleId, WorkRng.Address, Loại: = 8)
xRep = Application.InputBox ("từ để xóa Hàng:", "Công cụ ZOK",,,,, 2)
Application.ScreenUpdating = Sai
Do
Đặt Rng = WorkRng.Find (xRep, LookIn: = xlValues)
Nếu không Rng thì không có gì
Rng.EntireRow.Delete
Cuối Nếu
Vòng lặp While Not Rng không là gì cả
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
NẾU bạn có một trang tính lớn, và có những hàng bạn muốn giữ lại và những hàng khác có chứa một số từ khóa nhất định và xóa chúng? kutools hoạt động cho tôi nhưng đối với một từ khóa mà nhiều hàng có từ khóa đó, các hàng đã bị xóa, tôi chỉ muốn có nhiều từ khóa để làm tương tự? điều này có làm việc cho đoạn mã trên không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Kutools có thể đối phó với hai từ khóa cùng một lúc. Bạn cần kích hoạt điều kiện thứ hai của nó bằng "Và" hoặc "Hoặc". Hy vọng tôi có thể giúp đỡ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tổng phụ của Despues de Pracizar Como hacer para Remor las filas involucradas que en el subtotal es igual a 0?
Không có bình luận nào được đăng ở đây

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL