Code tự động Auto Fileter đến dòng cuối cùng trong khối được chọn. (1 người xem)

[hoanglocphat]

Chào các bạn!

Các bạn giúp viết code động Auto Fileter đến dòng cuối cùng trong khối được chọn, cụ thể như sau:
Tôi lấy file đính kèm làm ví dụ:
Giả sử tôi chọn khối (bôi đen) A7:C7
Tôi muốn code tự động Auto Fileter đến dòng cuối cùng trong khối được chọn, Cell cuối cùng ở đây là B3770
----------------
Tôi đã dùng công cụ Auto Filter vào File (đính kèm) thì nó vẫn tự động Auto Fileter đến dòng cuối cùng trong khối được chọn. Nhưng khi áp dụng vào File thực tế thì kg được!!!! như vậy, mỗi lần Auto Filter thì tôi fải chọn cả khối, nếu kg thì Filter bị sót dòng
Do File (thực tế) rất lớn nên tôi kg thể đưa lên được

Vậy nhờ các bạn viết giúp code! Xin cảm ơn

 

[hung2412]

Chào các bạn!

Các bạn giúp viết code động Auto Fileter đến dòng cuối cùng trong khối được chọn, cụ thể như sau:
Tôi lấy file đính kèm làm ví dụ:
Giả sử tôi chọn khối (bôi đen) A7:C7
Tôi muốn code tự động Auto Fileter đến dòng cuối cùng trong khối được chọn, Cell cuối cùng ở đây là B3770
----------------
Tôi đã dùng công cụ Auto Filter vào File (đính kèm) thì nó vẫn tự động Auto Fileter đến dòng cuối cùng trong khối được chọn. Nhưng khi áp dụng vào File thực tế thì kg được!!!! như vậy, mỗi lần Auto Filter thì tôi fải chọn cả khối, nếu kg thì Filter bị sót dòng
Do File (thực tế) rất lớn nên tôi kg thể đưa lên được

Vậy nhờ các bạn viết giúp code! Xin cảm ơn

Code cùi:
[GPECODE=vb]Sub Fill()
Dim i As Long
Dim Rng As Range
Set Rng = Sheets(1).UsedRange
i = Cells.Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row
Range([A7], Cells(i, 3)).AutoFilter
End Sub[/GPECODE]

 

[Cá ngừ F1]

Tôi chưa hiểu ý của bạn lắm, đã Filter thì Filter hết, làm sao mà thiếu được.
Tuy nhiên nếu dữ liệu đúng như này, thì Code đơn giản thế này chắc cũng ổn:

Sub Loc()
    
    Sheet1.UsedRange.AutoFilter
    
End Sub

Hoặc không thì chọn 1 vùng dữ liệu thật TO ra, chả ảnh hưởng đến tốc độ.

 

[hung2412]

Tôi chưa hiểu ý của bạn lắm, đã Filter thì Filter hết, làm sao mà thiếu được.
Tuy nhiên nếu dữ liệu đúng như này, thì Code đơn giản thế này chắc cũng ổn:

Sub Loc()
    
    Sheet1.UsedRange.AutoFilter
    
End Sub

Hoặc không thì chọn 1 vùng dữ liệu thật TO ra, chả ảnh hưởng đến tốc độ.

Thực tế có trường hợp không Filter hết đấy ạ.