xoá dữ liệu giống với màu của dòng bên cạnh! (1 người xem)

[thuhang_uniden]

Chào các bác,
Em muốn xoá dữ liệu của cột B với màu nền giống với màu nền của cột A:
vd: em muốn xoá dữ liệu không có màu, còn màu vàng thì để lai
Các bác xem file đính kèm em gửi, em chân thành cảm ơn các bác.

 

[MinhCong]

Chào các bác,
Em muốn xoá dữ liệu của cột B với màu nền giống với màu nền của cột A:
vd: em muốn xoá dữ liệu không có màu, còn màu vàng thì để lai
Các bác xem file đính kèm em gửi, em chân thành cảm ơn các bác.

Bạn dùng tạm đoạn code sau vậy:

Sub Locmau()
Dim iR As Long, enR As Long
Application.ScreenUpdating = False
 Sheet1.Range("B:B").Clear
  enR = Sheet1.Range("A65500").End(xlUp).Row
    For iR = 1 To enR
        With Sheet1.Cells(iR, 1)
            If .Interior.ColorIndex <> xlNone Then
                .Offset(, 1) = .Value
            End If
        End With
    Next
  Application.ScreenUpdating = True
End Sub

Xem thêm file nhé!

 

[vuminh1601]

Chào các bác,
Em muốn xoá dữ liệu của cột B với màu nền giống với màu nền của cột A:
vd: em muốn xoá dữ liệu không có màu, còn màu vàng thì để lai
Các bác xem file đính kèm em gửi, em chân thành cảm ơn các bác.

Bạn xem file đúng ý chưa nhé.

 

[thuhang_uniden]

Em chân thành cám ơn các bác, đã đúng ý của em rồi ạ. Thế là bây giờ em yên tâm đi ngủ rùi.