Em muốn dùng vòng lặp xóa dữ liệu có điều kiện khi tô màuví dụ trong

Thưa Thầy cho em hỏi với ạ. Em muốn dùng vòng lặp xóa dữ liệu có điều kiện khi tô màu:
ví dụ trong vùng "A1 : N25". em muốn giữ lại các vùng đã bôi màu vàng, còn lại các cùng ( có dữ liệu hoặc không có dữ liệu ) màu trắng thì xóa hết đi thì viết code như thế nào ạ?

3 câu trả lời

463 lượt xem

vỗ tay

Phạm Duy Hiếu 09:07 - Jul 31, 2021

Chào bạn bạn làm như sau

Option Explicit
Sub checkmau()
    Dim i As Long, mau As Double, dc As Long
    dc = Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row
    For i = dc To 1 Step -1
      mau = Sheet1.Range("A" & i).Interior.Color ' kiemtra mau
      If (mau <> 16777215) Then
        Sheet1.Rows(i).Delete
      End If
    Next i
End Sub

Bước 1 kiểm tra dòng cuối tại dòng có dữ liệu

Bước 2 dùng vòng lặp kiểm duyệt từ cuối lên đầu

bước 3 kiểm tra màu <> điều kiện xoá thì xoá dòng

vỗ tay

Phạm Duy Hiếu 22:07 - Jul 31, 2021

Dạ vâng ạ, em cảm ơn Thầy à

vỗ tay

Phạm Duy Hiếu 15:08 - Aug 01, 2021

Chúc bạn học tốt cùng gitiho

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Em muốn dùng vòng lặp xóa dữ liệu có điều kiện khi tô màuví dụ trong

Câu hỏi liên quan