Xin Anh/Chị giúp đỡ VBA copy nhiều sheet thành 1 sheet

[Long234]

Ạnh/Chị giúp đỡ em code VBA để copy nhiều sheet thành 1 sheet như ví dụ dưới đây với ạ.
Em có file có 3 danh sách lớp "1/1, 2/1, 3/1", em muốn gộp 3 sheet lại với nhau thành 1 bảng chung như ở sheet Tổng, nhưng chỉ copy sheet danh sách lớp, không copy 4 sheet cố định ở đằng trước là "AAAA,...,DDDD". Em cảm ơn mọi người nhiều ạ

 

[BuiQuangThuan]

Ạnh/Chị giúp đỡ em code VBA để copy nhiều sheet thành 1 sheet như ví dụ dưới đây với ạ.

Thử code này coi sao

Sub ACB()
    Dim ws As Worksheet, iR&, sR&
    With Sheet8
        .Range("A9:Q10000").ClearContents
        For Each ws In Worksheets
            iR = .Range("B" & Rows.Count).End(3).Row + 1
            If iR > 9 Then iR = iR Else iR = 9
            If UCase(ws.Name) Like "L*" Then
                sR = ws.Range("B" & Rows.Count).End(3).Row
                ws.Range("A9:Q" & sR).Copy .Range("A" & iR)
            End If
        Next
    End With
End Sub

 

[Long234]

Thử code này coi sao

Sub ACB()
    Dim ws As Worksheet, iR&, sR&
    With Sheet8
        .Range("A9:Q10000").ClearContents
        For Each ws In Worksheets
            iR = .Range("B" & Rows.Count).End(3).Row + 1
            If iR > 9 Then iR = iR Else iR = 9
            If UCase(ws.Name) Like "L*" Then
                sR = ws.Range("B" & Rows.Count).End(3).Row
                ws.Range("A9:Q" & sR).Copy .Range("A" & iR)
            End If
        Next
    End With
End Sub

Được rồi anh ạ, em cảm ơn anh rất nhiều ạ

 

[Long234]

Thử code này coi sao

Sub ACB()
    Dim ws As Worksheet, iR&, sR&
    With Sheet8
        .Range("A9:Q10000").ClearContents
        For Each ws In Worksheets
            iR = .Range("B" & Rows.Count).End(3).Row + 1
            If iR > 9 Then iR = iR Else iR = 9
            If UCase(ws.Name) Like "L*" Then
                sR = ws.Range("B" & Rows.Count).End(3).Row
                ws.Range("A9:Q" & sR).Copy .Range("A" & iR)
            End If
        Next
    End With
End Sub

Anh ơi, em chưa rành VBA lắm nên cho em hỏi thêm chút được không ạ, dòng "If iR > 9 Then iR = iR Else iR = 9" có ý nghĩa gì vậy ạ, em cảm ơn anh nhiều

 

[BuiQuangThuan]

Anh ơi, em chưa rành VBA nên cho em hỏi thêm chút được không ạ, dòng "If iR > 9 Then iR = iR Else iR = 9" có ý nghĩa gì vậy ạ, em cảm ơn anh nhiều

Sheet Tổng của bạn có hòa ô tiêu đề. kết quả trả về từ dòng 9. Để tránh nó trả về dòng 8 nên mình thêm đoạn đó ấy mà