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

Làm cách nào để xóa nội dung ô dựa trên điều kiện trong Excel?

Đôi khi bạn có thể cần xóa nội dung ô dựa trên các điều kiện trong Excel, chẳng hạn như xóa nội dung ô nếu ô chứa giá trị cụ thể, xóa nội dung ô nếu có ô trống trong cột khác hoặc xóa nội dung ô có màu nền cụ thể, v.v. Bài viết này sẽ giới thiệu một số thủ thuật để giải quyết những công việc này một cách nhanh chóng và dễ dàng.

Xóa nội dung ô dựa trên giá trị ô có mã VBA

Xóa toàn bộ các hàng nếu giá trị lớn hơn hoặc nhỏ hơn một giá trị cụ thể bằng mã VBA

Xóa nội dung ô hoặc hàng dựa trên giá trị ô bằng một tính năng tiện dụng

Xóa toàn bộ các hàng nếu một ô khác trống với mã VBA

Xóa nội dung ô dựa trên màu nền với mã VBA


Xóa nội dung ô dựa trên giá trị ô có mã VBA

Ví dụ: bạn có dải dữ liệu sau, bây giờ, bạn muốn xóa nội dung ô là "Hoodie", mã VBA bên dưới có thể giúp bạn.

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Xóa nội dung ô nếu ô bằng một giá trị cụ thể

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
Chú thích: Trong đoạn mã trên, A2: A12 là phạm vi dữ liệu mà bạn muốn xóa nội dung ô, văn bản “qụa khoan”Là giá trị cụ thể mà bạn muốn làm rõ. Vui lòng thay đổi chúng thành của riêng bạn.

3. Sau đó nhấn F5 để chạy mã này và tất cả các ô có văn bản “Hoodie” sẽ bị xóa cùng một lúc, hãy xem ảnh chụp màn hình:


Xóa toàn bộ các hàng nếu giá trị lớn hơn hoặc nhỏ hơn một giá trị cụ thể bằng mã VBA

Giả sử, bạn có dải dữ liệu bên dưới, để xóa toàn bộ nội dung hàng nếu giá trị trong cột D lớn hơn hoặc nhỏ hơn 300. Ở đây, tôi sẽ tạo mã VBA để hoàn thành nó.

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Xóa toàn bộ các hàng nếu giá trị ô lớn hơn hoặc nhỏ hơn một giá trị cụ thể

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
Chú thích: Trong đoạn mã trên, D2: D12 là phạm vi dữ liệu chứa giá trị cụ thể mà bạn muốn xóa các hàng dựa trên; 300 là giá trị cụ thể; các > nhân vật trong kịch bản Nếu xCell.Value> xStrValue Thì có nghĩa là lớn hơn, sử dụng ít hơn, thay đổi nó thành < nhân vật như bạn cần.

3. Sau đó nhấn F5 để chạy mã này và tất cả nội dung hàng sẽ bị xóa nếu giá trị trong cột D lớn hơn 300, hãy xem ảnh chụp màn hình:


Xóa nội dung ô hoặc hàng dựa trên giá trị ô bằng một tính năng tiện dụng

Nếu bạn có Kutools cho Excel, Với khả Chọn các ô cụ thể tính năng, bạn có thể chọn các ô hoặc hàng dựa trên giá trị cụ thể, sau đó xóa nội dung ô cùng một lúc.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Chọn phạm vi dữ liệu có các giá trị mà bạn muốn xóa nội dung ô hoặc hàng dựa trên đó, sau đó bấm Kutools > Chọn > Chọn các ô cụ thể, xem ảnh chụp màn hình:

2. Trong mở Chọn các ô cụ thể hộp thoại, hãy thực hiện các thao tác sau:

  • Nhấp chuột Pin or Toàn bộ hàng mà bạn muốn chọn;
  • Chỉ định các tiêu chí trong Loại cụ thể phần như bạn cần. Ở đây, tôi muốn chọn các hàng có giá trị trong cột D lớn hơn 300.

3. Sau đó nhấn vào Ok và tất cả các hàng có giá trị lớn hơn 300 đều được chọn. Bây giờ, bạn chỉ cần nhấn phím Delete trên bàn phím để xóa nội dung ô, xem ảnh chụp màn hình:

Lời khuyên: Có nhiều tiêu chí khác mà bạn có thể sử dụng, vui lòng chỉ định điều kiện của riêng bạn từ hộp thoại như hình minh họa bên dưới:

Xóa dữ liệu hàng trong một phạm vi nếu chứa ô trống có mã VBA

Trong trường hợp này, nếu ô trong phạm vi dữ liệu chứa bất kỳ ô trống nào, tôi muốn xóa dữ liệu hàng khỏi phạm vi như hình minh họa bên dưới.

Để hoàn thành tác vụ này, vui lòng áp dụng mã VBA sau:

1. Giữ phím tắt ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà sau đó, dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Xóa dữ liệu hàng nếu có ô trống

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
Chú thích: Trong đoạn mã trên, A2: D12 là phạm vi dữ liệu chứa các ô trống mà bạn muốn xóa nội dung ô.

3. Sau đó nhấn F5 để chạy mã này và dữ liệu hàng có ô trống sẽ được xóa ngay lập tức trong phạm vi cụ thể khi bạn cần.


Xóa nội dung ô dựa trên màu nền với mã VBA

Để xóa các ô được tô bằng màu nền cụ thể, bạn có thể sử dụng mã VBA sau.

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà sau đó, dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Xóa nội dung ô dựa trên màu nền

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
Chú thích: Trong đoạn mã trên, A2: D12 là phạm vi dữ liệu mà bạn muốn sử dụng, RGB (252, 228, 214) là màu cụ thể mà bạn muốn xóa các ô dựa trên, bạn có thể trích xuất chế độ RGB của màu nền bằng cách sử dụng Sơn chương trình trên máy tính của bạn.

3. Và sau đó, nhấn F5 để chạy mã này và nội dung ô có màu nền được chỉ định sẽ bị xóa ngay lập tức. Xem ảnh chụp màn hình:


  • 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 và Lưu giữ dữ liệu; Nội dung phân chia ô; Kết hợp các hàng trùng lặp và Tổng / Trung bình... 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 ...
  • Yêu thích và Chèn công thức nhanh chóng, Dãy, Biểu đồ và Hình ảnh; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • 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 !
  • Nhóm bảng tổng hợp theo số tuần, ngày trong tuần và hơn thế nữa ... Hiển thị các ô đã mở khóa, đã khóa bởi các màu sắc khác nhau; Đánh dấu các ô có công thức / tênhữu ích. Cảm ơn !
tab kte 201905
  • 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 (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để 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