Sửa giúp đoạn code copy số liệu ra nhiều sheet

[nk_vk]

Tôi muốn tạo một macro copy dữ liệu từ sheet thứ 2 ra nhiều sheet còn lại phía sau, sau khi nghiên cứu tài liệu viết ra được một đoạn code như dưới đây nhưng không chạy được, Mong các bạn giúp đỡ.

Private Sub Sh_Sh()
Dim i As Byte
Dim sosheet As Byte
sosheet = 5
For i = 3 To sosheet
With Sheets(i)
Worksheets(2).Range("A1:G19").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
End With
Next
End Sub

 

[ndu96081631]

Tôi muốn tạo một macro copy dữ liệu từ sheet thứ 2 ra nhiều sheet còn lại phía sau, sau khi nghiên cứu tài liệu viết ra được một đoạn code như dưới đây nhưng không chạy được, Mong các bạn giúp đỡ.

Private Sub Sh_Sh()
Dim i As Byte
Dim sosheet As Byte
sosheet = 5
For i = 3 To sosheet
With Sheets(i)
Worksheets(2).Range("A1:G19").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
End With
Next
End Sub

Lý ra phải vầy chứ:

Sub Sh_Sh()
  Dim i As Long
  For i = 3 To Sheets.Count
    Sheets(i).Range("A1:G19").Value = Sheets(2).Range("A1:G19").Value
  Next
End Sub

Không cần copy, paste đâu

 

[nk_vk]

Cảm ơn bạn ndu..., Tôi đã chạy thử code bạn viết cho nhưng chỉ copy được giá trị không thôi, tôi muốn copy được cả công thức và định dạng nữa. Bạn giúp tôi với.

 

[sealand]

Mình tham gia thêm với ndu khi trong file không có sẵn số sheet đủ yêu cầu
Minh bổ xung thêm fần Format

 

[nk_vk]

Bạn sealand ơi, giúp tôi làm sao mà chép được cả công thức và định dạng nữa. Cảm ơn bạn nhiều !

 

[sealand]

Bạn mở lại file bài trước mình sửa rồi, nay đổi 1 chút cho hợp lý

 

[nk_vk]

Cảm ơn bạn sealand rất nhiều !