Excel xóa các hàng không có ô được tô sáng

Bạn có thể xóa các hàng có màu nền cụ thể bằng VBA hoặc bạn có thể lọc trang tính Excel của mình theo màu, rồi xóa các hàng đã chọn

Lọc theo màu và xóa các hàng đã chọn

Nhấp vào dữ liệu chứa các ô/hàng mà bạn muốn xóa

Trong Ruy-băng, chọn Trang đầu >  Chỉnh sửa > Sắp xếp & Lọc  >  Bộ lọc

HOẶC

Nhấn Ctrl+Shift+L trên bàn phím

Danh sách thả xuống bộ lọc sẽ xuất hiện ở đầu mỗi cột dữ liệu trong dữ liệu đã chọn

(1) Chọn một trong các danh sách thả xuống có sẵn trong tiêu đề cột rồi (2) chọn Lọc theo màu. Cuối cùng, (3) chọn màu bạn muốn lọc – đây là những hàng bạn sẽ xóa

Chọn các hàng bằng cách nhấp vào tiêu đề của hàng đầu tiên cần xóa và kéo xuống hàng cuối cùng mà bạn muốn xóa, sau đó, trong Dải băng, chọn Trang chủ > Ô > Xóa > Xóa hàng trang tính

Các hàng sẽ bị xóa. Để xóa bộ lọc, hãy chọn menu thả xuống bộ lọc trong cột mà bạn đã lọc và xóa bộ lọc khỏi cột đó

Dữ liệu còn lại sẽ được hiển thị

Sắp xếp theo màu và xóa các hàng đã chọn

Bấm vào dữ liệu cần sắp xếp, sau đó, trong Dải băng, chọn Trang đầu > Chỉnh sửa > Sắp xếp và Lọc > Sắp xếp Tùy chỉnh

(1) Xóa dấu kiểm khỏi Dữ liệu của tôi có tiêu đề rồi (2), chọn cột để sắp xếp theo. Sửa đổi Sắp xếp thành (3) Màu ô và trong Thứ tự (4) chọn màu của các ô bạn muốn xóa

Các hàng sẽ được sắp xếp lên đầu danh sách. Chọn các hàng bằng cách nhấp vào tiêu đề của hàng đầu tiên cần xóa và kéo xuống hàng cuối cùng mà bạn muốn xóa, sau đó, trong Dải băng, chọn Trang chủ > Ô > Xóa > Xóa hàng trang tính

Cách xóa các ô được đánh dấu trong Google Sheets

Chúng tôi cũng có thể xóa các ô được đánh dấu trong Google Trang tính bằng cách lọc theo màu

Trong menu Dữ liệu, chọn Tạo bộ lọc

Sau đó, (1) trong danh sách thả xuống của một trong các tiêu đề cột, chọn (2) Lọc theo màu rồi (3) chọn Tô màu và (4) chọn màu của các ô bạn muốn xóa

Chọn các hàng của dữ liệu đã lọc và sau đó (1) trong menu Chỉnh sửa, chọn (2) Xóa và (3) Các hàng đã chọn

• 4 Tháng hai, 2013

• #1

SydneyGeek

MrExcel MVP

JoinedAug 5, 2003Messages12,251

• 4 Tháng hai, 2013

• #2

Sub DeleteNonFilled()
    Dim Rw As Long, _
        Counter As Long
    Rw = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For Counter = Rw To 2 Step -1
        If Cells(Counter, 1).Interior.ColorIndex <> 6 Then 'Yellow = 6
            Cells(Counter, 1).EntireRow.Delete
        End If
    Next Counter
    Application.Calculation = xlCalculationAutomatic
End Sub

Chỉnh sửa lần cuối. 4 Tháng hai, 2013

Dung dịch

• 4 Tháng hai, 2013

• #3