Xin hướng dẫn tách 1 vùng dữ liệu sang thành nhiều sheet (1 người xem)

[Bony_handsome]

Xin chào Anh/Chị,

em có 1 sheet dữ liệu, trong đó cột đầu tiên là thông tin ngày tháng, giờ em muốn cài macro tách ra nhiều sheet dựa trên thông tin cột đầu tiên, cột này sẽ có nhiều ngày khác nhau. thông tin các dòng dữ liệu có cùng ngày sẽ tách ra 1 sheet riêng. nếu có thể đặt tên sheet theo tên ngày luôn thì càng tốt. vd các dòng cùng ngày 01/11/2024 thì đặt tên sheet là 011124.

Xin chỉ giùm em với.

 

[Hoàng Tuấn 868]

Xin chào Anh/Chị,

em có 1 sheet dữ liệu, trong đó cột đầu tiên là thông tin ngày tháng, giờ em muốn cài macro tách ra nhiều sheet dựa trên thông tin cột đầu tiên, cột này sẽ có nhiều ngày khác nhau. thông tin các dòng dữ liệu có cùng ngày sẽ tách ra 1 sheet riêng. nếu có thể đặt tên sheet theo tên ngày luôn thì càng tốt. vd các dòng cùng ngày 01/11/2024 thì đặt tên sheet là 011124.

Xin các cao thủ chỉ giùm em với.

Trên thì Anh, chị. Dưới thì "cao thủ". Không biết là bạn định nhờ ai đây, Chăc không ai tự nhận mình là cao thủ để giúp đâu. Ngoài ra không có file ví dụ thì khả năng được hỗ trợ là bằng không.

 

[Hoàng Tuấn 868]

Trên thì Anh, chị. Dưới thì "cao thủ". Không biết là bạn định nhờ ai đây, Chăc không ai tự nhận mình là cao thủ để giúp đâu. Ngoài ra không có file ví dụ thì khả năng được hỗ trợ là bằng không.

Bạn chạy thử file này.

 

[SA_DQ]

. . . .em có 1 sheet dữ liệu, trong đó cột đầu tiên là thông tin ngày tháng, giờ em muốn cài macro tách ra nhiều sheet dựa trên thông tin cột đầu tiên; Thông tin các dòng dữ liệu có cùng ngày sẽ tách ra 1 sheet riêng. nếu có thể đặt tên sheet theo tên ngày luôn thì càng tốt. vd các dòng cùng ngày 01/11/2024 thì đặt tên sheet là 011124.

Nếu là mình thì tên các trang tính kết quả chỉ là 3 kí tự như kiểu YMD
Ví dụ trang tính có tên D9A sẽ chứa các dòng dữ liệu của ngày 2024/9/10
Trang tính có tên 'EAC' sẽ chứa dữ liệu của năm 2025, tháng mười, ngày 12
Cái chuyện mã hóa như vậy sẽ nhờ đến hàm tự tạo sau đây:

Option Explicit
Const Alf As String = "0123456789ABCDEFGHIJKLMNOPQRTSUVWXYZ"
Function MaNTN(ByVal Dat As Date) As String
 MaNTN = Mid(Alf, Year(Dat) - 2010, 1) & Mid(Alf, 1 + Month(Dat), 1) _
    & Mid(Alf, 1 + Day(Dat), 1)
End Function

 

[Bony_handsome]

Bạn chạy thử file này.

cảm ơn anh nhiều nhiều.