Giúp code copy 1 sheet thành nhiều sheet (1 người xem)

[congnguyen88]

Tôi có 1 file Excel khách hàng, Tôi muốn Copy 1 sheet có tên là Data thành 50 sheet data ( dữ liệu trong sheet giống y chan như khác tên sheet là Data (2), data (3)....data(50) . Tôi thường làm làm nhấn giữ Ctrl kéo Sheet data sang phải thì sẽ copy, vậy có cách nào copy cho nhanh không

 

[huuthang_bd]

Tôi có 1 file Excel khách hàng, Tôi muốn Copy 1 sheet có tên là Data thành 50 sheet data ( dữ liệu trong sheet giống y chan như khác tên sheet là Data (2), data (3)....data(50) . Tôi thường làm làm nhấn giữ Ctrl kéo Sheet data sang phải thì sẽ copy, vậy có cách nào copy cho nhanh không

Bạn thử code này:

Sub CopySheet()
Dim Sh As Worksheet
Set Sh = ActiveSheet
For i = 1 To 49
    Sh.Copy After:=Sheets(Sh.Index - 1 + i)
Next
End Sub

Đứng ở sheet nào chạy code thì copy sheet đó.

 

[congnguyen88]

Ok được rồi. Xin cam on anh