vanlinh_2904
Thành viên hoạt động
- Tham gia
- 20/10/12
- Bài viết
- 105
- Được thích
- 3
Cột A có nhiều mã tô màu đỏ sao bạn nêu là lọc mã duy nhất (tôi không hiểu?).Chào các Anh/Chị !
Em nhờ các anh/chị giúp em lọc mã duy nhất của những mã tô màu đỏ từ sheet1 sang sheet2 giúp em với. Em cảm ơn các anh/chị.
Nếu là tôi thì thêm 1 cột phụ, muốn gì thì đánh dấu "gì đó" vào cột này khỏi tốn công tô màu.Chào các Anh/Chị !
Em nhờ các anh/chị giúp em lọc mã duy nhất của những mã tô màu đỏ từ sheet1 sang sheet2 giúp em với. Em cảm ơn các anh/chị.
Cảm ơn bạn nhé, mình muốn lọc những mã tô màu đỏ và nếu mã trùng nhau thì chỉ lấy 1 lần thôi. Bạn đang lấy được mã tô màu đỏ nhưng các mã bị lặp lại.Cột A có nhiều mã tô màu đỏ sao bạn nêu là lọc mã duy nhất (tôi không hiểu?).
Tôi chỉ dựa vào Cell có tô màu và lọc sang sheet2, bạn xem thử File (hy vọng là đúng ý).
Bạn tham khảo code dùng DictionaryChào các Anh/Chị !
Em nhờ các anh/chị giúp em lọc mã duy nhất của những mã tô màu đỏ từ sheet1 sang sheet2 giúp em với. Em cảm ơn các anh/chị.
Sub LocDNtheoMau()
Dim Rng As Range, i As Long, c As Long, rAr As Variant
Dim Dic As Object, k As Long
Set Rng = Sheet1.Range("A2:D" & Sheet1.Range("A65535").End(xlUp).Row)
ReDim rAr(1 To Rng.Rows.Count, 1 To 3)
Set Dic = CreateObject("Scripting.Dictionary")
c = Sheet1.Range("H1").Font.ColorIndex
Sheet2.Range("B3:D500").ClearContents
For i = 1 To Rng.Rows.Count
If Rng(i, 1).Font.ColorIndex = c Then
If Not Dic.Exists(Rng(i, 1).Value) Then
k = k + 1: Dic.Add Rng(i, 1).Value, k
rAr(k, 1) = Rng(i, 1).Value
rAr(k, 2) = Rng(i, 2).Value
rAr(k, 3) = Rng(i, 4).Value
End If
End If
Next i
If k Then Sheet2.Range("B3").Resize(k, 3) = rAr
Set Rng = Nothing: Set Dic = Nothing
End Sub
"công tô màu" ít hơn "thêm cột phụ, và đánh dấu"Nếu là tôi thì thêm 1 cột phụ, muốn gì thì đánh dấu "gì đó" vào cột này khỏi tốn công tô màu.
Tô màu dể bị "bay" màu, khó quản lý."công tô màu" ít hơn "thêm cột phụ, và đánh dấu"
Phần còn lại thì có GPE làm giùm rồi, không tính.
Góp ý cho bạn:Cảm ơn bạn nhé, mình muốn lọc những mã tô màu đỏ và nếu mã trùng nhau thì chỉ lấy 1 lần thôi. Bạn đang lấy được mã tô màu đỏ nhưng các mã bị lặp lại.
DIỄN ĐÀN GIẢI PHÁP EXCEL