Điều kiện cho .SpecialCells(12).Copy!

[ThuNghi]

With Sheets("Data").Range("A4").CurrentRegion
          .AutoFilter 5, DK & "*"
          Union(.Offset(1, 0).Resize(, 3), .Offset(1, 4).Resize(, 1)).SpecialCells(12).Copy
          Sh.Range("A65000").End(xlUp).Offset(1).PasteSpecial 3
          .AutoFilter
        End With

Học của NDU, tôi thử dùng AutoFilter để copy các dòng theo điều kiện = DK, nhưng thử với số dòng > 30.000 thì không chọn visible cells only.
Vậy AutoFilter có kèm điều kiện về số dòng?
Nhờ các bạn HD giúp.
Cám ơn!

 

[ndu96081631]

With Sheets("Data").Range("A4").CurrentRegion
          .AutoFilter 5, DK & "*"
          Union(.Offset(1, 0).Resize(, 3), .Offset(1, 4).Resize(, 1)).SpecialCells(12).Copy
          Sh.Range("A65000").End(xlUp).Offset(1).PasteSpecial 3
          .AutoFilter
        End With

Học của NDU, tôi thử dùng AutoFilter để copy các dòng theo điều kiện = DK, nhưng thử với số dòng > 30.000 thì không chọn visible cells only.
Vậy AutoFilter có kèm điều kiện về số dòng?
Nhờ các bạn HD giúp.
Cám ơn!

Cái này có nói 1 vài lần trên diển đàn rồi... lổi không phải do AutoFilter mà là do SpecialCells...
Vậy ta chỉ còn cách:
- Chia nhỏ vùng dử liệu ra làm nhiều phần mà lọc
- Thay vì AutoFiler, ta chuyển sang dùng Advanced Filter ---> Lọc trực tiếp với vùng điều kiện đã điền trước, tránh phải dùng SpecialCells
Theo tôi trường hợp này xài Advanced Filter là nhanh gọn nhất

 

[ThuNghi]

Cái này có nói 1 vài lần trên diển đàn rồi... lổi không phải do AutoFilter mà là do SpecialCells...
Vậy ta chỉ còn cách:
- Chia nhỏ vùng dử liệu ra làm nhiều phần mà lọc
- Thay vì AutoFiler, ta chuyển sang dùng Advanced Filter ---> Lọc trực tiếp với vùng điều kiện đã điền trước, tránh phải dùng SpecialCells
Theo tôi trường hợp này xài Advanced Filter là nhanh gọn nhất

Thấy cũng hay nên làm thử mà có báo lỗi nên không yên tâm. Dùng Autofilter nhanh hơn AdFi. Với lại AdFi phải tạo thêm 1 sh Tmp, hay cột tmp, quên xóa thì không pro. Và nhất là có những Data, dòng tiêu đề là số hay báo lỗi. Phải chi mình biết ngọn ngành.
Dùng ADO thì lại phân biệt chữ thường và hoa.
Dùng Find thì chậm.
Dùng sort thì dễ sai ở chỗ chọn LastRow.
Cám ơn ndu nhiều.