Lọc dữ liệu theo cột bằng VBA

[BaoNgoc99]

Bạn chuyển sang xem trang tính thứ hai, sẽ có ngay kết quả tấp lự cho bạn!

Cảm ơn Bạn HYen17, Bạn hỗ trợ giúp mình thêm nữa là format cột "Arrival Time" là "dd/mm/yyyy" giống như datevalue khi copy sang nhé !
Như module này chọn 3 trường, mình muốn có thể chọn thêm các trường khác thì làm thế nào, Bạn hướng dẫn luôn giúp nhé !

[anhvanit]

Chọn thêm trường mình đã làm được rồi còn định dạng lại cho cột "Arrival Time" là "dd/mm/yyyy" bằng VBA mình chưa làm dc, Bạn fix giúp !

[levanlong]

Chọn thêm trường mình đã làm được rồi còn định dạng lại cho cột "Arrival Time" là "dd/mm/yyyy" bằng VBA mình chưa làm dc, Bạn fix giúp !

Chế thêm vài dòng lệnh trong code của "chị" HYen17 như vầy thử xem sao:

Sub Loc3Truong() Dim Sh As Worksheet, Rng As Range, Arr(), I As Long'---------Them 2 bien'  Set Sh = ThisWorkbook.Worksheets("Sheet1") Set Rng = Sh.[B2].CurrentRegion Sheet2.Select Rng.AdvancedFilter Action:=xlFilterCopy, _    CriteriaRange:=Range("AA1:AA2"), CopyToRange:=Range("A1:D1"), Unique:=False    '------------------------Them moi---------------------- Arr = Range([B2], [B2].End(xlDown)).Value For I = 1 To UBound(Arr, 1)    Arr(I, 1) = DateSerial(Mid(Arr(I, 1), 7, 4), Mid(Arr(I, 1), 4, 2), Left(Arr(I, 1), 2)) Next I    [B2].Resize(I - 1) = ArrEnd Sub