Lọc danh sách dữ liệu không cùng hàng (1 người xem)

[lilnine13189]

Em chào các anh chị và các bạn, em đang làm và gặp trường hợp như thế này, mong anh chị giúp đỡ ạ.
em có hình ví dụ như sau:
View attachment 127081

Giờ để lọc ra danh sách gồm tên và khoản thời gian đầu tiên bắt đầu làm ở Toyota thì làm thế nào để có kết quả là:
ĐÀO THÁI HÒA - 022947583 - 01/10/2005 - 01/09/2006 - Toyota
VÕ THỊ NGUYỆT LAM - 300897075 - 01/04/2003 - 01/06/2003 - Toyota
HUỲNH ANH THƯ - 331122918 - 01/05/1998 - 01/12/1999 - Toyota
.....................

Mong các anh chị giúp đỡ ạ, cảm ơn các anh chị nhiều ạ ^^

 

[Ba Tê]

Em chào các anh chị và các bạn, em đang làm và gặp trường hợp như thế này, mong anh chị giúp đỡ ạ.
em có hình ví dụ như sau:
View attachment 127081

Giờ để lọc ra danh sách gồm tên và khoản thời gian đầu tiên bắt đầu làm ở Toyota thì làm thế nào để có kết quả là:
ĐÀO THÁI HÒA - 022947583 - 01/10/2005 - 01/09/2006 - Toyota
VÕ THỊ NGUYỆT LAM - 300897075 - 01/04/2003 - 01/04/2003 - Toyota
HUỲNH ANH THƯ - 331122918 - 01/05/1998 - 01/12/1999 - Toyota
.....................

Mong các anh chị giúp đỡ ạ, cảm ơn các anh chị nhiều ạ ^^

Bạn xem cái kết quả màu đỏ ở trên là lấy ở đâu ra?

 

[lilnine13189]

Xin lỗi mình ghi sai ạ

 

[SA_DQ]

Bạn kiểm theo file đính kèm;

 

[Ba Tê]

Xin lỗi mình ghi sai ạ

Vậy thì xem thử File này, nhớ Enable Macros khi mở file, bấm nút 1 phát là xong.
------------------------------

Bạn kiểm theo file đính kèm;

Hình như kết quả của mình khác với của bác SA???????????????

 

[SA_DQ]

Đúng là macro của bài #4 còn thiếu con số "-1" trong câu lệnh:

Option Explicit
Sub LamTaiToyota()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 Dim lRw As Long
 
 Set Sh = ThisWorkbook.Worksheets("DuLieu")
 lRw = Sh.[C65500].End(xlUp).Row
 Set Rng = Sh.[A1:A2]
 [b4].CurrentRegion.Offset(1, 1).Clear
 Do
    Set Rng = Sh.Range(Rng(Rng.Cells.Count), Rng(Rng.Cells.Count).End(xlDown))
    If Rng(1).Row > lRw Then Exit Do
    With Cells(lRw, "b").End(xlUp).Offset(1)
        .Resize(, 2).Value = Rng(1).Resize(, 2).Value
        Set sRng = Rng.Offset(-1, 4).Find("Toyota", , xlFormulas, xlWhole)  '<=|'
        If Not sRng Is Nothing Then
            .Offset(, 2).Resize(, 3).Value = sRng.Offset(, -2).Resize(, 3).Value
        Else
            .Interior.ColorIndex = 38
        End If
    End With
 Loop
 Randomize
 [B3].Resize(, 5).Interior.ColorIndex = 34 + 9 * Rnd() \ 1
End Sub

 

[lilnine13189]

Cảm ơn các bác nhìu lắm ạ