Chuyển 5 cột về 1 cột trong cùng 1 sheet (1 người xem)

[1986QV]

Nhờ các cao thủ viết code VBA cho Chuyển đổi 5 cột về 1 cột trong cùng 1 sheet, xảy ra 3 hoặc 5 sheet cùng lúc. Rất mong sự quan tâm giúp đỡ của mọi người.
Cảm ơn mọi người cùng quan tâm và giúp đỡ!!!

 

[Ba Tê]

Nhờ các cao thủ viết code VBA cho Chuyển đổi 5 cột về 1 cột trong cùng 1 sheet, xảy ra 3 hoặc 5 sheet cùng lúc. Rất mong sự quan tâm giúp đỡ của mọi người.
Cảm ơn mọi người cùng quan tâm và giúp đỡ!!!

Sử dụng code này thử xem:

Public Sub GPE()
Dim Ws As Worksheet, Rng(), Arr(), I As Long, J As Long, K As Long
For Each Ws In Worksheets
    Rng = Ws.Range(Ws.[A1], Ws.[A65000].End(xlUp)).Resize(, 5).Value
    ReDim Arr(1 To UBound(Rng, 1) * UBound(Rng, 2), 1 To 1)
            K = 0
    If Ws.[A65000].End(xlUp).Row > 1 Then
        For J = 1 To UBound(Rng, 2)
            For I = 1 To UBound(Rng, 1)
                K = K + 1
                Arr(K, 1) = Rng(I, J)
            Next I
        Next J
            Ws.[H1].Resize(K).Value = Arr
    End If
Next
End Sub

 

[1986QV]

Chuẩn luôn bác. Thanks bác nha!

 

[1986QV]

Bổ sung

Sau bài trên em áp dụng vào vẫn thấy không đầy đủ cho sổ sách do ban đầu em yêu cầu không đầy đủ. Sau buổi sáng em làm nên đề nghị các cao thủ viết giúp code cho tron vẹn cho cuốn sổ ghi chép được đầy đủ. Những yêu cầu đầy đủ trong file em gửi rồi. Rất mong các bạn quan tâm giúp đỡ!!!
Cảm ơn các bạn rất nhiều!!!

 

[Ba Tê]

Sau bài trên em áp dụng vào vẫn thấy không đầy đủ cho sổ sách do ban đầu em yêu cầu không đầy đủ. Sau buổi sáng em làm nên đề nghị các cao thủ viết giúp code cho tron vẹn cho cuốn sổ ghi chép được đầy đủ. Những yêu cầu đầy đủ trong file em gửi rồi. Rất mong các bạn quan tâm giúp đỡ!!!
Cảm ơn các bạn rất nhiều!!!

B1 hổng biết làm gì.
Bấm vào mũi tên B2 thử xem kết quả có đúng không.

 

[1986QV]

Với tất cả các sheet đều xảy ra cùng 1 lúc mà bác. Em cho vào thực nghiệm không chạy được bác ah!
Bác giúp em xem thế nào. Cảm ơn bác!!!

 

[Ba Tê]

Với tất cả các sheet đều xảy ra cùng 1 lúc mà bác. Em cho vào thực nghiệm không chạy được bác ah!
Bác giúp em xem thế nào. Cảm ơn bác!!!

File trước chỉ có dữ liệu ở 1 sheet, có biết đâu?
Lúc trước nói từ 3-5 cột, bây giờ có sheet 4 cột, có sheet 8 cột?
Xem lại file này coi sao.

 

[1986QV]

Lần này bác làm quá chuẩn rồi. Em sorry bác do ban đầu em cũng chưa nảy ra ý tưởng đó. Sau khi bác làm và chạy mãi em mới có ý tưởng mới. Thành thật cảm ơn bác. Bác vất vả giúp em cũng như xây dựng diễn dàn GPE.
Cảm ơn mọi người quan tâm và giúp đỡ!!!