Mình nhờ các bạn giúp đoạn code lọc dữ liệu giùm, nghĩ nát óc rùi,hjx

[congtrihcmv]

Mình muốn lọc dữ liệu thế này
Tương ứng với mỗi frame (D2,D3...) mỗi vị trí station(2.25,4.5....)lấy giá trị M3 lớn nhất.
Mình dùng Filter thì làm được ngay nhưng nhiều frame quá thì lâu không thể tả được.
Mình nhờ các bạn viết hộ code này nhé!
Thanks các bạn nhìu!

 

[congtrihcmv]

Duoc rùi, mình sua duoc rùi, cảm on ban nhé

 

[ChanhTQ@]

Có vẻ như bạn chịu chơi với macro rồi fải không

mà mình muốn nó xuất ra ở vị trí khác thì chỉnh chỗ nào, mình đọc code ko hiểu, hjx

Muốn chép đến nơi khác thì khảo cứu các dòng lệnh chổ ni:

 Set Rng = [a4].Resize(eRw - 3, 7):              Set Sh = Sheet2 
2 [A1].Resize(4, 3).Copy Destination:=Sh.[A1] 
 Sh.[A5].Resize(eRw, 4).Clear 
4 [g3].Resize(2).Copy Destination:=Sh.[c3]

Dòng lệnh 2 sẽ chép vùng "A1:C4" của trang tính "Element Forcer - Frames" sang trang tính Sheet2 với ô trên trái nhất là [A1]
Sau đó dòng lệnh 4 chép thêm nội dung của 2 ô "G3:G4" từ trang tính đầu sang đến "C3:C4" của trang tính sau.

Vậy bạn muốn chép đi đâu thì căn cứ vào 2 dòng này & điều chỉnh thử; Quan trọng là dòng lệnh 2 í nha.

Còn 1 chổ fải chình sửa nữa trong macro, đó là chỉnh dòng lệnh 6 dưới đây

6         With Sh.[A65500].End(xlUp).Offset(1)     ',<=|'
           .Value = Frame:               .Offset(, 1).Value = Station 
           .Offset(, 2).Value = Max_

Ví dụ bạn sửa chép sang cột D bắt đầu từ [D1] thì câu lệnh 2 sửa lại là:

[A1].Resize(4, 3).Copy Destination:=Sh.[D1]

Câu lệnh 4 fải sửa lại thành:

[g3].Resize(2).Copy Destination:=Sh.[F3]

& câu 6 sẽ fải là

With Sh.[D65500].End(xlUp).Offset(1)

Tiếp tục bạn thử dịch chuyển cho macro chép xuống dưới vài dòng hay vài cột xem sao?!

Ok, gần được rùi, chạy ra thì dư dòng d2 2,25 0.03962

sao lại như vậy nhỉ? Bạn nói rõ hơn được không?!

 

[minhngocstu]

Làm được rồi share cho mình được không bạn, mình đang cần mà chưa có thời gian nghiên cứu macro, thank bạn trước!