Hợp nhất nhiều File vào 1 file

be09

be09

Member
Hội viên mới
Hợp nhất nhiều File vào 1 file và tự động tổng hợp

Hôm nay nay tôi đưa ra ý tưởng làm thế nào để hợp nhất dữ liệu nhiều File vào 1 file trong Excel.
Giả sử bạn theo dõi công việc trong nhiều năm, mỗi năm chứa dữ liệu trong 1 File hoặc bạn theo dõi công việc của 1 năm với mỗi File là 1 tháng, vậy làm sao để gộp dữ liệu của nhiều File vào 1 File tổng.

Ý tưởng của tôi là viết 1 Macro và gán macro này cho 1 nút lệnh, khi nhấn vào nút này nó sẽ hiện ra hộp thoại Open Files, chọn ổ dĩa và chọn mở thư mục, tiếp theo chọn tất cả các File cần hợp nhất và nhấn nút Open, macro sẽ chạy và gán tất các các sheet chứa trong các File vừa chọn và File tổng.

Tiếp theo là nhấn vào nút lệnh hợp nhất các sheet, macro sẽ chạy và gộp dữ liệu của các sheet vừa gán vào File tổng vào sheet tổng, tiếp theo nhấn vào nút lệnh tổng hợp macro sẽ chạy tự lấy dữ liệu từ sheet tổng và tạo ra Pivottable với kết quả mình cần tổng hợp báo cáo.

Đây là 1 vấn đề mới mà trên diễn đàn giải pháp Excel chưa có ai đưa ra ý tưởng này vì nó thuộc đề tài khó, tôi đưa ra ý tưởng này để cùng để cùng nhau tháo gỡ mọi khó khăn vướng mắc trong việc tổng hợp và báo cáo hàng quý, hàng năm hoặc tổng hợp kết quả cho 1 giai đoạn (5 năm), nếu thực hiện tốt ý tưởng này tôi dám cam đoan với các bạn chỉ trong vòng 5 đến 10 phút bạn sẽ có ngay kết quả mình cần.

Nếu các bạn nào quan tâm đến vấn đề này thì hãy tham gia và cùng nhau thảo luận, đóng góp hoặc trong công việc gặp vấn đề như tôi vừa nêu do sếp hay lãnh đạo bắt phải theo dõi từng File 1 cách rời rạc nên việc theo dõi, tổng hợp báo cáo quá khó khăn, bây giờ các bạn cần 1 ứng dụng để tháo gỡ mọi khó khăn như vấn đề nêu trên, thì các bạn cần nêu các vấn đề khó khăn và nêu yêu cầu cần giúp, xong tải File lên tôi sẽ nghiên cứu và sẽ giúp đỡ theo yêu cầu của các bạn.

Lưu ý: để có kết quả đúng thì cần các tiêu chí sau đây:
- Tiêu đề của các sheet chứa trong File phải hoàn toàn giống nhau (tiêu đề không được Merge and center (nhập ô).
- Tên từng sheet phải cụ thể rõ ràng để dễ dàng kiểm tra lại kết quả (nếu tên sheet trùng thì nó tự động đặt 1 và 2).
- Để được kết quả đúng thì cần đề ra nội dung cần tổng hợp báo cáo (vì Macro dùng chạy Pivottable được viết dựa trên tiêu đề cột).
 
Sửa lần cuối:
Ðề: Hợp nhất nhiều File vào 1 file

Làm như vậy là làm như nào chú
 
Ðề: Hợp nhất nhiều File vào 1 file

TnganSHanh nói:
Làm như vậy là làm như nào chú
Nhấn để mở rộng...

Là như thế này:
Nếu mình theo dõi công việc mà có đến hàng trăm File với tiêu đề cột giống nhau, nếu mình mở cùng 1 lúc hàng trăm File này và Copy gom vào 1 File thì có lẽ tốn thời gian khá dài và có thể là vài ngày, bây giờ mình tạo 1 File tổng và chạy Macro thì chỉ trong tích tắc mình có được 1 File tổng chứa các sheet ở hàng trăm File đó, tiếp theo chạy macro để gom các sheet đó vào 1 sheet tổng, tiếp theo chạy macro lấy dữ liệu từ sheet tổng nó sẽ sẽ tạo ra Pivottable với kết quả tổng hợp của hàng trăm sheet với thời gian trong vài phút đối với những máy đời cũ, những máy mạnh thì chỉ khoảng dưới 60 giây.

Lưu ý:
- 1 File trong Excel 2003 có thể chứa đến 250 sheet.
 
Sửa lần cuối:
Ðề: Hợp nhất nhiều File vào 1 file

be09 nói:
Là như thế này:
Nếu mình theo dõi công việc mà có đến hàng trăm File với tiêu đề cột giống nhau, nếu mình mở cùng 1 lúc hàng trăm File này và Copy gom vào 1 File thì có lẽ tốn thời gian khá dài và có thể là vài ngày, bây giờ mình tạo 1 File tổng và chạy Macro thì chỉ trong tích tắc mình có được 1 File tổng chứa các sheet ở hàng trăm File đó, tiếp theo chạy macro để gom các sheet đó vào 1 sheet tổng, tiếp theo chạy macro lấy dữ liệu từ sheet tổng nó sẽ sẽ tạo ra Pivottable với kết quả tổng hợp của hàng trăm sheet với thời gian trong vài phút.

Lưu ý:
- 1 File trong Excel 2003 có thể chứa đến 250 sheet.
Nhấn để mở rộng...
Cháu còn không bít tạo như nào ý ạ,hôm trước có hỏi về vấn đề dồn file vào một sheet nhưng vẫn chúa làm xong chú ạ
 
Ðề: Hợp nhất nhiều File vào 1 file

TnganSHanh nói:
Cháu còn không bít tạo như nào ý ạ,hôm trước có hỏi về vấn đề dồn file vào một sheet nhưng vẫn chúa làm xong chú ạ
Nhấn để mở rộng...

Vậy điều cần làm là kiểm tra tiêu đề và vị trí của dòng của các File cho giống nhau đi, rồi nêu các vấn đề cần làm trong File tổng ví dụ cần tổng hợp cái gì rồi tải các File cần dồn vào File tổng lên.

Lưu ý:
Mỗi sheet trong File chỉ cần chứa khoảng 10 dòng là đủ, sau đó nén lại và tải lên, vì nếu chứa nhiều dữ liệu thì File nặng không đủ quota và không tải lên được).
 
Ðề: Hợp nhất nhiều File vào 1 file và tự động tổng hợp

Chào Anh ạ, lâu nay em lòng vòng trên mạng tìm cách copy giống như ý tưởng của anh vừa đưa ra. em rất cần 1 cái hàm VBA y chang anh nói. mà tìm quài không được. anh có thể giúp em không?
em tên Hạnh, đây là email của em: hanh.buivan@adcompany.com.vn or vanhanhit.star@gmail.com
mong anh giúp đỡ ạ!
 
Ðề: Hợp nhất nhiều File vào 1 file

Hợp nhất nhiều File vào 1 file và tự động tổng hợp.

Tôi viết bài này đã lâu nhưng không thấy ai cần dùng hoặc hỏi han nên quên luôn. Hôm nay có bạn cần dùng nên tôi Up File lên để các bạn tham khảo, Link tải File:

https://app.box.com/s/5s4gswnwwetojab7gbqy

Lưu ý khi sử dụng:
Tại B4 của sheet Hướng dẫn, các bạn cần chọn Version 2003, 2007 hoặc 2010 thì trong Folder mới hiện đúng File theo Version mình cần gộp File. Nếu không chọn đúng thì không thấy File để chọn.
 
Sửa lần cuối:
Ðề: Hợp nhất nhiều File vào 1 file

Hợp nhất nhiều File vào 1 file , dễ .
Nhưng những vấn đề sau đây cậu cần phải nghĩ :

1- Ở VN hầu như chỉ có 1 kiểu dùng Pivot . Cậu có biết có bao nhiêu formulas và dehine range trong đó ko ??
2- Cậu bấm thử Ctrl +F3 mà xem
3- Tôi có post post VBA dùng để list ra hết các formula trong từng Sheets và VBA list hết formula + define trong workbook
4- Khi gộp lại thì formulas và define range có còn chạy được hay ko ??

Yeah hợp nhất lại xong viết formula và define lại từ đầu
 
Ðề: Hợp nhất nhiều File vào 1 file

Wind_Flower nói:
Hợp nhất nhiều File vào 1 file , dễ .
Nhưng những vấn đề sau đây cậu cần phải nghĩ :

1- Ở VN hầu như chỉ có 1 kiểu dùng Pivot . Cậu có biết có bao nhiêu formulas và dehine range trong đó ko ??
2- Cậu bấm thử Ctrl +F3 mà xem
3- Tôi có post post VBA dùng để list ra hết các formula trong từng Sheets và VBA list hết formula + define trong workbook
4- Khi gộp lại thì formulas và define range có còn chạy được hay ko ??

Yeah hợp nhất lại xong viết formula và define lại từ đầu
Nhấn để mở rộng...

Tôi viết bài này là xuất phát từ những yêu cầu trong công việc của 1 số bạn sử dụng máy theo dõi bán hàng của từng nhân viên sau đó kế toán trưởng sẽ tổng hợp lại các File được xuất ra của từng nhân viên hoặc sử dụng trong ngành Tài nguyên và Môi trường, thông thường 1 xã có vài chục đến hàng trăm tờ bản đồ khi xuất các File ra Excel không lẽ ngồi tính từng File.

Còn bạn nêu những File có sử dụng hàm hoặc có sử dụng name là mang tính cách riêng lẽ của từng người nên không ứng dụng được vào việc lớn, bạn cũng đã biết nếu sử dụng hàm đến vài ngàn dòng thì dung lượng File rất lớn và tốc độ xử lý rất chậm chạp sẽ mất rất nhiều thời gian và công sức.

Từ việc này họ sẽ nghĩ ngay đến việc tìm một giải pháp khác tối ưu hơn hoặc có tiền họ sẽ nghĩ ngay đến mua 1 phần mềm chứ không ngồi làm thủ công như bạn nêu trong File có sử dụng hàm hoặc name.
 
Ðề: Hợp nhất nhiều File vào 1 file

Oh, vậy là tôi có thể hình dung đại khái . Vậy thì rất dễ và rất nhanh . Như vậy bản chính phải có đủ cấu trúc tính toa'n, để kki load data vào là chạy liền .
Tôi ko có mua bán hay kế toán, chỉ thích chơi với Excel
 
Ðề: Hợp nhất nhiều File vào 1 file

Chào anh be09 anh có thể cho em xin số điện thoại để hỏi anh thêm ko ạ. Vì vấn đề của em thêm một chút phức tạp đó là trong file gốc có nhiều sheet mà lại chỉ cần lấy data ở một sheet. Vậy anh có thể giúp em làm file như vậy không ạ? Em cảm ơn anh. Em đang rất cần cho công việc mong anh giúp đỡ.
 
Ðề: Hợp nhất nhiều File vào 1 file

badday03 nói:
Chào anh be09 anh có thể cho em xin số điện thoại để hỏi anh thêm ko ạ. Vì vấn đề của em thêm một chút phức tạp đó là trong file gốc có nhiều sheet mà lại chỉ cần lấy data ở một sheet. Vậy anh có thể giúp em làm file như vậy không ạ? Em cảm ơn anh. Em đang rất cần cho công việc mong anh giúp đỡ.
Nhấn để mở rộng...

Muốn lấy 1 sheet nào đó thì phải có tên sheet cụ thể, chứ giữa 1 đám rừng biết gọi thằng nào ra được để mà lấy.

Tốt nhất là em Up File lên và muốn lấy sheet nào thì phải nêu cụ thể.
 
Ðề: Hợp nhất nhiều File vào 1 file

Anh be09 cho em xin email vào Inbox được ko ạ? Em cảm ơn anh nhiều ạ.
 
Ðề: Hợp nhất nhiều File vào 1 file

badday03 nói:
File của em đây ạ. Em muốn lấy dữ liệu từ sheet data từ nhiều file có định dạng, sheet giống nhau như này ạ: https://www.mediafire.com/?0rryyfr5ccu6b6q
Nhấn để mở rộng...

Anh đã xem File để anh tham khảo rồi đưa ra giải pháp sau.

Ý em là chỉ muốn lấy duy nhất sheet Data, còn sheet Example thì không lấy phải không?

Anh đã Mail thông tin cho em rồi đó, mai anh sẽ trả lời.
 
Ðề: Hợp nhất nhiều File vào 1 file

Vâng ạ, em chỉ cần lấy thông tin ở sheet data thôi anh ạ. Vì chỉ cần lấy thông tin ứng viên ở sheet đó. Mà sao anh thức muộn vậy ạ, tối qua e chờ anh rep nhưng buồn ngủ quá nên đi ngủ ạ :). Anh giúp em nhé.
 
Ðề: Hợp nhất nhiều File vào 1 file

Anh be09 ơi anh xem giúp em chưa ạ?
 
Ðề: Hợp nhất nhiều File vào 1 file

Hi anh be09 ko biết anh đã xem giúp trường hợp của em chưa ạ.
 
Ðề: Hợp nhất nhiều File vào 1 file

badday03 nói:
Vâng ạ, em chỉ cần lấy thông tin ở sheet data thôi anh ạ. Vì chỉ cần lấy thông tin ứng viên ở sheet đó.
Nhấn để mở rộng...

Cái này mà Hợp nhất nhiều File vào 1 file !!!!!!

Muốn làm lại để bỏ cái Sheet Example

1- Unhide tất cả các Sheet

Sub UnhideAllSheets()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

2- Vậy trong Sheet Data phải cần sửa những công thức gì trong đó . Muốn dễ thấy và gọn thì phải liệt kê các công thức của họ ra 1 trang mới để dễ thấy mà làm

Sub ListFormulas()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer

On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)

If FormulaCells Is Nothing Then
MsgBox "No Formulas."
Exit Sub
End If

Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name

With FormulaSheet
Range("A1") = "Address"
Range("B1") = "Formula"
Range("C1") = "Value"

Range("A1:C1").Font.Bold = True
End With

Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell

FormulaSheet.Columns("A:C").AutoFit
Application.StatusBar = False
End Sub

3- Sửa đi

Vi du:
A3 =IF(Example!C20<>"",Example!C20,"")
Nó lấy data trực tiếp từ C20 trong trang Example

C4 =VLOOKUP(Example!J22,information!$I$3:$J$4,2,FALSE)
làm cái list Validation , data trong information, range(I3:I4)

Dễ qúa mà .
 
Ðề: Hợp nhất nhiều File vào 1 file

Nghĩ lại thấy mình tối dạ !!!! ai dza ai dza !!!!

Đâu cần Delete Sheet("Sample") . Chỉ Rename nó là test hay gì gì đó . ChỈ 1 hàng VBA là nó tự thay đổi hết Reference Sample trong các công thức thành test

ws.Range("A1").blah blah Sheets("test").Range("A65536").End......... blah blah

ai dza ai dza hiihihihihihihi got it !!

Thiếu Martel nà phiền nắm mè
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Cách làm file Excel quản lý lãi vay

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top