Ẩn dòng có điều kiện

[khoavu87]

Chào anh (chị) trong diễn đàn,
Em có 1 file như đính kèm cần được sự giúp đỡ từ các anh (chị).
Hiện tại em có dữ liệu khoảng 80000 dòng muốn ẩn những dòng có điều kiện thỏa mãn cho trước. Cụ thể như sau:
- Trong file "an hien" dựa vào mã cột A, những dòng có tổng > 50000 thì sẽ ẩn hết các dòng đó (bao gồm cả các dòng của mã con).
- Cụ thể như file đính kèm
Thank and best regard!

 

[ndu96081631]

Chào anh (chị) trong diễn đàn,
Em có 1 file như đính kèm cần được sự giúp đỡ từ các anh (chị).
Hiện tại em có dữ liệu khoảng 80000 dòng muốn ẩn những dòng có điều kiện thỏa mãn cho trước. Cụ thể như sau:
- Trong file "an hien" dựa vào mã cột A, những dòng có tổng > 50000 thì sẽ ẩn hết các dòng đó (bao gồm cả các dòng của mã con).
- Cụ thể như file đính kèm
Thank and best regard!

Dùng Advanced Filter theo điều kiện:

=LOOKUP("zzz",$A$3:$A3,$C$3:$C3)<=50000

Với 80,000 dữ liệu thao tác này cho kết quả trong khoảng 3s

 

[khoavu87]

Dùng Advanced Filter theo điều kiện:

=LOOKUP("zzz",$A$3:$A3,$C$3:$C3)<=50000

Với 80,000 dữ liệu thao tác này cho kết quả trong khoảng 3s

Em làm ko ra được kết quả bác NDU ạ!

 

[Hau151978]

File xls thì không thể có 80k dòng được bạn ạ.

 

[ndu96081631]

Em làm ko ra được kết quả bác NDU ạ!

Thế thì tôi không biết! Vì với file của bạn, tôi copy ra 80,000 dòng rồi làm như trên ra... phà phà

 

[khoavu87]

Thế thì tôi không biết! Vì với file của bạn, tôi copy ra 80,000 dòng rồi làm như trên ra... phà phà

Anh NDu gửi file anh làm lên được ko? em làm theo advace rồi nhưng nó vẫn ra y nguyên kết quả ban đầu
Em làm theo đây ạ:
http://www.mediafire.com/download/6j843u404xbsnh7/Vi_du_1.xlsx

 

[killitmore]

bạn thử xài code này xem

Sub an_dong()
    Dim lrow As Long
    Dim i As Long
    Dim next_row As Long
    With Sheet1
        lrow = .Cells(.Rows.Count, 3).End(xlUp).Row
        For i = 3 To lrow
            If Not (IsEmpty(.Cells(i, 1))) And .Cells(i, 3).Value >= 50000 Then
                next_row = .Cells(i, 1).End(xlDown).Row
                .Rows(i & ":" & next_row).Hidden = True
            End If
        Next i
        On Error Resume Next
        .Rows(lrow & ":" & .Rows.Count).Hidden = False
        On Error GoTo 0
    End With
End Sub

 

[killitmore]

Anh NDu gửi file anh làm lên được ko? em làm theo advace rồi nhưng nó vẫn ra y nguyên kết quả ban đầu
Em làm theo đây ạ:
http://www.mediafire.com/download/6j843u404xbsnh7/Vi_du_1.xlsx

Bác ndu hướng dẫn chuẩn rùi đấy bạn ạ, khi xài advance filter thì Criteria Range bạn chọn 1 dòng blank rồi dòng dưới là công thức nhé, như vậy nó mới hiểu là mình dùng công thức để lọc

 

[giaiphap]

Anh NDu gửi file anh làm lên được ko? em làm theo advace rồi nhưng nó vẫn ra y nguyên kết quả ban đầu
Em làm theo đây ạ:
http://www.mediafire.com/download/6j843u404xbsnh7/Vi_du_1.xlsx

Bạn thực hiện giống như hình thử xem.