

Chào các bác, em muốn tách dữ liệu theo mã số thành từng sheet riêng biệt (file đính kèm), kính nhờ các bác giúp em với. Em cảm ơn nhiều ạ!
bạn thử xem có đúng ý bạn không?
Cám ơn bác nhiều nhé, tạm thời em check thấy đã phù hợp yêu cầu của em, trong quá trình làm việc với nó có gì khúc mắc mong bác chỉ giúpđối với bảng dữ liệu thì nên cho nó cái tiêu đề. ngay cả bác bill mà còn dùng tại sao các bạn ko dùng nhỉ. xem thử cái macro này nhé.
Bạn thử cách sau có được không nhéChào các bác, em muốn tách dữ liệu theo mã số thành từng sheet riêng biệt (file đính kèm), kính nhờ các bác giúp em với. Em cảm ơn nhiều ạ!
[thongbao]. . . Mặt khác file chứa dữ liệu đầu vào sẽ có rất nhiều đầu mã số như vậy (NB, KT, TT, TU, v.v.. khoảng 25 đầu mã) mỗi đầu mã có khoảng 40-50 mã nhỏ (NB003, NB004, NB017 v.v..) mong các bác giúp đỡ em[/thongbao]
Lí ra các iêu cầu này bạn nên nêu ngay từ bài đầu;
Mình cũng xin gợi ý bạn cách làm khác xíu, đó là các bước:
(1) Lập danh sách duy nhất cho các đầu mã mà bạn đang có đến cột [Ac];
(2) Gán cho cột dữ liệu [AC] này 1 cái tên, như [MaSo] & dùng nó làm nguồn cho 1 ô Validation nào đó như [F2];
(3) Lọc theo điều kiện của ô [F1:F2] & chép kết quả lọc sang trang có tên là [KetQua]
Nếu bạn cần tự động hóa hoàn toàn quá trình này thì cũng dễ đạt được như ý!
Bạn thử cách sau có được không nhé
Bác ơi, code này của bác khá ổn, nhưng nếu chỉ có 1 kết quả ở dòng 3 bên sheet "du lieu vao" thì sẽ bị debug, bác có cách nào khắc phục không ạ?đối với bảng dữ liệu thì nên cho nó cái tiêu đề. ngay cả bác bill mà còn dùng tại sao các bạn ko dùng nhỉ. xem thử cái macro này nhé.
bạn thêm 1 vào dòng thử xemBác ơi, code này của bác khá ổn, nhưng nếu chỉ có 1 kết quả ở dòng 3 bên sheet "du lieu vao" thì sẽ bị debug, bác có cách nào khắc phục không ạ?
[w3].AutoFill Destination:=Range("w3:w" & [a6536].End(xlUp).Row + 1)