Copy tất cả các sheet từ hàng ngang thanh doc (2 người xem)

[lhthai]

Hiện tại có file gồm 28 sheet ,hàng ngày code từ dòng J4:J8(Nhấn Ctrl + shift + phím mũi tên) kéo đến cuối copy dán vào thành cột vào sheet khác
Em up file nhờ các anh chi dùm

 

[lhthai]

Không có anh nào hướng dẫn cả. Đành phải chờ thôi.

 

[Ba Tê]

Hiện tại có file gồm 28 sheet ,hàng ngày code từ dòng J4:J8(Nhấn Ctrl + shift + phím mũi tên) kéo đến cuối copy dán vào thành cột vào sheet khác
Em up file nhờ các anh chi dùm

Đặt tên "sheet khác" là "GPE" rồi chạy thử Sub này

Public Sub GPE_X()
Dim sArr(), dArr(1 To 50000, 1 To 5), Ws As Worksheet, I As Long, J As Long, K As Long
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "GPE" Then
        sArr = Ws.Range(Ws.[J4], Ws.[J4].End(xlToRight)).Resize(5).Value
        For J = 1 To UBound(sArr, 2)
            K = K + 1
            For I = 1 To 5
                dArr(K, I) = sArr(I, J)
            Next I
        Next J
    End If
Next Ws
Sheets("GPE").[A4:E50000].ClearContents
Sheets("GPE").[A4].Resize(K, 5) = dArr
End Sub

 

[lhthai]

Quá hay cám ơn anh Ba tê rất nhiều nha

 

[lhthai]

Nhờ Anh Ba Tê điều chỉnh dùm code ADD A
Em muốn nhấn nút "ADD A" chạy tất cả các sheet còn lại
Cám ơn Anh Ba Te nhiều nha