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 làm việ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ác thành 01 file tổng đúng không. Nếu 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 tiếp sau đây để sinh sản file tổng một cách nhanh chóng, thuận tiện nhé.

Bạn đang xem: Code gộp nhiều file excel thành 1


*

*

*

Bước 1: 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 vi tính là Fn + alternative text +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 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 to lớn 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 biện pháp này bạn cũng có thể sao chép Sheet
từ file này thành 1 Sheet của tệp tin khác. Lấy ví dụ như mình sẽ xào nấu Sheet 1 của Danh sách 2 Vào tệp tin Danh sách 1.

Xem thêm: Hướng Dẫn In Trong Word 2007, 2010, 2013 Và 2016, Hướng Dẫn Cách In Tài Liệu Trong Word

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


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