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

Bạn đang xem: Gộp các file excel thành 1


*

*

*

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

Sub GopFileExcel() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", MultiSelect:=True, Title:="Files to lớn Merge") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "No Files were selected" GoTo ExitHandler over 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").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 khổng lồ Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) NextEnd Sub
Với cách này bạn có thể sao chép Sheet
từ tệp tin này thành 1 Sheet của tệp tin khác. Ví dụ mình sẽ xào nấu Sheet 1 của Danh sách 2 Vào file Danh sách 1.

Xem thêm: Mtk Droid Root & Tools V2 - Download Mtk Droid Tool (All Versions)

Bước 1: Mở Danh sách 2, bấm chuột phải vào Sheet 1 rồi chọn Move or copy. Nếu như muốn chọn nhiều Sheet thì bạn giữ Ctrlhoặc Shift rồi nhấp chuột trái để chọn.
Sau khi gộp thì các file Excel vẫn thành những Sheet trong tệp tin Tổng. Bạn có thể áp dụng code gộp sheet vào phương pháp 2 mang đến hoàn thiện.Lời kết:
Thủ thuật này khá đơn giản dễ dàng đúng không, hy vọng nội dung bài viết này hữu ích so với các bạn.
Blogger Nguyễn Dương gồm một lời nói mà mình rất thích đó là "Thật sai lạc khi nghĩ rằng một khi rời khỏi trường học, chúng ta không đề nghị học thêm điều mới nữa". Cũng chính vì thế nhưng hãy luôn luôn luôn học tập hỏi, con tín đồ chỉ dứt phát triển khi kết thúc học hỏi. Nếu như khách hàng chưa hiểu nội dung nội dung bài viết hoặc đang băn khoăn khi thao tác làm việc thì hãy comment phía dưới bài viết để mọi tín đồ cùng bàn thảo nhé!


Đây là Blog share kiến thức công nghệ thông tin; những thủ thuật, kinh nghiệm tay nghề về sử dụng máy tính và các bài viết về công nghệ. Mình có lẽ ở đây có rất nhiều thứ xuất xắc ho để chúng ta tham khảo đấy nhé