Filter những ô dữ liệu không có màu

[zPeterPan]

Em chào các Thầy cô và anh chị em trên diễn đàn. Em có file dữ liệu muốn lọc dữ liệu "Filter" những ô không tô màu "NoFill" từ cột dữ liệu cuối cùng từ bên phải sang trái và chỉ giữ lại 2 dòng cuối cùng khi thực hiện (" Filter by color" và chọn " Nofill). Dũng liệu trong file em xóa bớt dòng và cột để cho nhẹ file ( dữ liệu có thể hơn 10000 dòng và hơn 1000 cột ạ). . .
Nhờ mọi người giúp em với ạ. . . em xin cảm ơn ạ. . .


Kết quả cuối cùng đây ạ:

 

[SA_DQ]

Mình chưa rõ hết mọi chuyện mà bạn đã nêu, ví dụ:
1./ Sao xchi3 giữ lại 2 dòng cuối cùng; chúng có gì khác với các dòng khác bên trên?
2./ Lọc 'tại chỗ' hay chép sang nơi khác nào đó?

(*) Tốt nhất là bạn nêu vài dòng kết quả mong muốn để trực 2uan hơn!

 

[zPeterPan]

Mình chưa rõ hết mọi chuyện mà bạn đã nêu, ví dụ:
1./ Sao xchi3 giữ lại 2 dòng cuối cùng; chúng có gì khác với các dòng khác bên trên?
2./ Lọc 'tại chỗ' hay chép sang nơi khác nào đó?

(*) Tốt nhất là bạn nêu vài dòng kết quả mong muốn để trực 2uan hơn!

em xin trả lời là:
1. Khi "Filter" những dòng "No Fill" bắt đầu từ cột phải qua trái sẽ tắt đi những dòng "No fill" như trong file em ấn thủ công là 73 cột phải tắt " No Fill" ạ. . .
2. Là lọc tại sheet đấy luôn ạ. . . vì " Filter" những ô " NoFill" đi

 

[SA_DQ]

@Chủ bài đăng:
Bạn lấy cỡ 24 cột & 7 đến 9 dòng dữ liệu làm nguồn;
& ở trang tính thứ 2 là kết quả bạn mong muốn từ trang nguồn vừa tạo

Chúc mọi người vui khỏe!

 

[CHAOQUAY]

Em chào các Thầy cô và anh chị em trên diễn đàn. Em có file dữ liệu muốn lọc dữ liệu "Filter" những ô không tô màu "NoFill" từ cột dữ liệu cuối cùng từ bên phải sang trái và chỉ giữ lại 2 dòng cuối cùng khi thực hiện (" Filter by color" và chọn " Nofill). Dũng liệu trong file em xóa bớt dòng và cột để cho nhẹ file ( dữ liệu có thể hơn 10000 dòng và hơn 1000 cột ạ). . .
Nhờ mọi người giúp em với ạ. . . em xin cảm ơn ạ. . .
View attachment 265408

Kết quả cuối cùng đây ạ:
View attachment 265411

.......
Code lỗi, bổ sung sau

 

[zPeterPan]

@Chủ bài đăng:
Bạn lấy cỡ 24 cột & 7 đến 9 dòng dữ liệu làm nguồn;
& ở trang tính thứ 2 là kết quả bạn mong muốn từ trang nguồn vừa tạo

Chúc mọi người vui khỏe!

bác có thể chia sẻ giúp em đoạn code được không ạ. . .

 

[zPeterPan]

.......
Code lỗi, bổ sung sau

vâng ạ. . . bị lỗi không đúng với chạy thủ công ạ. . .

 

[Nhattanktnn]

vâng ạ. . . bị lỗi không đúng với chạy thủ công ạ. . .

copy 10 dòng 10 cột gì đó rồi filter đưa lên mọi người mới hình dung được, bạn cứ nói suông thế mất thời gian lắm

 

[CHAOQUAY]

vâng ạ. . . bị lỗi không đúng với chạy thủ công ạ. . .

Kiểm tra cái này xem sao

Option Explicit

Sub A_locPhaitrai2_()
Dim Nguon As Range
Dim cls, i, j, k
With Sheet1
    .AutoFilterMode = False
    Set Nguon = .Range("A2:IJ6272")
    Nguon.AutoFilter
    cls = .Range("A3").End(xlToRight).Column
    For j = cls To 1 Step -1
        Nguon.AutoFilter Field:=j, Operator:=xlFilterNoFill
        k = Nguon.Columns(j).SpecialCells(xlCellTypeVisible).Cells.Count
        If k <= 2 Then Exit For
    Next j
End With
End Sub

---
Có thể điều chỉnh <= 2 tại dòng "If k <= 2 Then Exit For" để xem kết quả khác

 

[zPeterPan]

Kiểm tra cái này xem sao

Option Explicit

Sub A_locPhaitrai2_()
Dim Nguon As Range
Dim cls, i, j, k
With Sheet1
    .AutoFilterMode = False
    Set Nguon = .Range("A2:IJ6272")
    Nguon.AutoFilter
    cls = .Range("A3").End(xlToRight).Column
    For j = cls To 1 Step -1
        Nguon.AutoFilter Field:=j, Operator:=xlFilterNoFill
        k = Nguon.Columns(j).SpecialCells(xlCellTypeVisible).Cells.Count
        If k <= 2 Then Exit For
    Next j
End With
End Sub

---
Có thể điều chỉnh <= 2 tại dòng "If k <= 2 Then Exit For" để xem kết quả khác

Kiểm tra cái này xem sao

Option Explicit

Sub A_locPhaitrai2_()
Dim Nguon As Range
Dim cls, i, j, k
With Sheet1
    .AutoFilterMode = False
    Set Nguon = .Range("A2:IJ6272")
    Nguon.AutoFilter
    cls = .Range("A3").End(xlToRight).Column
    For j = cls To 1 Step -1
        Nguon.AutoFilter Field:=j, Operator:=xlFilterNoFill
        k = Nguon.Columns(j).SpecialCells(xlCellTypeVisible).Cells.Count
        If k <= 2 Then Exit For
    Next j
End With
End Sub

---
Có thể điều chỉnh <= 2 tại dòng "If k <= 2 Then Exit For" để xem kết quả khác

cảm ơn bác nhiều ạ. . .

 

[qtm1987]

Bạn xem thử cách này được không. Click vào nút chọn để chọn vùng tương ứng cần lọc filter.