Copy nhiều sheet vào một Sheet (1 người xem)

[Miền Cát Trắng]

Em muốn tổng hợp dữ liệu từ nhiều sheets vào sheets tổng hợp. như file đính kèm.
Em up file lên đây phiền Thầy giúp đỡ ạ.
Cảm ơn Thầy!

 

[phucbugis]

Em chào Thầy em đã xem bài này của Thầy, thấy rất hữu ích.
Nhưng khi em muốn áp dụng vào file của em nhưng do chưa biết cách nên xảy ra lỗi tùm lum..
Em muốn tổng hợp dữ liệu từ nhiều sheets vào sheets tổng hợp. như file đính kèm.
Em up file lên đây phiền Thầy giúp đỡ ạ.
Cảm ơn Thầy!

trong khi chờ thầy trả lời,
bạn test thử code của mình xem có đúng với yêu cầu đó ko?

Link: https://www.mediafire.com/?d5f2x4fcqn63qa9

 

[ndu96081631]

trong khi chờ thầy trả lời,
bạn test thử code của mình xem có đúng với yêu cầu đó ko?

Code của bạn có đoạn:

For i = 1 To LC
  .Cells(4, 3).Resize(LR - 3, LC - 2).Copy
Next i

Hơi... ngộ ngộ nha! Chẳng biết For.. Next để làm gì luôn

 

[phucbugis]

Code của bạn có đoạn:

For i = 1 To LC
  .Cells(4, 3).Resize(LR - 3, LC - 2).Copy
Next i

Hơi... ngộ ngộ nha! Chẳng biết For.. Next để làm gì luôn

thanks a nhé !
e cứ tưởng nó phải duyệt qua từng cột thì mới nhận được vị trí cuối cột. (e đã up lại file)

 

[Miền Cát Trắng]

Xin Cảm ơn Thầy và Anh rất nhiều đã cất công giúp đỡ trong việc tách riêng chủ đề và trả lời câu hỏi ạ.
Trong quá trình test kết quả em thấy code hoạt động tốt về phần tổng hợp dữ liệu.
Nhưng có một số comment em đưa vào đó cũng là có ý chuyển cả comment sang theo,
Thầy và Anh có giải pháp nào thêm cho chủ đề này mong được giúp đỡ ạ.
Em xin cảm ơn!

 

[Miền Cát Trắng]

À đúng rồi thì ra là thế này!

With Cells(4, LC1)
.PasteSpecial Paste:=xlPasteValues 
.PasteSpecial Paste:=xlPasteComments
End with

 

[Miền Cát Trắng]

Code của bạn có đoạn:

For i = 1 To LC
  .Cells(4, 3).Resize(LR - [B][COLOR=#ff0000]3[/COLOR][/B], LC -[B][COLOR=#ff0000] 2[/COLOR][/B]).Copy
Next i

Hơi... ngộ ngộ nha! Chẳng biết For.. Next để làm gì luôn

Thầy ơi, Anh Phuc ơi !
Thầy hoặc anh giải thích dùm em các chỉ số màu đỏ với ạ.

 

[phucbugis]

Thầy ơi, Anh Phuc ơi !
Thầy hoặc anh giải thích dùm em các chỉ số màu đỏ với ạ.

hic, trong 4 tháng mà bạn "vẫn chưa hiểu nổi cái đó" ,

Sub test_123()
Dim LC As Long, LR As Long
    With ActiveSheet
        LC = .Cells(4, .Columns.Count).End(xlToLeft).Column
        LR = .Cells(.Rows.Count, "B").End(xlUp).Row
        MsgBox "LastRow (cot B): " & LR & vbNewLine & "LastColumn (hang 4): " & LC
        '.Cells(4, 3).Resize(LR - 3, LC - 2).Copy
        'hoac: .Range("C4").Resize(LR - 3, LC - 2).Select
        .Range("C4").Resize(LR, LC).Select 'bi. thua` 3 hang`, 2 cot.
    End With
End Sub

- bạn tách riêng đoạn code ra và thử với từng sheet sẽ thấy rõ hơn,
- -3, -2 là do tại C4 khi mình dùng Resize (kết hợp với LC, LR) ---> bị thừa 3 hàng, 2 cột --> phải điều chỉnh lại.