Help cách tổng hợp dữ liệu vào một sheet

[huuthang_bd]

Nhờ các bác thông thái giúp đỡ ạ. Em có 9 file như thế này. Format giống nhau. Nhờ các bác giúp ghép lại thành 1 sheet thôi được không ạ. Cám ơn các bác rất nhiều.View attachment 64472

Bạn vào Topic này tải file ở bài #1 về dùng

 

[xongdzohang2013]

Đây là code làm theo ý của dukhach:
-Các file cùng nằm trong 1 thư mục.
-Dữ liệu đều nằm trên sheet1 của các Workbooks.
-Dữ liệu tổng hợp vào sheet sum của file sum.xls.

Cách của anh rất hay (đúng thứ em đang cần)
Nhưng nếu 1 file dư liệu nào đó có dòng trống thì file tổng hợp sẽ k lấy được những dòng phía sau dòng trống đó.Anh chỉnh code lại giúp em được không?
Thanks!

 

[be_09]

Nhờ các bác thông thái giúp đỡ ạ. Em có 9 file như thế này. Format giống nhau. Nhờ các bác giúp ghép lại thành 1 sheet thôi được không ạ. Cám ơn các bác rất nhiều.View attachment 64472

Bạn tham khảo code trong File ở bài 23 của Topic sau.

http://www.giaiphapexcel.com/forum/...file-excel-vào-1-file-không-cần-mở-file/page3

Hoặc sử dụng File trên và sửa lại tiêu đề cột cho giống File của bạn.

Lưu ý:

Nếu sửa lại tiêu đề cột thì phải sửa tên tiêu đề trong code của nút Tổng hợp (Module1).

 

[minhduc0912]

Sub TextBox1_Click()
Dim Sh As Worksheet
Sheets("Sum").Range("A1").CurrentRegion.Offset(1).Clear
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name "Sum" Then
With Sh.Range("A1").CurrentRegion.Offset(1)
Sheets("Sum").[A65536].End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End If
Next Sh
End Sub

Với đoạn code trên để gộp nhiều Sheet vào Sheet Sum nhưng không giữ được định dạng của những sheet kia, vậy muốn giữ nguyên định dạng thì làm thế nào? Cảm ơn!

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

 

[minhduc0912]

Không bác nào giúp được à

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

 

[tutrinh010587]

[h=2]Tổng hợp các sheet của file excel qua mạng nội bộ[/h]em muốn tổng hợp các sheet của nhieu excel (sheet1 của worksheet1, sheet1 của worksheet2,...) qua mạng nội bộ hàng tháng, sau đó em sẽ tổng hợp lại thành 01 sheetsum từ nhiều sheet (sheet1, sheet2,...) đã tổng hợp)
cụ thể: mỗi bộ phận có 1 file excel gồm nhiều tháng (mỗi tháng là một sheet)
hàng tháng em sẽ tổng hợp tất các các sheet của tháng đó ở tất cả các bộ phận vào 01 file chung(file này gồm 01 sheet tổng hợp và sheet1 của tất cả các bộ phận) chỉ bằng 01 click vào nút tổng hợp.
đồng thời không cho xoá, chỉnh sửa sau khi em đã tổng hợp. ví dụ đến 5 giờ chiều ngày cuối tháng em sẽ tổng hợp, và sẽ khoa lại sau khi tổng hợp, khoa nào muốn chỉnh sửa thì liên hệ em mở ra cho chỉnh sửa.
anh chị giúp dùm em, em cảm ơn nhiều!!!
ví dụ:

 

[trongmuaanhvancho]

Nếu không copy, paste không biết có nhanh hơn không ta?

Option Explicit
Sub Tong_hop()
  Dim Sh As Worksheet
  Sheets("Sum").Range("A1").CurrentRegion.Offset(1).Clear
  For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name <> "Sum" Then
      With Sh.Range("A1").CurrentRegion.Offset(1)
       Sheets("Sum").[A65536].End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value
      End With
    End If
  Next Sh
End Sub

Nhờ Bác chỉnh giúp code ở file này em muốn chỉ định chỉ lấy dữ liệu của 2 sheet được chỉ tên (Ví dụ: chỉ lấy dữ liệu của sheet 1 và sheet2). Và nếu dữ liệu ở sheet 1 và sheet 2 giống nhau thì khi lấy sang sheet "Sum" chỉ lấy 1 dòng (Căn cứ vào 1 cột nào đó được chỉ định để so sánh dữ liệu giống nhau giữa sheet 1 hoặc 2)