Bạn có thể cho biết thêm về sự khác nhau giữa vài chục file đó và kết quả mong muốn là như thế nào không?
Mấy cái file gốc đó nó khác nhau về số cột bạn ạ. Có file sẽ có số liệu từ 2010 đến nay (tức là 11 cột dữ liệu), có file thì dữ liệu từ 2012, hoặc thậm chí 2015, do dó số lượng cột dữ liệu sẽ ít hơn. trong 2 file gốc mình gửi cũng có sự khác nhau như vậy.
Bạn nén lại và gửi các file đó lên xem thế nào. (Vui lòng không dùng từ cao thủ hoặc các từ khác tương tự và đừng đưa sếp siếc vào để trình bày. Tại diễn đàn này, các thành viên giúp nhau chứ không giúp sếp nào bạn nhé).
Không có gì, nếu từ nào tiếng Việt có thì không nên dùng tiếng nước khác bạn nhé. (Sorry, up, ...)
Cám ơn bạn nhé, để mình xin duyệt thêm tiền trang bị máy có 2 màn hình.
Các file của bạn có file thì 1 sheet, có file 2 sheet. Vậy file 1 sheet vẫn copy hay bỏ qua bạn nhỉ?
Bạn ơi, vì cái file ketqua nó có 2 sheet nên những sheet "Chỉ_số_tài_chính_xxxx" sẽ copy chung với nhau, tương tự như vậy cho các sheet "Lưu_chuyển_tiền_tệ_xxxx". Vì vậy những file nào có 1 sheet thì vẫn copy vào sheet cùng tên trong file ketqua. Cám ơn bạn nhé.
Với yêu cầu của bạn thì VBA sẽ xử lý được mặc dù code hơi vất cả chút. Tuy nhiên để xử lý tốt cho công việc về lâu dài thì ưu tiên dữ liệu phải khoa học. Bạn hãy xem lại cái file BID. 2015 có 2 cột, 2017 cũng 2 cột. Việc copy thủ công cũng không biết làm sao đừng nói chi đến code
Không biết làm sao: Dân hỏi trên đây ỷ lại quen rồi. Việc soát lại dữ liệu là việc của người viết code chứ đâu phải là việc của người nhờ viết code.
Cám ơn bạn, đây là do lỗi người cập nhật, mình mới lấy về nên cũng chưa kiểm tra. Mình cũng đã làm tay như bạn @VetMini nói và cũng gần xong rồi. Mình đưa lên đây để nhờ các bạn xem và code giúp để kỳ sau thì sẽ làm nhanh hơn chứ không có ý ỷ lại hoặc ngồi chờ như bạn @VetMini nói bên trên. Xin lỗi vì đã làm bạn vất vả.
Rất cám ơn cao kiến của bạn về việc mua máy 2 màn hình.
Code này không hoàn chỉnh nhưng có thể xài tạm được. Thay chỗ 1 to 20 cho phù hợp với những lần chạy kế tiếp
Sub Tong_Hop()
Dim ObjFile As Object, Res(), Source As String, sh As Worksheet, sArr()
Dim LastC As Long, i As Long, k As Long, j As Long, Dic As Object, nam As Long, cot As Long
Set Dic = CreateObject("scripting.dictionary")
For i = 1 To 20
Dic(i + 2009) = i
Next
Sheet1.[A2].Resize(10000, 20).ClearContents
Sheet2.[A2].Resize(10000, 20).ClearContents
With CreateObject("Scripting.FileSystemObject")
With .GetFolder(ThisWorkbook.Path)
For Each ObjFile In .Files
If ObjFile.Name <> ThisWorkbook.Name Then
If Left(ObjFile.Name, 1) <> "~" Then
Source = ThisWorkbook.Path & "\" & ObjFile.Name
With Workbooks.Open(Source, 0)
For Each sh In .Worksheets
ReDim Res(1 To 100, 1 To 22)
LastC = sh.[Z11].End(1).Column
sArr = sh.Range("A11", sh.[A65536].End(3)).Resize(, LastC).Value
For i = 2 To UBound(sArr) - 9
For j = 2 To UBound(sArr, 2)
nam = sArr(1, j)
If Dic.exists(nam) Then
cot = Dic.Item(nam)
Res(i, 1) = Split(ObjFile.Name, ".")(0)
Res(i, 2) = sArr(i, 1)
Res(i, cot + 2) = sArr(i, j)
End If
Next
Next
If sh.Name Like "L*" Then
Sheet1.[A65536].End(3).Offset(1).Resize(i, UBound(Res, 2)) = Res
Else
Sheet2.[A65536].End(3).Offset(1).Resize(i, UBound(Res, 2)) = Res
End If
Next
.Close False
End With
End If
End If
Next
End With
End With
End SubCám ơn bạn nhiều nhé. Mình sẽ chạy thử.
Bạn tạm tham khảo file nhé, lưu ý kiểm tra, hiệu chỉnh dữ liệu nguồn bị trùng lặp trước khi gộp. Mình mới tập nên chắc khó được như ý.
Cám ơn bạn nhiều nhé, để mình chạy thử
File chạy rất tuyệt vời , cám ơn bạn nhiều lắm.
Bạn tải file này nhé, file trước có một chút lỗi, mình đã điều chỉnh lại.
Cám ơn bạn nhiều nhé, Mà sao cái file này lại không có code bạn ạ.
