Tự lọc danh sách khách hàng cụ thể

[life1usd]

Tôi có một bảng danh sách bán hàng với nhiều khách hàng, giờ tôi muốn tự động lọc ra tên của một khách hàng cụ thể để theo dõi, nhưng tôi chưa tìm ra cách nào, mong mọi người giúp đỡ. Xin cám ơn.
Ghi chú: Tôi không dùng Filter vì như vậy phải làm hàng ngày.

 

[phulien1902]

Tôi có một bảng danh sách bán hàng với nhiều khách hàng, giờ tôi muốn tự động lọc ra tên của một khách hàng cụ thể để theo dõi, nhưng tôi chưa tìm ra cách nào, mong mọi người giúp đỡ. Xin cám ơn.
Ghi chú: Tôi không dùng Filter vì như vậy phải làm hàng ngày.

Bạn thử:

Application.ScreenUpdating = False
    Dim a(), b(), i, j, k, LR
    With Sheet1
        a = .Range("A3", .Range("D65000").End(3)).Resize(, 4).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 4)
    With Sheet1
        For i = 1 To LR
            If a(i, 1) = "Khách vãng lai" Then
                k = k + 1
                For j = 1 To 4
                    b(k, j) = a(i, j)
                Next j
            End If
        Next i
        With Sheet1
            .Range("G29:J10000").ClearContents
            .Range("G29:J10000").Borders.LineStyle = 0
        End With
        If k Then
            With Sheet1
                .Range("g29").Resize(k, 4) = b
                .Range("G29").Resize(k, 4).Borders.LineStyle = 1
            End With
        End If
    End With

 

[life1usd]

Bạn thử:

Application.ScreenUpdating = False
    Dim a(), b(), i, j, k, LR
    With Sheet1
        a = .Range("A3", .Range("D65000").End(3)).Resize(, 4).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 4)
    With Sheet1
        For i = 1 To LR
            If a(i, 1) = "Khách vãng lai" Then
                k = k + 1
                For j = 1 To 4
                    b(k, j) = a(i, j)
                Next j
            End If
        Next i
        With Sheet1
            .Range("G29:J10000").ClearContents
            .Range("G29:J10000").Borders.LineStyle = 0
        End With
        If k Then
            With Sheet1
                .Range("g29").Resize(k, 4) = b
                .Range("G29").Resize(k, 4).Borders.LineStyle = 1
            End With
        End If
    End With

Cám ơn bạn, nhưng máy tính công ty mình không cho chạy VBA hay macro (sếp sợ virus !!!). Mình cần công thức hoặc hàm.

 

[hocexcel_1991]

Cám ơn bạn, nhưng máy tính công ty mình không cho chạy VBA hay macro (sếp sợ virus !!!). Mình cần công thức hoặc hàm.

Công thức

=INDEX(A$3:A$19,AGGREGATE(15,6,ROW($1:$100)/($A$3:$A$19="Khách vãng lai"),ROW($A1)))

 

[life1usd]

Công thức

=INDEX(A$3:A$19,AGGREGATE(15,6,ROW($1:$100)/($A$3:$A$19="Khách vãng lai"),ROW($A1)))

Cám ơn bạn nhiều. Mình đã thử và thấy rất tốt. Mình sẽ nghiên cứu để áp dụng vào công việc.