Code gom nhiều sheet thành 1-cùng và khác workbook (1 người xem)

[hoangexcell]

hi Các bạn,

Mình tìm cũng rất nhiều rồi mà chưa thể tìm ra có ai viết đoạn code đó.

1. Ghép nhiều sheet thành 1 sheet trong cùng 1 workbook
2. Ghép nhiều sheet ở các workbook khác nhau vào 1 sheet

Tất cả các sheet giống nhau về cấu trúc hết.

Hay có thể dùng pivot table hay không?

 

[♫ђöล♥ßล†♥†µ♫]

hi Các bạn,

Mình tìm cũng rất nhiều rồi mà chưa thể tìm ra có ai viết đoạn code đó.

1. Ghép nhiều sheet thành 1 sheet trong cùng 1 workbook
2. Ghép nhiều sheet ở các workbook khác nhau vào 1 sheet

Tất cả các sheet giống nhau về cấu trúc hết.

Hay có thể dùng pivot table hay không?

Hờ i Bạn. Với yêu cầu như trên thì Bạn hãy đính kèm File giả lập thì khoảng chục phút mấy anh đẹp trai sẽ đưa kết quả cho bạn thôi

 

[hoangexcell]

Hờ i Bạn. Với yêu cầu như trên thì Bạn hãy đính kèm File giả lập thì khoảng chục phút mấy anh đẹp trai sẽ đưa kết quả cho bạn thôi

Rất đơn giản mà.
1. Copy tất cả các sheet qua sheet tổng hợp. Chú ý phải xử lý trường hợp có name trùng, rồi link công thức. Chỉ cần copy giá trị / format qua thôi cũng được
2. Cũng như 1 nhưng các Sheet nó ở các workbook khác nhau. Lưu cùng 1 folder

Xin cám ơn!

 

[♫ђöล♥ßล†♥†µ♫]

Rất đơn giản mà.
1. Copy tất cả các sheet qua sheet tổng hợp. Chú ý phải xử lý trường hợp có name trùng, rồi link công thức. Chỉ cần copy giá trị / format qua thôi cũng được
2. Cũng như 1 nhưng các Sheet nó ở các workbook khác nhau. Lưu cùng 1 folder

Xin cám ơn!

Chú ý phải xử lý trường hợp có name trùng, rồi link công thức. Vậy nó ở chỗ nào trong File đính kèm vậy Anh

 

[hoangexcell]

Chú ý phải xử lý trường hợp có name trùng, rồi link công thức. Vậy nó ở chỗ nào trong File đính kèm vậy Anh

Mình nói chung thôi, đâu cần phải cụ thể chi tiết thế. Thì chỉ cần copy giá trị/fotmat sang sheet tổng hợp thì bỏ qua mấy cái đó được?

 

[♫ђöล♥ßล†♥†µ♫]

Mình nói chung thôi, đâu cần phải cụ thể chi tiết thế. Thì chỉ cần copy giá trị/fotmat sang sheet tổng hợp thì bỏ qua mấy cái đó được?

Để tránh những khúc mắc về sau ấy mà . Mà có xóa dữ liệu cũ tại Sheets("TH") không anh

Bài đã được tự động gộp: 10/6/18

Chờ mãi không thấy trả lời. Thôi cứ xóa cho nó chắc ăn

Sub Tonghop()
    Dim Ws As Worksheet, Col As Long
    Dim sArr, I As Long, J As Long, K As Long
Col = Sheets("TH").Range("A1").End(xlToRight).Column
ReDim dArr(1 To 65535, 1 To Col)
For Each Ws In Worksheets
    If Ws.Name <> "TH" Then
        With Ws
            sArr = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Resize(, Col).Value
            For I = 1 To UBound(sArr)
                K = K + 1
                For J = 1 To UBound(sArr, 2)
                    dArr(K, J) = sArr(I, J)
                Next J
            Next I
        End With
    End If
Next
With Sheets("TH")
    .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Resize(, Col).ClearContents
    .Range("A2").Resize(K, Col).Value = dArr
End With
End Sub

Mà chưa chắc cái này đã đúng yêu cầu rùi. Vì nhà họ "tìm cũng rất nhiều rồi mà chưa thể tìm ra có ai viết đoạn code đó" trong khi Code trên ở GPE có vài rổ lận

 

[hoangexcell]

Cám ơn bạn nhiều nhưng quả thật code đó chạy không nổi đâu. Chuyện này nó không dễ nhưng ta nghĩ. hic hic
(đã báo lỗi)

 

[HieuCD]

Cám ơn bạn nhiều nhưng quả thật code đó chạy không nổi đâu. Chuyện này nó không dễ nhưng ta nghĩ. hic hic
(đã báo lỗi)

Báo lổi do không biết dùng code với file thật