Nếu bạn là một trong những nhân viên kế toán, thủ quỹ hoặc liên tục phải làm công tác thống kê thì có lẽ rằng hay buộc phải tổng hợp những báo cáo, danh sách ...... Từ các phòng ban khác thành 01 file tổng đúng không. Nếu như thao tác 1 cách thủ công (copy - paste) thì rất mất thời gian. Hãy vận dụng thủ thuật dưới đây để tạo thành file tổng một giải pháp nhanh chóng, tiện nghi nhé.

Bạn đang xem: Cách ghép 2 file excel thành 1


*

*

*

Bước 1: bạn tạo thêm 01 file đặt tên làDanh sách tổng, mở file đó ra, bấm tổ hợp phím Alt + F11 (đối với máy tính xách tay là Fn + alternative text +F11). Lựa chọn tab Insert rồi lựa chọn Module.
*

Sub Gop
File
Excel() Dim Files
To
Open Dim x As Integer On Error Go
To Err
Handler Application.Screen
Updating = False Files
To
Open = Application.Get
Open
Filename _ (File
Filter:="Microsoft Excel Files (*.xlsx), *.xlsx", Multi
Select:=True, Title:="Files khổng lồ Merge") If Type
Name(Files
To
Open) = "Boolean" Then Msg
Box "No Files were selected" Go
To Exit
Handler kết thúc If x = 1 While x

*

Sub gopsheet() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").Entire
Row.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 to lớn Sheets.Count Sheets(J).Activate Range("A1").Select Selection.Current
Region.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xl
Up)(2) Next
End Sub
Với cách này bạn cũng có thể sao chép Sheet từ tệp tin này thành 1 Sheet của tệp tin khác. Lấy một ví dụ mình sẽ xào nấu Sheet 1 của Danh sách 2 Vào file Danh sách 1.Bước 1: Mở Danh sách 2, nhấn vào phải vào Sheet 1 rồi lựa chọn Move or copy. Nếu như muốn chọn các Sheet thì chúng ta giữ Ctrlhoặc Shift rồi bấm vào trái nhằm chọn.
Sau lúc gộp thì các file Excel vẫn thành các Sheet trong file Tổng. Chúng ta có thể áp dụng code gộp sheet vào giải pháp 2 đến hoàn thiện.Lời kết:Thủ thuật này khá đơn giản và dễ dàng đúng không, hy vọng bài viết này hữu ích so với các bạn.

Là một cán bộ Ban QLDA mình tiếp tục phải làm công tác tổng thích hợp báo cáo, planer từ những phòng ban không giống thành 01 file nhất trình lãnh đạo. Trường hợp thao tác bằng tay thủ công thì vượt oải, mất thời gian dẫn đến lừ đừ tiến độ. Vậy hãy mở Excel lên và cùng mình demo cách tiếp sau đây để rút ngắn quá trình đó nhé.Bạn sẽ xem: giải pháp ghép 2 tệp tin excel thành 1

Cách thực hiện

Bước 1: các bạn copy đoạn mã code dưới đây

Sub Get
Sheets()Path = ""Filename = Dir(Path và "*.xls")Do While Filename ""Workbooks.Open Filename:=Path và Filename, Read
Only:=True
For Each Sheet In Active
Workbook.Sheets
Sheet.Copy After:=This
Workbook.Sheets(1)Next Sheet
Workbooks(Filename).Close
Filename = Dir()Loop
End SubBước 2: Vào Excel cùng nhấn tổ hợp phím ALT+F11 để xuất hiện sổ VBA lên. Tiếp theo sau chọn tab Insert rồi chọn Module. Và các bạn copy đoạn mã làm việc trên vào trong size soạn thảo như hình dưới


*

Bước 3: các bạn hãy truy cập vào thư mục chứa các file Excel mà bạn phải ghép lại. Click vào thanh Address để mang đường dẫn thư mục và Copy nó.


*

Bước 4: quay lại cửa sổ VBA mà bạn vừa copy đoạn Code ở bước 1. Các bạn hãy Paste băng thông thư mục các bạn vừa copy ở cách 3 vào phần này của đoạn Code như hình sau (Lưu ý câu hỏi chèn thêm ký tự vô cùng đặc trưng đó nhé)


*

*

Bước 6: Tắt hành lang cửa số VBA đi các các bạn sẽ thấy các File Excel đã được tổng hòa hợp thành một File tốt nhất như hình


*

Lời kết:

Bài viết dường như dài cái nhưng kết quả mỹ mãn đề xuất không đều người.

Điều hướng bài viết

Cách bóc tách Sheet thành các file Excel riêng rẽ biệt
Cách tạo danh sách sổ xuống thông minh
Nếu bạn là 1 nhân viên kế toán, thủ quỹ hoặc liên tiếp phải làm công tác thống kê thì có lẽ rằng hay nên tổng hợp những báo cáo, list ...... Từ các phòng ban không giống thành 01 tệp tin tổng đúng không. Ví như thao tác 1 cách thủ công (copy - paste) thì vô cùng mất thời gian. Hãy vận dụng thủ thuật dưới đây để tạo file tổng một phương pháp nhanh chóng, tiện nghi nhé.
Bước 1: chúng ta tạo thêm 01 file khắc tên làDanh sách tổng, mở file đó ra, bấm tổng hợp phím Alt + F11 (đối với laptop là Fn + alt +F11). Lựa chọn tab Insert rồi lựa chọn Module.

Sub Gop
File
Excel() Dim Files
To
Open Dim x As Integer On Error Go
To Err
Handler Application.Screen
Updating = False Files
To
Open = Application.Get
Open
Filename _ (File
Filter:="Microsoft Excel Files (*.xlsx), *.xlsx", Multi
Select:=True, Title:="Files khổng lồ Merge") If Type
Name(Files
To
Open) = "Boolean" Then Msg
Box "No Files were selected" Go
To Exit
Handler kết thúc If x = 1 While x
Sub gopsheet() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").Entire
Row.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 lớn Sheets.Count Sheets(J).Activate Range("A1").Select Selection.Current
Region.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xl
Up)(2) Next
End Sub
Với phương pháp này chúng ta có thể sao chép Sheet từ tệp tin này thành 1 Sheet của file khác. Ví dụ mình sẽ sao chép Sheet 1 của Danh sách 2 Vào file Danh sách 1.Bước 1: Mở Danh sách 2, nhấn vào phải vào Sheet 1 rồi lựa chọn Move or copy. Nếu như muốn chọn những Sheet thì chúng ta giữ Ctrlhoặc Shift rồi click chuột trái để chọn.

Xem thêm: 25+ cách tạo dáng chụp ảnh đẹp cho nam hút triệu like hot nhất

Sau lúc gộp thì những file Excel vẫn thành các Sheet trong tệp tin Tổng. Bạn cũng có thể áp dụng code gộp sheet vào bí quyết 2 đến hoàn thiện.Lời kết:Thủ thuật này khá đơn giản và dễ dàng đúng không, hy vọng bài viết này hữu ích đối với các bạn.