Copy bảng chấm công đặt theo cột liên tiếp

[Nguyễn Đăng 1989]

Chào mọi người ạ

E có một danh sách các bảng chấm công theo phần mềm kết xuất ra hiện tại của từng người đang nằm theo hàng dọc

Có VBA nào có thể copy từng bảng chấm công liên tiếp đặt theo hàng ngang ko ạ

Xin cảm ơn các anh chị

 

[BuiQuangThuan]

Chào mọi người ạ

E có một danh sách các bảng chấm công theo phần mềm kết xuất ra hiện tại của từng người đang nằm theo hàng dọc

Có VBA nào có thể copy từng bảng chấm công liên tiếp đặt theo hàng ngang ko ạ

Xin cảm ơn các anh chị

Bạn thử code này coi thế nào

Sub ABC()
Dim Ws As Worksheet, i&, k&, iR&, Ws1 As Worksheet
Set Ws1 = Sheets("KET QUA")
Set Ws = Sheets("DU LIEU")
iR = Ws.Range("J" & Rows.Count).End(3).Row + 16
    k = 1
    For i = 1 To iR Step 62
        Ws.Range("A" & i).Resize(62, 17).Copy Ws1.Cells(1, k)
        k = k + 16
    Next
    MsgBox "OK"
End Sub

 

[Nguyễn Đăng 1989]

Bạn thử code này coi thế nào

Sub ABC()
Dim Ws As Worksheet, i&, k&, iR&, Ws1 As Worksheet
Set Ws1 = Sheets("KET QUA")
Set Ws = Sheets("DU LIEU")
iR = Ws.Range("J" & Rows.Count).End(3).Row + 16
    k = 1
    For i = 1 To iR Step 62
        Ws.Range("A" & i).Resize(62, 17).Copy Ws1.Cells(1, k)
        k = k + 16
    Next
    MsgBox "OK"
End Sub

e làm được rồi, e cảm ơn anh nhé