Add-Ins Ghép Nhiều File Excel Thành 1 File Duy Nhất | Giải Pháp Excel

Trang chủ » Phần Mềm Nối Các File Excel » Add-Ins Ghép Nhiều File Excel Thành 1 File Duy Nhất | Giải Pháp Excel

Có thể bạn quan tâm

Giải Pháp Excel
  • Trang chủ Có gì mới Hoạt động gần nhất Tác giả
  • Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
  • Video New Video về Excel Video về tin học khác Tin tức về tin học chung
  • Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
  • Tài nguyên Đánh giá mới nhất Tìm tài nguyên
  • Facebook
  • Đóng góp
Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…
  • Tìm bài viết mới
  • Tìm theo chuyên mục
Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

  • Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
  • Trang chủ
  • Diễn đàn
  • Các Add-ins cho excel
You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Add-Ins ghép nhiều file Excel thành 1 file duy nhất (1 người xem)
  • Thread starter Thread starter thinh18tt
  • Ngày gửi Ngày gửi 20/12/13
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) T

thinh18tt

Thành viên mới
Tham gia 21/1/10 Bài viết 13 Được thích 23 Chào các bạn; Do nhu cầu công việc nên mình tạo 1 Add-Ins để ghép nhiều file Excel thành 1 file duy nhất. Tiện thể chia sẻ cho anh em dùng và góp ý. Tạo Add-Ins có cái hay là chỉ cần nạp 1 lần và sử dụng mãi mãi. Yêu cầu: - Office 2007 trở lên - Các File cần ghép có cấu trúc giống hệt nhau - Dữ liệu nằm ở Sheet đầu tiên (không phân biệt tên Sheet) - Chỉ hoạt động khi bạn chọn từ 2 file trở lên (vì 1 file thì cần gì ghép nữa --=0) Mô tả: - Chương trình sẽ ghép tất cả các File đã chọn thành 1 File duy nhất tại thư mục chứa các File đang chọn và có tên là "Tong hop ddmmyyyy hhmmss.xlsx" - Khi chọn xong các File, chương trình đọc lần lượt từng File. Với File đầu tiên thì sẽ Copy toàn bộ dữ liệu, các file tiếp theo sẽ copy dữ liệu từ hàng thứ 2. - Khi xong chương trình tự lưu lại. Note: Mình để Open Source để các bạn muốn thì tham khảo và góp ý.

File đính kèm

  • Joint Excels.xlam Joint Excels.xlam 25.1 KB · Đọc: 4,075
kdang

kdang

Thành viên mới
Tham gia 4/5/08 Bài viết 20 Được thích 6
thinh18tt đã viết: Chào các bạn; Do nhu cầu công việc nên mình tạo 1 Add-Ins để ghép nhiều file Excel thành 1 file duy nhất. Tiện thể chia sẻ cho anh em dùng và góp ý. Tạo Add-Ins có cái hay là chỉ cần nạp 1 lần và sử dụng mãi mãi. Yêu cầu: - Office 2007 trở lên - Các File cần ghép có cấu trúc giống hệt nhau - Dữ liệu nằm ở Sheet đầu tiên (không phân biệt tên Sheet) - Chỉ hoạt động khi bạn chọn từ 2 file trở lên (vì 1 file thì cần gì ghép nữa --=0) Mô tả: - Chương trình sẽ ghép tất cả các File đã chọn thành 1 File duy nhất tại thư mục chứa các File đang chọn và có tên là "Tong hop ddmmyyyy hhmmss.xlsx" - Khi chọn xong các File, chương trình đọc lần lượt từng File. Với File đầu tiên thì sẽ Copy toàn bộ dữ liệu, các file tiếp theo sẽ copy dữ liệu từ hàng thứ 2. - Khi xong chương trình tự lưu lại. Note: Mình để Open Source để các bạn muốn thì tham khảo và góp ý. Nhấp chuột vào đây để mở rộng...
Do mình muốn gộp các file vào một file đã tạo sẵn nên mình muốn ctrinh vẫn hoạt động trong trường hợp chọn 1 file. Bạn có thể giúp mình sửa code được không?

File đính kèm

  • JOINT DATA.xlsm JOINT DATA.xlsm 29.1 KB · Đọc: 598
Quang_Hải

Quang_Hải

Thành viên gạo cội
Tham gia 21/2/09 Bài viết 6,077 Được thích 8,011 Nghề nghiệp Làm đủ thứ
kdang đã viết: Do mình muốn gộp các file vào một file đã tạo sẵn nên mình muốn ctrinh vẫn hoạt động trong trường hợp chọn 1 file. Bạn có thể giúp mình sửa code được không? Nhấp chuột vào đây để mở rộng...
Đang không khỏe nhưng cũng cố chọt chọt bàn phím thế này PHP: Sao chép. Sub MergeFie() Dim Y, X As Integer, sh As Worksheet, Cursh As Worksheet On Error GoTo ErrHandler Application.ScreenUpdating = False Set Cursh = ActiveSheet Y = Application.GetOpenFilename("Excel Files, *.xls?*", MultiSelect:=True) If TypeName(Y) = "Boolean" Then MsgBox "No Files were selected" GoTo ExitHandler End If X = 1 While X <= UBound(Y) Workbooks.Open Y(X) With ActiveWorkbook For Each sh In .Worksheets If sh.UsedRange.Rows.Count > 1 Then sh.UsedRange.Offset(1).Copy Cursh.[A65536].End(3)(2).PasteSpecial 3 End If Next Application.CutCopyMode = False .Close False End With X = X + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub C

chuducninh

Thành viên mới
Tham gia 9/6/11 Bài viết 19 Được thích 23 Có cao thủ nào giúp em với: em sử dụng code ghép file excel của thinh18tt nhưng nó báo lỗi như bên dưới: Sub AUTO_OPEN() GhepExcelFile End Sub Sub GhepExcelFile() Dim sFileName As String Dim ArrFile() As String Dim i As Integer Dim DirLog As String Dim MaxCol As Long Dim MaxRow As Long Dim bHeader As Boolean Dim OutputFile As String bHeader = False On Error Resume Next Windows("Data.xlsx").Activate ActiveWorkbook.Save Workbooks("data.xlsx").Close On Error GoTo 0 If ShowOpen(sFileName, , "Excel Files (*.xls;*.xlsx)|*.xls;*.xlsx", , , , , OFN_ALLOWMULTiSELECT Or OFN_EXPLORER) Then ArrFile = Split(sFileName, "|") DirLog = ArrFile(LBound(ArrFile)) & "\" If UBound(ArrFile) > 0 Then 'OutputFile = "Tong hop " & Format(Now(), "ddmmyyyy hhmmss") & ".xlsx" 'Workbooks.Add 'ChDir DirLog 'ActiveWorkbook.SaveAs Filename:=DirLog & OutputFile On Error Resume Next Workbooks.Open "D:\chuyen luong\data.xlsx" On Error GoTo 0 For i = LBound(ArrFile) + 1 To UBound(ArrFile) Workbooks.Open DirLog & ArrFile(i) MaxRow = ActiveSheet.UsedRange.Rows.Count MaxCol = ActiveSheet.UsedRange.Columns.Count If bHeader = False Then Range(Cells(1, 1).Address & ":" & Cells(MaxRow, MaxCol).Address).Select bHeader = True Else Range(Cells(2, 1).Address & ":" & Cells(MaxRow, MaxCol).Address).Select End If Selection.Copy Windows("Data.xlsx").Activate MaxRow = ActiveSheet.UsedRange.Rows.Count If MaxRow = 1 Then Range("A1").Select Else Range("A" & (MaxRow + 1)).Select End If ActiveSheet.Paste Application.CutCopyMode = False Workbooks(ArrFile(i)).Close Next i Columns("c:f").Delete ActiveSheet.Range("$A$1:$B$1000000").RemoveDuplicates Columns:=Array(1, 2), _ Header:=xlNo Range("A2:A1000000").Select On Error Resume Next Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete On Error GoTo 0 Columns("A:B").Select With Selection .Font.Bold = False .Font.Size = 10 .Font.Name = "times new roman" .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone End With 'ActiveSheet.Range("a1:b1000000").REMOVEDUPLICATE ActiveWorkbook.Save Workbooks("data.xlsx").Close End If End If End Sub H

hoavba

Thành viên mới
Tham gia 9/3/11 Bài viết 2 Được thích 1 Cảm ơn bạn, joint rất hay, bạn có thể sửa code theo tiêu chí này được không (từ ofice 2003-2013). 1/ Gộp nhiều file excel thành 01 file và mỗi file 1 sheet đã cố định (Không lấy các sheet bên cạnh). 2/ Tách nhiều sheet của 01 file thành nhiều file, mỗi sheet 01 file. Cảm ơn cao thủ trước nhé. H

hoavba

Thành viên mới
Tham gia 9/3/11 Bài viết 2 Được thích 1 3/ Gộp nhiều sheet trong 01 file thành 01 sheet duy nhất. kdang

kdang

Thành viên mới
Tham gia 4/5/08 Bài viết 20 Được thích 6
chuducninh đã viết: Có cao thủ nào giúp em với: em sử dụng code ghép file excel của thinh18tt nhưng nó báo lỗi như bên dưới: Sub AUTO_OPEN() GhepExcelFile End Sub Sub GhepExcelFile() Dim sFileName As String Dim ArrFile() As String Dim i As Integer Dim DirLog As String Dim MaxCol As Long Dim MaxRow As Long Dim bHeader As Boolean Dim OutputFile As String bHeader = False On Error Resume Next Windows("Data.xlsx").Activate ActiveWorkbook.Save Workbooks("data.xlsx").Close On Error GoTo 0 If ShowOpen(sFileName, , "Excel Files (*.xls;*.xlsx)|*.xls;*.xlsx", , , , , OFN_ALLOWMULTiSELECT Or OFN_EXPLORER) Then ArrFile = Split(sFileName, "|") DirLog = ArrFile(LBound(ArrFile)) & "\" If UBound(ArrFile) > 0 Then 'OutputFile = "Tong hop " & Format(Now(), "ddmmyyyy hhmmss") & ".xlsx" 'Workbooks.Add 'ChDir DirLog 'ActiveWorkbook.SaveAs Filename:=DirLog & OutputFile On Error Resume Next Workbooks.Open "D:\chuyen luong\data.xlsx" On Error GoTo 0 For i = LBound(ArrFile) + 1 To UBound(ArrFile) Workbooks.Open DirLog & ArrFile(i) MaxRow = ActiveSheet.UsedRange.Rows.Count MaxCol = ActiveSheet.UsedRange.Columns.Count If bHeader = False Then Range(Cells(1, 1).Address & ":" & Cells(MaxRow, MaxCol).Address).Select bHeader = True Else Range(Cells(2, 1).Address & ":" & Cells(MaxRow, MaxCol).Address).Select End If Selection.Copy Windows("Data.xlsx").Activate MaxRow = ActiveSheet.UsedRange.Rows.Count If MaxRow = 1 Then Range("A1").Select Else Range("A" & (MaxRow + 1)).Select End If ActiveSheet.Paste Application.CutCopyMode = False Workbooks(ArrFile(i)).Close Next i Columns("c:f").Delete ActiveSheet.Range("$A$1:$B$1000000").RemoveDuplicates Columns:=Array(1, 2), _ Header:=xlNo Range("A2:A1000000").Select On Error Resume Next Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete On Error GoTo 0 Columns("A:B").Select With Selection .Font.Bold = False .Font.Size = 10 .Font.Name = "times new roman" .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone End With 'ActiveSheet.Range("a1:b1000000").REMOVEDUPLICATE ActiveWorkbook.Save Workbooks("data.xlsx").Close End If End If End Sub Nhấp chuột vào đây để mở rộng...
Bạn dùng file gốc của bạn thinh18tt nhé. code trên là file Jointdata mà mình đã sửa code để dùng gộp các file mình cần làm. D

dexem

Thành viên mới
Tham gia 16/10/08 Bài viết 3 Được thích 0 Cám ơn tác giả rất nhiều. Cho mình hỏi thêm, nếu mình muốn join từ sheet 2 (ko phải join sheet 1) thì sao? VÌ hàng tháng mình cần join khoảng 30 file, mỗi file có 5 sheet, nhưng mình chỉ cần join sheet thứ hai mà thôi. Tks again! befaint

befaint

|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840
dexem đã viết: Cám ơn tác giả rất nhiều. Cho mình hỏi thêm, nếu mình muốn join từ sheet 2 (ko phải join sheet 1) thì sao? VÌ hàng tháng mình cần join khoảng 30 file, mỗi file có 5 sheet, nhưng mình chỉ cần join sheet thứ hai mà thôi. Tks again! Nhấp chuột vào đây để mở rộng...
sheet 2 ở đây là: 1/ sheet.name = "sheet 2" (Tức là cái tên của worksheet mà bạn nhìn thấy ở tab sheet) 2/ (Name) = Sheet 2 (Properties của worksheet trong VBA) D

dexem

Thành viên mới
Tham gia 16/10/08 Bài viết 3 Được thích 0 Cám ơn tác giả, mình đã joint thành công sheet 2. N

nhs243

Thành viên mới
Tham gia 13/5/11 Bài viết 33 Được thích 0 Cho em hỏi có thể thêm được 1 cột nữa để hiển thị tên tên file đã ghép vào mỗi hàng được không, vì ghép nhiều quá không biết dòng nào của file nào? K

khoala.ldg

Thành viên mới
Tham gia 19/12/15 Bài viết 1 Được thích 0 Office 64bit Trên nền 32Bit thì ok, còn 64 bit bị báo lỗi bạn ơi !!! K

khoa186

Thành viên chính thức
Tham gia 23/11/07 Bài viết 64 Được thích 4 mình mở 64 bit cũng báo lỗi , bác nào sửa giùm mình nhé quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau Lần chỉnh sửa cuối: 26/12/15 N

nguyentrung123

Thành viên mới
Tham gia 25/3/13 Bài viết 1 Được thích 0 Cám ơn tác giả rất nhiều L

letinnghia

Thành viên hoạt động
Tham gia 20/4/11 Bài viết 183 Được thích 20
thinh18tt đã viết: Chào các bạn; Do nhu cầu công việc nên mình tạo 1 Add-Ins để ghép nhiều file Excel thành 1 file duy nhất. Tiện thể chia sẻ cho anh em dùng và góp ý. Tạo Add-Ins có cái hay là chỉ cần nạp 1 lần và sử dụng mãi mãi. Yêu cầu: - Office 2007 trở lên - Các File cần ghép có cấu trúc giống hệt nhau - Dữ liệu nằm ở Sheet đầu tiên (không phân biệt tên Sheet) - Chỉ hoạt động khi bạn chọn từ 2 file trở lên (vì 1 file thì cần gì ghép nữa --=0) Mô tả: - Chương trình sẽ ghép tất cả các File đã chọn thành 1 File duy nhất tại thư mục chứa các File đang chọn và có tên là "Tong hop ddmmyyyy hhmmss.xlsx" - Khi chọn xong các File, chương trình đọc lần lượt từng File. Với File đầu tiên thì sẽ Copy toàn bộ dữ liệu, các file tiếp theo sẽ copy dữ liệu từ hàng thứ 2. - Khi xong chương trình tự lưu lại. Note: Mình để Open Source để các bạn muốn thì tham khảo và góp ý. Nhấp chuột vào đây để mở rộng...
File của bạn rất phù hợp với công việc của mình, nhưng khi mình ghép file thì có sự cố như sau: 1. File 1 mình có 207 dòng, file 2 có 126 dòng Kết quả ghép lại có 275 dòng trống giữa file 1 và file 2 2. File có nhiều sheet như sheet "Ton Kho", "sheet 1", "sheet 2"...mình muốn ghép sheet "Ton Kho" của các file lại với nhau nhưng do mình Save dữ liệu tại "sheet 1" thì kết quả ghép bị sai. Bạn chỉnh giúp mình mặc định là ghép sheet "Ton Kho" nhé. Cảm ơn bạn nhiều T

trinpham

Thành viên mới
Tham gia 1/4/16 Bài viết 3 Được thích 0
thinh18tt đã viết: Chào các bạn; Do nhu cầu công việc nên mình tạo 1 Add-Ins để ghép nhiều file Excel thành 1 file duy nhất. Tiện thể chia sẻ cho anh em dùng và góp ý. Tạo Add-Ins có cái hay là chỉ cần nạp 1 lần và sử dụng mãi mãi. Yêu cầu: - Office 2007 trở lên - Các File cần ghép có cấu trúc giống hệt nhau - Dữ liệu nằm ở Sheet đầu tiên (không phân biệt tên Sheet) - Chỉ hoạt động khi bạn chọn từ 2 file trở lên (vì 1 file thì cần gì ghép nữa --=0) Mô tả: - Chương trình sẽ ghép tất cả các File đã chọn thành 1 File duy nhất tại thư mục chứa các File đang chọn và có tên là "Tong hop ddmmyyyy hhmmss.xlsx" - Khi chọn xong các File, chương trình đọc lần lượt từng File. Với File đầu tiên thì sẽ Copy toàn bộ dữ liệu, các file tiếp theo sẽ copy dữ liệu từ hàng thứ 2. - Khi xong chương trình tự lưu lại. Note: Mình để Open Source để các bạn muốn thì tham khảo và góp ý. Nhấp chuột vào đây để mở rộng...
File nay khong mo duoc tren 64bit 2013. aem co cach nao fix khong? Thanks@ [email protected] Lần chỉnh sửa cuối: 27/12/16 T

trinpham

Thành viên mới
Tham gia 1/4/16 Bài viết 3 Được thích 0
thinh18tt đã viết: Chào các bạn; Do nhu cầu công việc nên mình tạo 1 Add-Ins để ghép nhiều file Excel thành 1 file duy nhất. Tiện thể chia sẻ cho anh em dùng và góp ý. Tạo Add-Ins có cái hay là chỉ cần nạp 1 lần và sử dụng mãi mãi. Yêu cầu: - Office 2007 trở lên - Các File cần ghép có cấu trúc giống hệt nhau - Dữ liệu nằm ở Sheet đầu tiên (không phân biệt tên Sheet) - Chỉ hoạt động khi bạn chọn từ 2 file trở lên (vì 1 file thì cần gì ghép nữa --=0) Mô tả: - Chương trình sẽ ghép tất cả các File đã chọn thành 1 File duy nhất tại thư mục chứa các File đang chọn và có tên là "Tong hop ddmmyyyy hhmmss.xlsx" - Khi chọn xong các File, chương trình đọc lần lượt từng File. Với File đầu tiên thì sẽ Copy toàn bộ dữ liệu, các file tiếp theo sẽ copy dữ liệu từ hàng thứ 2. - Khi xong chương trình tự lưu lại. Note: Mình để Open Source để các bạn muốn thì tham khảo và góp ý. Nhấp chuột vào đây để mở rộng...
Minh mo bang office 2013 64bit thi bao loi. ad fix dum nhe. thanks@ D

dinhvanmanh2006

Thành viên mới
Tham gia 21/8/13 Bài viết 11 Được thích 1 Bac oi em dung thi co loi nay Workbooks.Open DirLog & ArrFile(i) Bac xem giup em voi T

trinpham

Thành viên mới
Tham gia 1/4/16 Bài viết 3 Được thích 0 mình sử dụng office 2013 64 bit thì báo lỗi, add có thể fix giúp được không? Mình có gửi đính kèm báo lỗi. Thanks @

File đính kèm

  • Capture.jpg Capture.jpg 38 KB · Đọc: 100
K

kawailkul

Thành viên mới
Tham gia 30/12/15 Bài viết 1 Được thích 0 Mình chạy trên nền 64bit báo lỗi, pls help me D

doinho

Thành viên thường trực
Tham gia 22/8/08 Bài viết 234 Được thích 9 Mình cũng bị lỗi như 2 bạn #19 và #20. Bạn chủ thớt update lại giúp tụi mình với. Thanks bạn H

hoang_kid

Thành viên mới
Tham gia 11/2/08 Bài viết 5 Được thích 8 Các bạn tham khảo thêm file này nhé:

File đính kèm

  • Tong hop file.xlsm Tong hop file.xlsm 16.2 KB · Đọc: 269
P

ppicatru

Thành viên thường trực
Tham gia 3/6/17 Bài viết 293 Được thích 40 Giới tính Nữ
thinh18tt đã viết: Chào các bạn; Do nhu cầu công việc nên mình tạo 1 Add-Ins để ghép nhiều file Excel thành 1 file duy nhất. Tiện thể chia sẻ cho anh em dùng và góp ý. Tạo Add-Ins có cái hay là chỉ cần nạp 1 lần và sử dụng mãi mãi. Yêu cầu: - Office 2007 trở lên - Các File cần ghép có cấu trúc giống hệt nhau - Dữ liệu nằm ở Sheet đầu tiên (không phân biệt tên Sheet) - Chỉ hoạt động khi bạn chọn từ 2 file trở lên (vì 1 file thì cần gì ghép nữa --=0) Mô tả: - Chương trình sẽ ghép tất cả các File đã chọn thành 1 File duy nhất tại thư mục chứa các File đang chọn và có tên là "Tong hop ddmmyyyy hhmmss.xlsx" - Khi chọn xong các File, chương trình đọc lần lượt từng File. Với File đầu tiên thì sẽ Copy toàn bộ dữ liệu, các file tiếp theo sẽ copy dữ liệu từ hàng thứ 2. - Khi xong chương trình tự lưu lại. Note: Mình để Open Source để các bạn muốn thì tham khảo và góp ý. Nhấp chuột vào đây để mở rộng...
add in này không hoạt động được trên excel 64 bít, các bạn sửa lại để add in hoạt động H

hoangexcell

Thành viên tiêu biểu
Tham gia 8/1/08 Bài viết 459 Được thích 132 Donate (Momo) Donate Giới tính Nam Mình đang cần nối nhiều sheets của nhiều Workbook vào thành 1 sheet. Mong các cao thủ trợ giúp!!!! N

newlife1979

Thành viên mới
Tham gia 27/12/17 Bài viết 1 Được thích 0 Giới tính Nam Mình dùng off2010 32 bit, Win xp. Khi mình chọn file để joint thì báo lỗi run time error 76, path not found. giúp mình email: [email protected]. cám ơn bạn Lần chỉnh sửa cuối: 27/12/17 M

misibi

Thành viên chính thức
Tham gia 18/3/15 Bài viết 52 Được thích 1
thinh18tt đã viết: Chào các bạn; Do nhu cầu công việc nên mình tạo 1 Add-Ins để ghép nhiều file Excel thành 1 file duy nhất. Tiện thể chia sẻ cho anh em dùng và góp ý. Tạo Add-Ins có cái hay là chỉ cần nạp 1 lần và sử dụng mãi mãi. Yêu cầu: - Office 2007 trở lên - Các File cần ghép có cấu trúc giống hệt nhau - Dữ liệu nằm ở Sheet đầu tiên (không phân biệt tên Sheet) - Chỉ hoạt động khi bạn chọn từ 2 file trở lên (vì 1 file thì cần gì ghép nữa --=0) Mô tả: - Chương trình sẽ ghép tất cả các File đã chọn thành 1 File duy nhất tại thư mục chứa các File đang chọn và có tên là "Tong hop ddmmyyyy hhmmss.xlsx" - Khi chọn xong các File, chương trình đọc lần lượt từng File. Với File đầu tiên thì sẽ Copy toàn bộ dữ liệu, các file tiếp theo sẽ copy dữ liệu từ hàng thứ 2. - Khi xong chương trình tự lưu lại. Note: Mình để Open Source để các bạn muốn thì tham khảo và góp ý. Nhấp chuột vào đây để mở rộng...
Add-in này có thể sửa thêm ghép nhiều sheet của nhiều của nhiều file có cùng cấu trúc vào 01 file mơi, gom vào 1 sheet được không ạ. Nhờ các bác giúp đỡ! Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (6 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
4 5 6 Trả lời 578 Đọc 82K 28 phút trước tuanktt3 T E
  • Đã giải quyết
VBA code thay thế cho pivot-table lấy top 10, bottom 10 (1 người xem)
    • Thích
  • eagle12
  • 8/12/25
  • Lập Trình với Excel
Trả lời 24 Đọc 442 46 phút trước eagle12 E D
  • Question Question
Tách dòng tự động theo điều kiện bằng VBA (1 người xem)
    • Cười
  • duongnhuxuyen
  • Thứ sáu lúc 15:39
  • Lập Trình với Excel
Trả lời 9 Đọc 190 51 phút trước HUONGHCKT H PhanTuHuong Nếu diễn đàn GPE đóng cửa? (2 người xem)
    • Thích
    • Yêu thích
  • PhanTuHuong
  • Hôm qua, lúc 23:46
  • Thư giãn
Trả lời 12 Đọc 243 Hôm nay lúc 15:21 kiendt1973 K HeSanbi Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự
  • HeSanbi
  • Thứ bảy lúc 15:41
  • Xử lý chuỗi ký tự
Trả lời 1 Đọc 105 Hôm nay lúc 10:34 jonythanht J P Lỗi hàm VBA phải add-in sau mỗi lần mở file (1 người xem)
  • phamdinh.huy.aladin@gmail
  • Hôm nay lúc 10:18
  • Hàm và công thức Excel
Trả lời 0 Đọc 26 Hôm nay lúc 10:18 phamdinh.huy.aladin@gmail P D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)
  • dieppk.nb92
  • Hôm qua, lúc 01:22
  • Hàm và công thức Excel
Trả lời 10 Đọc 257 Hôm nay lúc 08:43 dieppk.nb92 D H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel (1 người xem)
  • H_P
  • Thứ bảy lúc 14:23
  • Tìm kiếm, dò tìm và tham chiếu
Trả lời 2 Đọc 85 Hôm nay lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên (1 người xem)
  • Ngựa con 2002
  • Thứ bảy lúc 23:07
  • Xử lý chuỗi ký tự
Trả lời 7 Đọc 108 Hôm qua, lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện (1 người xem)
  • QUANSUNG
  • Thứ bảy lúc 10:55
  • Hàm và công thức Excel
Trả lời 2 Đọc 113 Hôm qua, lúc 00:02 dungpham01 D huuthang_bd Cùng xây dựng file Gia Phả
    • Thích
  • huuthang_bd
  • 30/12/13
  • Xây dựng ứng dụng.
Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)
  • Dinh Hong Nhung
  • Thứ năm lúc 10:36
  • Hàm và công thức Excel
Trả lời 14 Đọc 666 Thứ bảy lúc 10:43 Cúc Hr C PhanTuHuong CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Cảm ơn
    • Thích
  • PhanTuHuong
  • 4/10/22
  • Thư giãn
Trả lời 8 Đọc 2K Thứ bảy lúc 00:09 PhanTuHuong PhanTuHuong D
  • Question Question
IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN
  • duongnhuxuyen
  • 12/11/25
  • Lập Trình với Excel
Trả lời 14 Đọc 450 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape (1 người xem)
  • Vũ Hải Sơn
  • 2/12/25
  • Hàm và công thức Excel
Trả lời 34 Đọc 671 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel. (1 người xem)
  • Thúy Sa
  • Thứ năm lúc 17:17
  • Những vấn đề chung
Trả lời 1 Đọc 99 Thứ năm lúc 20:29 Maika8008 Maika8008 L
  • Question Question
Tạo ComboBox để tìm kiếm tên (1 người xem)
  • lyvanthang
  • Thứ năm lúc 10:36
  • Lập Trình với Excel
Trả lời 4 Đọc 194 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif (1 người xem)
  • TVT230279
  • 5/12/25
  • Hàm và công thức Excel
Trả lời 5 Đọc 264 Thứ năm lúc 11:30 87kilua 87kilua H Quên mật khẩu khóa protect (1 người xem)
  • Hoale85
  • 20/2/25
  • Những vấn đề chung
Trả lời 22 Đọc 1K Thứ năm lúc 09:10 Gà Con yêu VBA Gà Con yêu VBA HeSanbi
  • Question Question
Hướng dẫn sửa lỗi không khởi động được ứng dụng Excel
    • Thích
    • Yêu thích
  • HeSanbi
  • Thứ tư lúc 23:52
  • Lập Trình với Excel
Trả lời 0 Đọc 114 Thứ tư lúc 23:52 HeSanbi HeSanbi Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

  • Maika8008 32
  • thanthanhan 19
  • dungpham01 18
  • eagle12 16
  • ongke0711 16
  • nguyenanhtruong2409 14
  • Phan Thế Hiệp 12
  • HUONGHCKT 12
  • vic_it 11
  • nhhnam 10
  • Vũ Hải Sơn 9
  • pycckuu410 8
  • bsbnhh 7
  • HeSanbi 7
  • ptm0412 6
  • Hana2610 6
  • Gà Con yêu VBA 6
  • dieppk.nb92 6
  • duongnhuxuyen 6
  • ketoan113 5

Thành viên có điểm tương tác cao nhất tháng

  • Phan Thế Hiệp 63
  • Maika8008 26
  • ongke0711 17
  • thanthanhan 16
  • dungpham01 9
  • HeSanbi 9
  • ptm0412 8
  • Cúc Hr 8
  • HUONGHCKT 8
  • eagle12 8
  • dieppk.nb92 6
  • Mr.hieudoanxd 5
  • befaint 5
  • SA_DQ 4
  • nguyenanhtruong2409 4
  • pycckuu410 4
  • Phuocam 4
  • tieutuvodanh192 2
  • Hana2610 2
  • nhhnam 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025
  • Trang chủ
  • Diễn đàn
  • Các Add-ins cho excel
  • Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Back Top Bottom

Từ khóa » Phần Mềm Nối Các File Excel