Nhờ mọi người giúp code tìm tên sheet và điền vào dữ liệu

[frantliem]

Em có 1 file có nhiều sheet có cấu trúc giống nhau, mỗi sheet đặt tên là ngày dữ liệu. Nhờ mọi người chỉ em 1 code để có thể chèn vào cột cuối cùng của tất cả các sheet với tên của từng sheet đã đặt .
Như ở hình em đính kèm điền vào tất cả các dòng cột P với dữ liệu tên sheet là 0107. Và tất cả các sheet sau cũng vậy
Xin cám ơn mọi người

 

[thnghiachau]

Em có 1 file có nhiều sheet có cấu trúc giống nhau, mỗi sheet đặt tên là ngày dữ liệu. Nhờ mọi người chỉ em 1 code để có thể chèn vào cột cuối cùng của tất cả các sheet với tên của từng sheet đã đặt .
Như ở hình em đính kèm điền vào tất cả các dòng cột P với dữ liệu tên sheet là 0107. Và tất cả các sheet sau cũng vậy
Xin cám ơn mọi người

Có gì đâu mà coi để làm vậy bạn?

 

[HUONGHCKT]

Em có 1 file có nhiều sheet có cấu trúc giống nhau, mỗi sheet đặt tên là ngày dữ liệu. Nhờ mọi người chỉ em 1 code để có thể chèn vào cột cuối cùng của tất cả các sheet với tên của từng sheet đã đặt .
Như ở hình em đính kèm điền vào tất cả các dòng cột P với dữ liệu tên sheet là 0107. Và tất cả các sheet sau cũng vậy
Xin cám ơn mọi người

Bạn đưa cái ảnh lên thì mọi người cũng chỉ ngẹo cổ mà coi cho vui thôi. Thử tự đặt câu hỏi và trả lời là nếu có người muốn giúp thì họ sẽ viết code hoặc công thức thì họ sẽ viết vào đâu? hay bạn muốn họ là tạo file cho bạn luôn?

 

[frantliem]

Xin lỗi mọi người. Em vô ý quá . Nhờ mọi người giúp ạ

 

[CHAOQUAY]

Xin lỗi mọi người. Em vô ý quá . Nhờ mọi người giúp ạ

........................................

Option Explicit

Sub abcd()
Dim Ws As Worksheet
Dim i, j, k
For Each Ws In Worksheets
    i = Ws.Range("A" & Rows.Count).End(xlUp).Row
    j = Ws.Range("XFD1").End(xlToLeft).Column
    Ws.Range(Ws.Cells(2, j + 1), Ws.Cells(i, j + 1)).NumberFormat = "@"
    Ws.Range(Ws.Cells(2, j + 1), Ws.Cells(i, j + 1)) = Ws.Name
Next Ws
End Sub

 

[VetMini]

Nếu lấy sheetnames đại trà mới dùng code.
Lấy từng tên sheet, ghi lại trong chính sheet đó thì người ta dùng hàm CELL