Nhờ chỉ giúp cách lọc các ô không tô màu (1 người xem)

[thanhlp2007]

Chào các bạn. Sau khi mình lọc các ô màu vàng giồng nhau giữa sheet 1 và sheet 2. Bây giờ mình muốn lấy những ô tại Sheet 2 không tô màu (cụ thể là màu trắng) ra 1 cột riêng. Nhờ chỉ giúp hàm gì. Thanks

 

[viehoai]

Chào các bạn. Sau khi mình lọc các ô màu vàng giồng nhau giữa sheet 1 và sheet 2. Bây giờ mình muốn lấy những ô tại Sheet 2 không tô màu (cụ thể là màu trắng) ra 1 cột riêng. Nhờ chỉ giúp hàm gì. Thanks

Như thế này được không (xem file)
----------------------------------
Góp ý bạn: Bạn không nên đặt tên file "Cam xoa" có thể rằng bạn không có ý đó nhưng có người nghĩ như thách thức MOD, SMOD việc xóa bài??
Thân

 

[vu_tuan_manh_linh]

Bạn thử đoạn code này nhé:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, j As Integer
Dim Cll(1 To 30000) As Variant
If Target.Address = "$C$1" Then
Range("C1:C65536").ClearContents
For i = 2 To 30000
If Cells(i, 1).Value <> "" And Cells(i, 1).Interior.ColorIndex = xlNone Then
j = j + 1
Cll(j) = Cells(i, 1).Value
End If
Next i
For i = 1 To j
Cells(i + 1, 3).Value = Cll(i)
Next i
End If
End Sub
Khi chọn ô C1 trên sheet2, sẽ lọc ra cho bạn những ô không màu.
File đính kèm: View attachment 69057

 

[viehoai]

Bạn thử đoạn code này nhé:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, j As Integer
Dim Cll(1 To 30000) As Variant
If Target.Address = "$C$1" Then
Range("C1:C65536").ClearContents
For i = 2 To 30000
If Cells(i, 1).Value <> "" And Cells(i, 1).Interior.ColorIndex = xlNone Then
j = j + 1
Cll(j) = Cells(i, 1).Value
End If
Next i
For i = 1 To j
Cells(i + 1, 3).Value = Cll(i)
Next i
End If
End Sub
Khi chọn ô C1 trên sheet2, sẽ lọc ra cho bạn những ô không màu.
File đính kèm: View attachment 69057

1. Theo mình nghĩ bạn dùng sư kiện Worksheet_SelectionChange có vẽ không phù hợp lắm
2. Bạn kiểm tra lại xem hình như kết quả không đúng bởi vì cột A đang bôi màu thông qua Conditional Formatting