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

Làm thế nào để loại bỏ các hàng dựa trên giá trị ô trong Excel?

Để xóa nhanh hoặc loại bỏ nhiều hàng dựa trên giá trị ô trong Excel, trước tiên bạn có thể cần chọn toàn bộ các hàng có chứa giá trị ô cụ thể, sau đó đi đến loại bỏ chúng. Có vẻ như không có cách nào nhanh chóng để xóa các hàng dựa trên giá trị ô mà sử dụng mã VBA. Dưới đây là một số thủ thuật nhanh chóng để giúp bạn.


Loại bỏ các hàng dựa trên giá trị ô với tính năng Tìm và Thay thế

Trong Excel, bạn có thể áp dụng tính năng Tìm và Thay thế mạnh mẽ để loại bỏ các hàng dựa trên một giá trị ô nhất định một cách dễ dàng. Vui lòng làm như sau:

1. Chọn phạm vi nơi bạn sẽ loại bỏ các hàng dựa trên giá trị ô nhất định và mở hộp thoại Tìm và Thay thế bằng cách nhấn Ctrl + F các phím đồng thời.

2. Trong hộp thoại Tìm và Thay thế, vui lòng nhập giá trị ô nhất định (trong trường hợp của chúng tôi, chúng tôi nhập Soe) vào Find what và nhấp vào Find All cái nút. Xem ảnh chụp màn hình đầu tiên bên dưới:

3. Chọn tất cả các kết quả tìm kiếm ở cuối hộp thoại Tìm và Thay thế và đóng hộp thoại này. (Chú thích: Bạn có thể chọn một trong các kết quả tìm kiếm, sau đó Ctrl + A phím để chọn tất cả các kết quả tìm được. Xem ảnh chụp màn hình thứ hai ở trên.)
Và sau đó bạn có thể thấy tất cả các ô chứa giá trị nhất định đã được chọn.

4. Hãy tiếp tục nhấp chuột phải vào các ô đã chọn và chọn Delete từ menu chuột phải. Và sau đó kiểm tra Entire row trong hộp thoại Xóa bật lên và nhấp vào OK cái nút. Bây giờ bạn sẽ thấy tất cả các ô có chứa giá trị nhất định bị loại bỏ. Xem ảnh chụp màn hình bên dưới:

Và sau đó toàn bộ hàng đã bị xóa dựa trên giá trị nhất định đã có.


Loại bỏ các hàng dựa trên giá trị ô với mã VBA

Với mã VBA sau, bạn có thể nhanh chóng xóa các hàng có giá trị ô nhất định, vui lòng thực hiện theo các bước sau:

1. Nhấn nút Alt + F11 chìa khóa cùng một lúc để mở Microsoft Visual Basic for applications cửa sổ,

2. Nhấp chuột Insert > Modulevà nhập mã sau vào Mô-đun:

VBA: Xóa toàn bộ hàng dựa trên giá trị ô

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
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)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Sau đó nhấp vào Run để chạy mã.

4. Trong hộp thoại bật lên, vui lòng chọn phạm vi nơi bạn sẽ xóa các hàng dựa trên giá trị nhất định và nhấp vào OK .

5. Trong một hộp thoại khác, vui lòng nhập giá trị nhất định mà bạn sẽ loại bỏ các hàng dựa trên và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Và sau đó bạn sẽ thấy toàn bộ các hàng đã bị xóa dựa trên giá trị được chỉ định.


Loại bỏ các hàng dựa trên một hoặc hai giá trị ô với Kutools cho Excel

Nếu bạn đã cài đặt Kutools for ExcelCủa nó, Select Specific Cells tính năng này có thể giúp bạn xóa nhanh các hàng có giá trị cụ thể. Vui lòng làm như sau:

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Get It Now

1. Chọn phạm vi mà bạn sẽ xóa các hàng dựa trên giá trị nhất định và nhấp vào Kutools > Select > Select Specific Cells. Xem ảnh chụp màn hình:

2. Trong hộp thoại Chọn ô được chỉ định mở, vui lòng kiểm tra Entire row tùy chọn, chọn Contains từ Specific type danh sách thả xuống, nhập giá trị được chỉ định vào hộp bên phải và nhấp vào Ok (Xem ảnh chụp màn hình ở trên).
Sau khi áp dụng tính năng này, một hộp thoại sẽ bật ra và cho bạn biết có bao nhiêu ô đã được tìm thấy dựa trên các tiêu chí được chỉ định. Vui lòng nhấp vào OK để đóng nó.

3. Bây giờ toàn bộ các hàng có giá trị nhất định được chọn. Vui lòng nhấp chuột phải vào các hàng đã chọn và nhấp vào Delete từ menu chuột phải. Xem ảnh chụp màn hình bên dưới:

Chú thích: Đây Select Specific Cells tính năng hỗ trợ xóa hàng theo một hoặc hai giá trị nhất định. Để xóa các hàng dựa trên hai giá trị được chỉ định, vui lòng chỉ định một giá trị khác trong Specific type của hộp thoại Chọn ô cụ thể như ảnh chụp màn hình sau:

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Get It Now


Loại bỏ các hàng dựa trên nhiều giá trị ô với Kutools cho Excel

Trong một số trường hợp, bạn có thể cần phải xóa các hàng dựa trên nhiều giá trị ô khỏi một cột / danh sách khác trong Excel. Sau đây tôi sẽ giới thiệu Kutools for Excel's Select Same & Different Cells để giải quyết nó một cách nhanh chóng một cách dễ dàng.

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Get It Now

1. Nhấp chuột Kutools > Select > Select Same & Different Cells để mở hộp thoại Chọn ô giống & khác nhau.

2. Trong phần mở đầu Select Same & Different Cells hộp thoại, vui lòng làm như sau (xem ảnh chụp màn hình):

(1) Trong Find values in hãy chọn cột nơi bạn sẽ tìm thấy các giá trị nhất định;
(2) Trong According to , vui lòng chọn cột / danh sách có nhiều giá trị mà bạn sẽ xóa các hàng dựa trên;
(3) Trong Based on , vui lòng kiểm tra Each row Tùy chọn;
(4) Trong Find , vui lòng kiểm tra Same Values Tùy chọn;
(5) Kiểm tra Select entire rows ở cuối hộp thoại mở.
Chú thích: Nếu hai cột được chỉ định chứa cùng một tiêu đề, vui lòng kiểm tra My data has headers tùy chọn.

3. Nhấn vào Ok để áp dụng tiện ích này. Và sau đó một hộp thoại xuất hiện và hiển thị bao nhiêu hàng đã được chọn. Chỉ cần nhấp vào OK để đóng nó.

Và sau đó tất cả các hàng chứa giá trị trong danh sách được chỉ định đã được chọn.

4. Nhấp chuột Home > Delete > Delete Sheet Rows để xóa tất cả các hàng đã chọn.


Demo: loại bỏ các hàng dựa trên một hoặc nhiều giá trị ô trong Excel


Kutools cho Excel bao gồm hơn 300 công cụ tiện dụng cho Excel, miễn phí dùng thử không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay bây giờ!

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 (39)
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
Tuyệt vời! Điều đó có hiệu quả, tôi đã thay đổi nó một chút để phù hợp với những gì tôi cần nhưng thuần túy. Oh Phiên bản VBA.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để sửa đổi If (cell.Value) = "Apple" để bao gồm nhiều giá trị 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
Bobby, hãy thử cái này, nó sẽ đạt được những gì bạn muốn: If (cell.Value) = "Apple" OR (cell.Value) = "Monday"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để có giá trị nhận ra một giá trị cho dù là> hoặc = với một giá trị nhất định 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
Này - cảm ơn rất nhiều vì kịch bản. Tôi đã tự hỏi liệu bạn có thể sử dụng các ký tự đại diện để có thể chọn bất kỳ thứ gì trong một ô phù hợp hơn là một mục cụ thể không? Tôi đã thử sử dụng ký tự đại diện ** nhưng nó dường như không hiệu quả. Đây là những gì tôi có: Sub Delete_Rows () Dim rng As Range, cell As Range, del As Range Set rng = Intersect (Range ("B6: B20"), ActiveSheet.UsedRange) Cho Mỗi ô Trong rng Nếu ô. Giá trị Thích "* WORDTODELETE *" _ Then If del Is Nothing Then Đặt del = ô Khác: Đặt del = Union (del, ô) Kết thúc Nếu Kết thúc Nếu ô Tiếp theo Lỗi Tiếp tục Tiếp theo del.EntireRow.Delete 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
Chân thành cảm ơn - thật thú vị khi anh chàng Tiếp thị cố gắng viết mã và thông tin này cực kỳ hữu ích. Tôi không thể lấy mã để mở rộng nhiều cột ("AA2: AA3000" hoạt động, "AB2: AB3000" hoạt động, nhưng "AA2: AB3000" không hoạt động. Không có Kaboom phá hủy Trái đất - nó chỉ không làm gì cả. Tôi 'đã giải quyết nó (tôi cho là nghiệp dư) bằng cách chạy một số macro theo trình tự, nhưng có lẽ có một cách hay hơn. Một lần nữa, cảm ơn sự giúp đỡ của bạn, Jim (Melville, NY)
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 nhận được: lỗi thời gian chạy '13': Nhập không khớp Gỡ lỗi làm nổi bật phần If (cell.Value) = "FALSE" _ Sau đó. Tôi hoàn toàn bị mất trong MVB, mọi sự giúp đỡ sẽ được đánh giá cao.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Giả sử tôi đặt mã bên dưới để xóa tất cả các hàng của tôi có chứa apple nhưng sau đó tôi muốn nó tiếp tục sau khi hoàn thành và xóa tất cả các hàng chứa chuối? Tôi đã cố gắng chỉ sao chép mã nhưng nó dường như dừng lại sau khi apple. cảm ơn. Sub Delete_Rows () Dim rng As Range, ô As Range, del As Range Set rng = Intersect (Range ("A1: C20"), ActiveSheet.UsedRange) Cho mỗi ô Trong rng If (cell.Value) = "Apple" _ Then If del Is Nothing Then Đặt del = ô Khác: Đặt del = Union (del, ô) Kết thúc Nếu kết thúc Nếu ô Tiếp theo Khi Lỗi Tiếp tục Tiếp theo del.EntireRow.Delete 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 chỉ muốn nói lời cảm ơn. Điều này hoạt động như một sự quyến rũ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chắc chắn là tuyệt vời! Đánh giá cao vì đã chia sẻ !!!
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, điều này thật tuyệt! Nhận xét nhanh, tôi đã thử chức năng tìm và thay thế trong excel 2010. Để chọn tất cả các kết quả tìm được tôi phải sử dụng Ctrl + A thay vì Alt + A.
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ách dễ nhất để xóa các hàng KHÔNG chứa "Apple" là gì? Thanks
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, Bất kỳ cách nào để viết nó để xóa một hàng, với một ngoại lệ HOẶC? Tức là xóa các hàng trùng lặp, nhưng bỏ qua một giá trị nhất định. Tôi muốn xóa các bản sao, ngoại trừ trường hợp cột được đề cập có chứa b / c trống mà cột đó chưa có dữ liệu hợp lệ. Tôi đã chạy như bạn có, nhưng tôi đã kết thúc việc xóa các hàng có ô trống trong cột được đề cập, vì vậy tôi không thể sử dụng nó như hiện tại. Thanks
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 bạn cho VB Script. Tôi không thể đợi để thử cái này. Câu hỏi: Có cách nào để đánh dấu các cột để xóa trước khi xóa chúng và / hoặc sao chép vào một tab riêng trong sổ làm việc không? Ngoài ra, có cách nào để chạy tập lệnh này chạy trên nhiều sổ làm việc / tệp cùng một lúc 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
cảm ơn .. nó giúp tôi rất nhiề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 muốn xóa tất cả các hàng có column1 = "Apple" AND column3 = "green". Xin vui lòng?
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 không chắc làm thế nào để thực hiện việc này bằng cách sử dụng macro, nhưng một tùy chọn sẽ thực hiện tốt công việc của nó là thêm một cột bổ sung để kiểm tra một cột là "quả táo" và cột kia là "xanh" và sau đó nó cung cấp một giá trị "có" hoặc "không" đơn giản. hơn là sử dụng một trong các tùy chọn ở trên để tìm kiếm giá trị "có" và xóa các hàng dựa trên giá trị đó thay vì 2 giá trị riêng biệt.
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 có một danh sách các cửa hàng trong một tài liệu. Tôi có một báo cáo trả về hàng nghìn dòng. số cửa hàng luôn ở trong Cột A. Có mã / macro sẽ tìm kiếm báo cáo và xóa tất cả các cột có số cửa hàng khỏi danh sách cửa hàng không. nghĩ rằng cần có vlookup và "Do While".
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 và cảm ơn bạn rất nhiều về mã VBA. Tôi có một câu hỏi. Có thể tạo mã theo cách có thể chọn một số giá trị ô để xóa cùng một lúc không? Ví dụ: chọn Apple và Emily cùng một lúc và xóa chúng? Tôi đánh giá cao công việc của bạn và mong nhận được phản hồi của bạn. Joan K
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để chỉ định phạm vi A3: D3000 (tức là tôi không muốn người dùng chọn phạm vi)? Làm cách nào để tôi có thể đặt Chuỗi Xóa làm tham chiếu ô, ví dụ: G1?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
là nó có thể để so sánh hai cột và sau đó xóa? nằm trong phạm vi A3: D3000 nếu ô A = x và ô B = y thì xóa 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
Thật là tuyệt vời. cảm ơn rất nhiều. :)
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

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