Ẩn/Hiện các dòng dữ liệu

[trananhtuan281914]

Bảng dữ liệu của mình sau khi trích lọc sẽ có nhiều dòng không có dữ liệu, anh/chị hướng dẫn giúp cách ẩn các dòng không có dữ liệu và hiện lại các dòng khi chọn đối tượng khác.

 

[thnghiachau]

Bảng dữ liệu của mình sau khi trích lọc sẽ có nhiều dòng không có dữ liệu, anh/chị hướng dẫn giúp cách ẩn các dòng không có dữ liệu và hiện lại các dòng khi chọn đối tượng khác.

Sao bạn không dùng FIlter nhỉ?

 

[phulien1902]

Bảng dữ liệu của mình sau khi trích lọc sẽ có nhiều dòng không có dữ liệu, anh/chị hướng dẫn giúp cách ẩn các dòng không có dữ liệu và hiện lại các dòng khi chọn đối tượng khác.

Bạn thử với dữ liệu trong File của bạn

Sub Test()
    Dim a(), b(), i&, k%, LR, DK
    With Sheet1
        a = .Range("G6", .Range("G65000").End(3)).Resize(, 2).Value
        LR = UBound(a)
    End With
    DK = Sheet1.Range("c2")
    ReDim b(1 To LR, 1 To 2)
    With Sheet1
        For i = 1 To LR
            If a(i, 2) = DK Then
                k = k + 1: b(k, 1) = a(i, 1): b(k, 2) = a(i, 2)
            End If
        Next i
        Sheet1.Range("b6:c1000").ClearContents
        If k Then
            With Sheet1
                .Range("b6").Resize(k, 2) = b
            End With
        End If
    End With
End Sub

 

[trananhtuan281914]

Bạn thử với dữ liệu trong File của bạn

Sub Test()
    Dim a(), b(), i&, k%, LR, DK
    With Sheet1
        a = .Range("G6", .Range("G65000").End(3)).Resize(, 2).Value
        LR = UBound(a)
    End With
    DK = Sheet1.Range("c2")
    ReDim b(1 To LR, 1 To 2)
    With Sheet1
        For i = 1 To LR
            If a(i, 2) = DK Then
                k = k + 1: b(k, 1) = a(i, 1): b(k, 2) = a(i, 2)
            End If
        Next i
        Sheet1.Range("b6:c1000").ClearContents
        If k Then
            With Sheet1
                .Range("b6").Resize(k, 2) = b
            End With
        End If
    End With
End Sub

Mình chọn 1 cột B được không anh vì các cột sau có dòng dữ liệu tương ứng với B.

 

[phulien1902]

Mình chọn 1 cột B được không anh vì các cột sau có dòng dữ liệu tương ứng với B.

Bạn có dùng hàm Vlookup cho đơn giản.

 

[be_09]

Bảng dữ liệu của mình sau khi trích lọc sẽ có nhiều dòng không có dữ liệu, anh/chị hướng dẫn giúp cách ẩn các dòng không có dữ liệu và hiện lại các dòng khi chọn đối tượng khác.

Trích lọc dữ liệu sao không sử dụng AdvancedFilter, nó có thể lọc được nhiều tiêu chí code cũng ngắn gọn và nó lọc theo tên nên chả cần ẩn hiện dòng.