Code copy các sheet qua 1 sheet (5 người xem)

[qv7tb]

Bài toán viết Code VBA copy các sheet qua 1 sheet giữ được giá trị cũng như vị trí ban đầu của nó ở sheet đã copy.
Thanks a/e forum GPE!!!

 

[nhapmon]

thử đoạn code này, cái này trên diễn đàn nhiều lắn rồi bạn, search tìm thêm

Sub Copy()

For i = 1 To 5
Sheets(i).Select
lr = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & lr).Copy Destination:=Sheets("tong hop").Cells(1, i)
Next i


End Sub

 

[qv7tb]

tìm không thấy mò chưa ra các chỉ giúp links coi.
Thanks!

 

[Quang_Hải]

thử đoạn code này, cái này trên diễn đàn nhiều lắn rồi bạn, search tìm thêm

Sub Copy()

For i = 1 To 5
Sheets(i).Select
lr = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & lr).Copy Destination:=Sheets("tong hop").Cells(1, i)
Next i


End Sub

Viết vầy cho ngắn

Sub CopyCopy()
Dim i As Byte
For i = 1 To 5
   Sheets(i).[A1:A1000].Copy Cells(1, i)
Next
End Sub

 

[nhapmon]

Sheets(i).[A1:A1000].Copy Cells(1, i)

[/PHP]

có cách nào khai báo cho range động ko anh Hai, nó chỉ chép tới dòng cuối cùng thôi. nếu data tới 10001 dòng thì nó ko copy rồi

 

[Quang_Hải]

có cách nào khai báo cho range động ko anh Hai, nó chỉ chép tới dòng cuối cùng thôi. nếu data tới 10001 dòng thì nó ko copy rồi

Thì thế này đi:
With Sheets(i)
.Range(.[A1],.[A65536].End(3)).Copy Cells(1,i)
End With

 

[duhero]

nếu như chỉ copy 10 hàng một thì sao ạ

 

[huuthang_bd]

nếu như chỉ copy 10 hàng một thì sao ạ

Bạn xem thử cái này:
http://www.giaiphapexcel.com/forum/showthread.php?49688-Tách-gộp-dữ-liệu-trên-nhiều-file