Add-Ins Ghép Nhiều File Excel Thành 1 File Duy Nhất | 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 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

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 ) 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,076

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 ) 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

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

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

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,842

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 ) 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 ) 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 ) 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 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 ) 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) 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 ) 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

N Vấn đề về hiệu năng khi thực hiện ghép chuỗi trong VBA với tần suất lớn (3 người xem)

• • 
  • 

• nguyendang95
• Thứ sáu lúc 21:51
• Excel và các ngôn ngữ lập trình khác

Trả lời 30 Đọc 477 Hôm nay lúc 11:33 phuongnam366377 Q Tính Tổng Có Điều Kiện Từ Nhiều Sheet (2 người xem)

• quydangktk
• 20/1/11
• Hàm và công thức Excel

Trả lời 31 Đọc 34K Hôm nay lúc 10:53 dungpham01 D Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 43 Đọc 2K Hôm nay lúc 04:53 SA_DQ T

• Question Question

Gửi Mail tự động bằng VBA có đính kèm bảng tổng hợp và chữ ký

• thanhhai30420
• 16/2/24
• Lập Trình với Excel

Trả lời 2 Đọc 619 Hôm qua, lúc 23:07 tuantv9 T S

• Question Question

GỬI BẢNG LƯƠNG HÀNG LOẠT

• sonthoa4
• 18/5/22
• Lập Trình với Excel

Trả lời 10 Đọc 3K Hôm qua, lúc 23:00 tuantv9 T Code gởi mail từ excel theo danh sách cho sẵn

• LuuGiaPhúc
• 24/5/24
• Những vấn đề chung

Trả lời 13 Đọc 1K Hôm qua, lúc 22:54 tuantv9 T T gửi thư tự động đến 1000k khách hàng bằng outlook

• tuantv9
• Hôm qua, lúc 22:36
• Hàm và công thức Excel

Trả lời 0 Đọc 27 Hôm qua, lúc 22:36 tuantv9 T D File sau khi lưu bị nhảy cột (1 người xem)

• Dé Noir
• Thứ sáu lúc 16:42
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 124 Hôm qua, lúc 21:14 Dé Noir D

• Đã giải quyết

LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động (phiên bản 2026) (1 người xem)

• • 
  • 

• HeSanbi
• 5/3/21
• Lập Trình với Excel

Trả lời 84 Đọc 18K Thứ bảy lúc 23:06 HeSanbi L xin công thức dò tìm 1 hóa đơn xuất nhiều ngày khác nhau

• loandao82
• Thứ tư lúc 10:59
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 4 Đọc 201 Thứ bảy lúc 21:04 ptm0412 B PIVOT ĐỂ LỌC CẢ MÃ NHÂN VIÊN VÀ HỌ TÊN NHÂN VIÊN CÙNG HIỂN THỊ Ở ROWS

• BaoBao.9
• Thứ tư lúc 15:32
• Hàm và công thức Excel

Trả lời 2 Đọc 116 Thứ bảy lúc 08:39 BaoBao.9 B V Nhờ các bạn trợ giúp về hàm FILTER trong EXCEL 2019, ô trống khi lấy dữ liệu cứ hiển thị là số 0

• vuvannguyen1972
• Thứ sáu lúc 16:52
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 1 Đọc 88 Thứ sáu lúc 17:38 Phuocam T Làm file mail Merge bị lỗi ko hiện ra các trường để Insert (1 người xem)

• trinhthilan3007
• Thứ sáu lúc 16:32
• Hỏi đáp những vấn đề khác

Trả lời 0 Đọc 49 Thứ sáu lúc 16:32 trinhthilan3007 T N Các bác cho em hỏi hàm tình tổng trong Exel này ạ.

• NguyenNT85
• Thứ tư lúc 22:32
• Hàm và công thức Excel

Trả lời 7 Đọc 211 Thứ sáu lúc 07:18 DeTong D T File pdf xuất ra không giống trong màn hình in (Excel 2016) (1 người xem)

• TranTuanBOT
• Thứ năm lúc 17:37
• Những vấn đề chung

Trả lời 0 Đọc 75 Thứ năm lúc 17:37 TranTuanBOT T 1

• Question Question

file excel mở ra nhưng không kích được sang sheet khác nhờ các anh chị trợ giúp ạ

• 198zxc
• Thứ năm lúc 09:22
• Lập Trình với Excel

Trả lời 4 Đọc 102 Thứ năm lúc 10:39 198zxc 1 G FOOTER BỊ LỆCH KHI IN

• GACON_VBA
• Thứ năm lúc 10:18
• Những vấn đề chung

Trả lời 0 Đọc 82 Thứ năm lúc 10:18 GACON_VBA G Chia sẻ: Tạo thông báo nhắc nhở khi sắp đến ngày kỷ niệm

• • 
  • 

• huuthang_bd
• 6/5/21
• Ứng dụng cho lĩnh vực khác

Trả lời 48 Đọc 12K Thứ tư lúc 20:53 Gà Công Nghệ N Xin các cao nhân chỉ giúp hàm phân ca ( 3 ca làm việc 24/7)

• ngngngoc88
• 16/1/26
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 19 Đọc 536 Thứ tư lúc 19:51 ptm0412 H Khi chọn in, thì khổ giấy, chọn in dọc hay ngang đã được chọn sẵn

• hoanglocphat
• Thứ tư lúc 13:42
• Định dạng, trình bày, in ấn bảng tính

Trả lời 1 Đọc 78 Thứ tư lúc 17:49 Maika8008 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

• ptm0412 40
• Phan Thế Hiệp 19
• dungpham01 17
• SA_DQ 14
• nguyendang95 12
• Gà Công Nghệ 11
• oiquetoi 10
• AnhThu-1976 9
• HeSanbi 9
• thanthanhan 8
• anhtuanle123 8
• DeTong 8
• Cúc Hr 7
• sangdennh 7
• DamMeVBAvaExcel 6
• HUONGHCKT 6
• Maika8008 6
• HieuCD 5
• chiendich 5
• Gà Con yêu VBA 5

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

• Phan Thế Hiệp 54
• ptm0412 53
• dungpham01 18
• HieuCD 16
• thanthanhan 12
• DeTong 8
• HUONGHCKT 7
• singfeng 7
• nguyendang95 7
• hoangtuaotrang_hp_vn 6
• Cúc Hr 6
• HeSanbi 6
• 2013myvietnam 5
• SA_DQ 5
• chiendich 4
• Maika8008 4
• LOGANWover 3
• le_vis 3
• AnhThu-1976 3
• huuthang_bd 3

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