Insert một cột lấy tên sheet (1 người xem)

[hanphilong103]

Chào mọi người,
Em có một file nhiều sheet khác nhau.

Muốn insert một cột A:A, điền dữ liệu các ô còn thiếu trong cột A bằng tên sheet của nó.

& có thể chạy hết tất cả các sheet trong file

Do có quá nhiều sheet nên anh/chị nào có thể giúp chạy bằng VBA với.

Cảm ơn.

 

[HungQuoc49]

Muốn insert một cột A:A, điền dữ liệu các ô còn thiếu trong cột A bằng tên sheet của nó.

Có nghĩa là sheet nào cũng thực hiện y như vậy?

 

[phulien1902]

Chào mọi người,
Em có một file nhiều sheet khác nhau.

Muốn insert một cột A:A, điền dữ liệu các ô còn thiếu trong cột A bằng tên sheet của nó.

& có thể chạy hết tất cả các sheet trong file

Do có quá nhiều sheet nên anh/chị nào có thể giúp chạy bằng VBA với.

Cảm ơn.

Bạn tham khảo bài viết này nhé, code bài #4
http://www.giaiphapexcel.com/forum/showthread.php?106206-Gi%C3%BAp-m%C3%ACnh-vi%E1%BA%BFt-macro-n%C3%A0y-v%E1%BB%9Bi!&p=660571#post660571

 

[hanphilong103]

Có nghĩa là sheet nào cũng thực hiện y như vậy?

.
Đúng rồi bạn. Code chạy hết cho tất cả các sheet trong file excel đó.

Do mình xóa những file cho đỡ nặng nên chỉ còn 2sheet thôi

 

[hanphilong103]

Bạn tham khảo bài viết này nhé, code bài #4
http://www.giaiphapexcel.com/forum/showthread.php?106206-Gi%C3%BAp-m%C3%ACnh-vi%E1%BA%BFt-macro-n%C3%A0y-v%E1%BB%9Bi!&p=660571#post660571

Cảm ơn bạn. Những bài này là tách ra từ một sheet. Còn mình muốn là insert trong file có nhiều sheet. Mình không rành về VBA lắm.

 

[Ba Tê]

.
Đúng rồi bạn. Code chạy hết cho tất cả các sheet trong file excel đó.

Do mình xóa những file cho đỡ nặng nên chỉ còn 2sheet thôi

Chạy thử cái này:

Public Sub GPE_115()
Dim Ws As Worksheet, Rws As Long
For Each Ws In Worksheets
    With Ws
        Rws = .Range("A65536").End(xlUp).Row
        .Columns("A:A").Insert
        .Range("A2:A" & Rws).Value = Ws.Name
    End With
Next Ws
End Sub