Hướng dẫn này chỉ ra 3 bước để giúp bạn ghép hoặc gộp nhiều file excel thành một file duy nhất, sử dụng một đoạn code VBA ngắn ngọn và công cụ sao chép Worksheet có sẵn trong Excel.
Việc xử lý dữ liệu trong một file excel duy nhất dễ dàng hơn rất nhiều thay vì phải liên tục chuyển đổi giữa các file, đồng thời giảm bớt thời gian cũng như tránh nhưng sai sót dữ liệu không mong muốn. Bạn có thể ứng dụng ghép file để thống kê thành quả công việc, quyết toán thu, chi của cơ quan mình trong một khoảng thời gian bất kỳ. Tuy nhiên, việc ghép nhiều file excel thành một file có thể khiến bạn mất nhiều thời gian nếu bạn không nắm được kỹ thuật.
Bây giờ, Blog share kỹ năng sẽ hướng dẫn bạn 3 bước để thực hiện việc này một cách đơn giản và hiệu quả. Cùng tìm hiểu cách làm ngay nhé!
Cách ghép nhiều file excel thành một file duy nhất
Bài toán đặt ra như sau: Ta có 3 file Excel là danh sach khach hang thang 1.xls, danh sach khach hang thang 2.xls, danh sach khach hang thang 3.xls trong thư mục Content như hình trên. Yêu cầu cần gộp cả 3 file Excel này lại thành một file duy nhất. Để thực hiện thì các bạn hãy làm theo các 3 bước sau đây nhé:
Bước 1: Tạo một file Excel mới để ghép các file.
Đầu tiên, các bạn cần mở một file Excel mới lên. Sau đó các bạn chọn thẻ Developer trên thanh công cụ. Tiếp theo các bạn chọn Visual Basic tại mục Code. Hoặc các bạn cũng có thể sử dụng tổ hợp phím tắt Alt + F11 để mở cửa sổ VBA.
Nếu không thấy thẻ Developer, bạn có thể xem Hướng dẫn bật thẻ Developer trong Excel từ trang chủ của Microsoft
Bước 2: Sử dụng Trình soạn code VBA để thao tác
Tiếp theo, khi cửa sổ Microsoft Visual Basic for Applications hiện ra. Các bạn chọn thẻ Insert trên thanh công cụ. Thanh cuộn hiện ra thì các bạn chọn mục Module.
Bước 3: Dán mã code và thực hiện chạy ghép file
Ở màn hình này, hộp thoại Module hiện ra. Các bạn sao chép đoạn code dưới đây vào hộp thoại Module.
Sub copy[] Path = "K:\My Drive\Working\SHAREKYNANG\Content\" Filename = Dir[Path & "*.xls*"] Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.copy after:=ThisWorkbook.Sheets[1] Next Workbooks[Filename].Close Filename = Dir[] Loop End Sub
Sau đó các bạn nhấn Run trên thanh công cụ hoặc nhấn phím F5 để chạy mã code.
Lưu ý là đoạn Path = “ ” : Bên trong dấu ngoặc là đường dẫn của thư mục chứa các file bạn lưu. Và nhớ thêm dấu gạch “\” sau cùng đường dẫn để nó hiểu là 1 folder nhé.
Chỉ cần như vậy là tất cả file Excel trong thư mục Content đã được gộp lại thành một file Excel duy nhất. Bây giờ thì các bạn cần tiến hành chỉnh sửa dữ liệu trong file Excel mới cũng như nhấn Save để lưu lại file này.
Tổng kết:
Rất đơn giản đúng không bạn? Với cách sử dụng code VBA để gộp nhiều file Excel thành một file duy nhất này, kể cả bạn không quen với việc sử dụng code VBA cũng có thể thực hiện một cách đơn giản và hiệu quả được . Hy vọng bài viết sẽ hữu ích với các bạn trong quá trình làm việc.
Hãy thực hành ngay và chia sẻ kết quả của bạn cho mọi người ngay nhé!
Chúc các bạn thành công!
Xem thêm:
Chắc hẳn bạn cũng biết Microsoft Excel là chương trình xử lý bảng tính nằm trong bộ MS Office của Microsoft, chúng được thiết kế để giúp bạn ghi lại, trình bày các thông tin xử lý dưới dạng bảng, đồng thời thực hiện việc tính toán, xây dựng các số liệu thống kê một cách trực quan, bài viết dưới đây, Taimienphi sẽ hướng dẫn các bạn cách nối file Excel, gộp nhiều file Excel thành 1 file duy nhất.
Thủ thuật gộp nhiều file Excel thành 1 File
Cách gộp nhiều file Excel thành 1 File
* Các bước cần chuẩn bị:
- Máy tính cài đặt Excel 2013 hoặc Excel 2016 thông dụng hay dùng hiện nay.
- Có sẵn các file excel để thực hiện việc gộp nhiều file Excel thành 1 File
Bạn có thể gộp nhiều file Excel thành 1 file theo một trong 2 cách mà chúng tôi giới thiệu dưới đây.
Cách 1: Sử dụng code VBA để gộp file
Giả sử bạn có 2 file Excel với dữ liệu như sau:
File thứ 1: Taimienphi.vn-File01.xlsx
File thứ 2: Taimienphi.vn-File02.xlsx
Để gộp dữ liệu từ 2 file trên thành 1 file dữ liệu duy nhất đặt tên Book1 [các bản ghi nằm cùng trên 1 Sheet] bạn làm như sau:
Bước 1: Bạn tạo 1 file Excel mới tên là Book1 -> sau đó nhấn tổ hợp phím Alt + F11 -> cửa sổ xuất hiện -> bạn chọn tab Insert -> chọn Module.
Bước 2: Copy đoạn code dưới đây vào Module 1.
Sub GopFileExcel[]Dim FilesToOpenDim x As IntegerOn Error GoTo ErrHandlerApplication.ScreenUpdating = FalseFilesToOpen = Application.GetOpenFilename _[FileFilter:="Microsoft Excel Files [*.xlsx], *.xlsx", MultiSelect:=True, Title:="Files to Merge"]If TypeName[FilesToOpen] = "Boolean" ThenMsgBox "No Files were selected"GoTo ExitHandlerEnd Ifx = 1
While x Workbooks.Open Filename:=FilesToOpen[x]Sheets[].Move After:=ThisWorkbook.Sheets[ThisWorkbook.Sheets.Count]x = x + 1WendExitHandler:Application.ScreenUpdating = TrueExit SubErrHandler:MsgBox Err.DescriptionResume ExitHandler
End Sub
Bước 3: Bạn Save Module 1 đặt tên GopFileExcel. Vì Module có chứa Macro nên khi bạn save sẽ có thông báo -> bạn nhấn chọn OK.
Bước 4: Tạo thêm 1 Module nữa -> bạn tiếp tục nhấn chọn Insert ->Module.
Bước 5: Sau đó copy toàn bộ đoạn code dưới đây vào Module 2 -> bạn lưu lại và đặt tên GopSheetExcel.
Sub GopSheetExcel[]Dim Sh As WorksheetApplication.ScreenUpdating = False[A6].CurrentRegion.Offset[1, 1].ClearContentsFor Each Sh In WorksheetsIf Sh.Name "Gop_File" ThenWith [B65500].End[xlUp].Offset[1][A6].CurrentRegion.Offset[1, 1].Copy Destination:=.Offset[0]End WithEnd IfNext ShApplication.ScreenUpdating = TrueColumns["E:E"].Hidden = False: Randomize[A5].Resize[, 6].Interior.ColorIndex = 34 + 9 * Rnd[] \ 1
End Sub
Bước 6: Bạn trở lại với file Excel vừa tạo -> rồi vào tab View -> chọn View Marco [hoặc nhấn phím tắt Alt + F8].
Hộp thoại macro xuất hiện -> bạn chọn Module 1 [tên GopFileExcel] -> chọn Run.
Hộp thoại Browse xuất hiện -> bạn chọn đường dẫn tới các file dữ liệu cần gộp [ở đây bạn chọn file Taimienphi.vn-File01.xlsx và Taimienphi.vn-File02.xlsx] -> chọn Open.
Sau khi bạn chọn Open thì dữ liệu từ 2 file tương ứng sẽ ghi vào sheet 2 và sheet 3 trong file Book1.
Bước 7: Bạn vào tab View ->View Macro -> chọn GopSheetExcel -> rồi chọn Run.
Bạn sẽ thấy toàn bộ dữ liệu ở 2 Sheet gộp vào trong Sheet 1. Nếu bạn thấy số thứ tự chưa đúng hay chưa chuẩn thì nhập lại, đồng thời căn chỉnh các cell và cột cho đẹp mắt nhé.
Một số lưu ý khi gộp file dùng code VBA
- Sheet gộp sheet2, sheet 3 là sheet 1.- Nếu bạn gộp nhiều file, các file càng lớn thì tốc độ xử lý sẽ chậm hơn.
- Trong quá trình gộp file dữ liệu, bạn không nên sử dụng thêm bất kỳ hàm dữ liệu nào để tránh gây ra lỗi. Khuyến khích dùng dữ liệu nhập đơn thuần.
Cách 2: Gộp nhiều file thành một file dùng Move or Copy
Với cách gộp file này thao tác để bạn thực hiện sẽ tương tự như cách bạn sao chép, di chuyển Sheet trong Excel.
Để biết rõ cách làm, bạn xem chi tiết hướng dẫn sao chép, di chuyển Sheet trong Excel mà chúng tôi đã từng hướng dẫn để biết cách thực hiện.
Trên đây là cách gộp nhiều file Excel thành 1 File mà chúng tôi muốn giới thiệu và hướng dẫn với bạn. Với 2 cách trong bài viết này, bạn hãy tùy theo nhu cầu thực tế của công việc để áp dụng và chọn lấy một cách phù hợp nhất để sử dụng.
Còn với Word, bạn cũng có thể nối file Word thành 1, gộp nhiều file Word làm 1 theo cách mà Taimienphi.vn đã chia sẻ. Chúc bạn thành công!
Bạn có 2 hay nhiều file và những dữ liệu trong những file đó bạn muốn dồn, nối file Excel thành 1 duy nhất để dễ quản lý? Bạn chưa biết cách gộp nhiều file Excel thành 1 File, bạn đang tìm kiếm phương án xử lý? Mời bạn theo dõi thủ thuật được viết ngay dưới đây để biết cách thực hiện.
Cách tách sheet thành nhiều file Excel Cách khoá Sheet Excel Cách in file Excel, in bảng chuẩn Excel 2016, 2013, 2010, 2007, 2003 Phục hồi file Excel 2016 bị lỗi Làm quen với Excel 2016 và 2019 [Phần 1] Cách mở 2 file Excel cùng lúc, Open nhiều file trên Excel 2003, 2007, 2010, 2013, 2016