Bỏ qua nội dung chính

Làm thế nào để xóa các hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định trong Excel?

Đôi khi bạn có thể cần phải xóa các hàng nếu các ô trong một cột được chỉ định lớn hơn hoặc nhỏ hơn một giá trị nhất định trong Excel. Bài viết này sẽ giới thiệu một số phương pháp để giải quyết vấn đề này.

Xóa các hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định bằng mã VBA
Xóa các hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định với Kutools cho Excel
Xóa các hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định với Kutoos for Excel


Xóa các hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định bằng mã VBA

Giả sử bạn muốn xóa toàn bộ các hàng nếu ô trong cột D lớn hơn hoặc nhỏ hơn một giá trị nhất định trong Excel. Bạn có thể chạy mã VBA sau để đạt được nó.

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

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mã.

Mã VBA: Xóa hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định trong Excel

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Chú thích: Trong đoạn mã trên,> 30000 có nghĩa là bạn sẽ xóa các hàng nếu các ô lớn hơn 30000 trong một cột được chỉ định. Nếu bạn muốn xóa các hàng nếu các ô nhỏ hơn một giá trị nhất định, vui lòng thay đổi dấu> thành <và sau đó chỉ định giá trị của bạn.

3. nhấn F5 phím để chạy mã, trong cửa sổ bật lên Kutools cho Excel hộp thoại, chọn phạm vi (cột đơn) mà bạn sẽ tìm thấy nếu các ô trong cột này lớn hơn hoặc nhỏ hơn một giá trị nhất định. Và sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Sau đó, tất cả các hàng có giá trị ô lớn hơn 30000 trong cột D sẽ bị xóa ngay lập tức.


Xóa các hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định với Kutools cho Excel

Sản phẩm Chọn các ô cụ thể tiện ích của Kutools cho Excel có thể giúp bạn chọn tất cả các hàng có ô lớn hơn hoặc nhỏ hơn một giá trị nhất định trong một cột được chỉ định và sau đó bạn có thể xóa thủ công tất cả các hàng đã chọn cùng một lúc.

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 cột bạn muốn xóa các hàng dựa trên, 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, vui lòng chọn Toàn bộ hàng trong Loại lựa chọn phần. bên trong Loại cụ thể phần, chọn Lớn hơn or Ít hơn từ danh sách thả xuống đầu tiên, hãy nhập giá trị nhất định vào hộp văn bản tiếp theo, sau đó nhấp vào OK .

3. Sau đó, một hộp thoại bật lên cho bạn biết có bao nhiêu hàng được chọn, vui lòng nhấp vào OK cái nút. Và bạn có thể thấy tất cả các hàng có giá trị lớn hơn 30000 trong cột D được chọn ngay lập tức.

4. Nhấp chuột phải vào một trong các hàng đã chọn, sau đó nhấp vào Xóa bỏ từ menu chuột phải. Và tất cả các hàng đã chọn sẽ bị xóa.

  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 các hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định với Kutoos for Excel

Ngoài hai phương pháp trên, bạn có thể lọc ra tất cả các hàng có ô lớn hơn hoặc nhỏ hơn một giá trị nhất định trong một cột được chỉ định, sau đó loại bỏ tất cả các hàng được lọc bằng Xóa hàng & cột ẩn (hiển 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 tiêu đề cột, sau đó nhấp vào Ngày > Lọc. Xem ảnh chụp màn hình:

2. Nhấp vào mũi tên thả xuống trong cột bạn sẽ xóa các hàng dựa trên, sau đó nhấp vào Bộ lọc số > Lớn hơn or Ít hơn như ảnh chụp màn hình dưới đây:

3. bên trong Bộ lọc tự động tùy chỉnh hộp thoại, nhập một số nhất định sau hộp lớn hơn hoặc nhỏ hơn, rồi bấm vào OK .

4. Sau đó, tất cả các hàng có ô nhất định lớn hơn hoặc nhỏ hơn một giá trị nhất định trong cột D đều được lọc ra. Bạn có thể xóa tất cả các hàng đã lọc bằng cách chọn dữ liệu đã lọc và sau đó nhấp vào Kutools > Xóa bỏ > Xóa hàng & cột ẩn (hiển thị). Xem ảnh chụp màn hình:

5. bên trong Xóa hàng & cột ẩn (hiển thị) hộp thoại, đảm bảo Trong phạm vi đã chọn tùy chọn được chọn trong Nhìn vào danh sách thả xuống, chọn Hàng trong Xóa loại , chỉ định tùy chọn Hàng hiển thị trong Loại chi tiết và cuối cùng nhấp vào OK .

6. Sau đó, tất cả các hàng hiển thị trong phạm vi đã chọn sẽ bị xóa ngay lập tức, bạn có thể hủy bộ lọc bằng cách nhấp vào Ngày > Lọc.

  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 các hàng nếu ô lớn hơn / nhỏ hơn một giá trị nhất định với Kutools cho Excel


Các bài liên quan:

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 (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations