Cách Gộp Nhiều File Excel Thành 1

      70
Nếu bạn là một nhân viên kế toán, thủ quỹ hoặc tiếp tục phải làm công tác làm việc thống kê thì chắc hẳn hay bắt buộc tổng hợp các báo cáo, list ...... Từ những phòng ban không giống thành 01 tệp tin tổng đúng không. Ví như thao tác một cách thủ công (copy - paste) thì khôn xiết mất thời gian. Hãy áp dụng thủ thuật tiếp sau đây để chế tác file tổng một giải pháp nhanh chóng, thuận lợi nhé.

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


*

*

*

Bước 1: các bạn tạo thêm 01 file khắc tên làDanh sách tổng, mở file kia ra, bấm tổng hợp phím Alt + F11 (đối với máy vi 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 khổng lồ Merge") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "No Files were selected" GoTo ExitHandler end 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 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 phương pháp 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. Ví dụ mình sẽ xào luộc Sheet 1 của Danh sách 2 Vào tệp tin Danh sách 1.

Xem thêm: Promotion Mix Là Gì ? Khái Niệm Marketing 4Ps Và 7Ps 10 Bước Xây Dựng Chiến Lược Marketing Mix

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 nhiều Sheet thì các bạn giữ Ctrlhoặc Shift rồi bấm chuột trái để chọn.
Sau lúc gộp thì các file Excel đã thành các Sheet trong file Tổng. Chúng ta 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 so với các bạn.
Blogger Nguyễn Dương có một lời nói mà mình cực kỳ thích chính là "Thật sai lầm khi cho rằng một khi rời ra khỏi trường học, các bạn không nên học thêm điều bắt đầu nữa". Cũng chính vì thế mà lại hãy luôn luôn học hỏi, con người chỉ dứt phát triển khi kết thúc học hỏi. Nếu khách hàng chưa phát âm nội dung bài viết hoặc đang băn khoăn khi thao tác thì hãy comment phía dưới bài viết để mọi tín đồ cùng bàn bạc nhé!


Đây là Blog chia sẻ kiến thức công nghệ thông tin; các thủ thuật, 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ó không ít thứ tốt ho để các bạn tham khảo đấy nhé