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
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
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:
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
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
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:
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
- 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 !
- 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!