Hỏi cách gộp các file excel từ nhiều Sheet khác nhau vào 1 Sheet

[mshuyenvn]

Lở rồi làm luôn cho bạn:

Sub LayDL_HLMT()
    Dim strField, strSQL As String
    Dim i  As Integer
    For i = 1 To 11
        strField = strField & "," & "F" & i
    Next
    strField = Right(strField, Len(strField) - 1)
    For i = 1 To 26
        strSQL = strSQL & " union all select " & strField & ", (Select F1 from [" & i & "$B7:I7]), (Select F8 from [" & i & "$B7:I7])  from [" & i & "$a18:k] where F5 is not null and F7>0"
    Next
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1"";"
        Sheet14.Range("a3").CopyFromRecordset .Execute(Right(strSQL, Len(strSQL) - 10))
    End With
End Sub

Ngàn like cho bác !!!

 

[classicgt]

OK rồi ạ

Cảm ơn Giải Pháp Excel

Xin Thầy cùng file này sửa lại giúp em. Em chỉ tổng hợp một số Sheet tên A1, A2, A3 chẳng hạn, các Sheet khác không cần cộng thì làm như thế nào ạ? Em xin chân thành cảm ơn!

 

[classicgt]

Ok em sửa được rồi!

 

[Linhtbom]

Nhờ mọi người giúp em với ạ. Em có 1 file excel với nhiều sheet khác nhau, cấu trúc giống nhau, nội dung ở các dòng khác nhau. Em cần tạo một sheet tổng hợp toàn bộ dữ liệu của các sheet còn lại. Và khi nhập thêm vào các sheet nhỏ(nội dung, chèn dòng...) thì ở sheet tổng hợp cũng tự động thay đổi thêm vào. Em có tham khảo qua trên mạng thấy mọi người dùng marco, vba ... Em ít sử dụng excel, chưa bao giờ dùng mấy cái này nên nghiên cứu mãi chưa ra. Em gửi file ví dụ. Mọi người chỉ giúp em chi tiết hơn một chút được không ạ. Em cảm ơn !