Nhờ anh chị gộp hộ em dữ liệu nhiềt sheet vào 1sheet tổng hợp (1 người xem)

[synq88]

hix, em có khoảng 20 worksheet
mỗi workbooks có 80 sheet gộp vào 1 sheet/1 worksheets.

nếu làm thủ công ko bít bao giờ xong
mong anh chị giúp đỡ
e đang cần gấp ạ

Làm giúp em theo file sửa lại
Hix, cứu em
Em làm xong rồi. Rất cảm ơn sự giúp đỡ của anh sealand và anh domfootwear.

 

[Hai Lúa Miền Tây]

Cho mình hỏi là 1 sheet của bạn có bao nhiêu dòng vậy bạn?
Cấu trúc của các sheet có giống nhau không?

 

[synq88]

em chèn sheet mẫu lên anh xử ký giúp e nhé
tất cả các cột và dòng giống nhau ạ chỉ có dữ liệu là # thui ạ
em đang loay hoay ko bít xử lý thế nào(

Cho mình hỏi là 1 sheet của bạn có bao nhiêu dòng vậy bạn?
Cấu trúc của các sheet có giống nhau không?

em đã tải lại file
anh xem giúp em ạ
cám ơn anh
hoặc anh cho em địa chỉ mail được ko ạ

huhuhu có ai ko, cứu em với(

 

[sealand]

Không hướng dẫn người ta làm thế nào mà ngồi đó hu hu.
Mình thấy mỗi sheet đều có 2 cột và chỉ cột 2 là có dữ liệu. Vậy có phải chép dồn nối tất cả vào 1 sheet không. Trong Exc 2003 chỉ có khoảng 65000 dòng nếu quá có chấp nhận sang cột mới không.

 

[synq88]

Không hướng dẫn người ta làm thế nào mà ngồi đó hu hu.
Mình thấy mỗi sheet đều có 2 cột và chỉ cột 2 là có dữ liệu. Vậy có phải chép dồn nối tất cả vào 1 sheet không. Trong Exc 2003 chỉ có khoảng 65000 dòng nếu quá có chấp nhận sang cột mới không.

mình mún chuyển tất cả dữ liệu sang cột ngang thành 80 Table theo cột. ko để hàng dọc .
1 hàng dọc là 1 table có dữ liệu
cứu tớ với

 

[Hai Lúa Miền Tây]

mình mún chuyển tất cả dữ liệu sang cột ngang thành 80 Table theo cột. ko để hàng dọc .
1 hàng dọc là 1 table có dữ liệu
cứu tớ với

Theo chiều ngang Excel 2003 chỉ có tối đa 256 cột
256/2=128 bảng
Như vậy chỉ lưu được
128/80=1.6 Workbook mà thôi.

 

[synq88]

em mún làm như thế này ạ
1 sheet tổng hợp có 80 côt, 1 cột là 1 sheet
Như thế này ạ =>View attachment 021-040 1 sua lai.rar
giúp em với

có ai ko? giúp em với . huhuhuhuhu

copy tay hết cái đống này, chắc nghỉ làm qua Đông Khê an dưỡng mất

 

[sealand]

Mình đoán nên làm thế này có gì hiệu chỉnh lại.
Chép dồn toàn bộ vào 2 côt A và B của sheet tổng hợp.

1/Viết 1 hàm liệt kê tất cả các file trong Folder

Function GetAlName(ByVal Dd As String)
   Dim fso, f, fc, fl, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(Dd)
   Set fc = f.Files
   For Each fl In fc
   If fl.Type = "Microsoft Excel Worksheet" Then
   If fl.Name <> ThisWorkbook.Name Then
   s = s & IIf(Len(s) > 0, ";", "") & fl.Name
   End If
   End If
   Next
   GetAlName = s
End Function

2/Căn cứ danh sách ta chép lần lượt

Sub Rectangle1_Click()
Dim Wb As Workbook, Sh As Worksheet, Rg As Range
Dim FName, i, j
Set Rg = Sheet1.[A2]
Application.ScreenUpdating = False
Sheet1.Rows("2:65536").ClearContents
FName = Split(GetAlName(ThisWorkbook.Path), ";")
For i = 0 To UBound(FName)
Set Wb = Workbooks.Open(ThisWorkbook.Path & "\" & FName(i))
For j = 1 To Wb.Sheets.Count
Set Sh = Wb.Sheets(j)
Sh.Range(Sh.[A2], Sh.[B65536].End(3)).Copy Rg
Set Rg = Sheet1.[B65536].End(3).Offset(1, -1)
Next j
Wb.Close
Next i
Set Rg = Nothing
Set Sh = Nothing
Set Wb = Nothing
End Sub

 

[sealand]

Trời ơi, bạn không giải thích rõ ràng?
Có phải: Cứ mỗi file thêm cho 1 sheet THop. Chép tất cả các Sheet trong file vào sheet Thop lần lượt theo từng cột, lấy tên cột là tên Sheet.
Nếu đúng vậy thì dễ hơn. Bạn đợi nha (Có việc chút)

 

[synq88]

Trời ơi, bạn không giải thích rõ ràng?
Có phải: Cứ mỗi file thêm cho 1 sheet THop. Chép tất cả các Sheet trong file vào sheet Thop lần lượt theo từng cột, lấy tên cột là tên Sheet.
Nếu đúng vậy thì dễ hơn. Bạn đợi nha (Có việc chút)

đúng rùi bạn ạ. Như mẫu mình gửi bên trên đó
Hix, mình ngồi từ nãy giờ mới xong 1 workbook
Cám ơn b nhìu nha
Nếu có điều kiện sẽ hậu tạ b

 

[sealand]

Bạn cứ chép dồn các file vào trong thư mục, lưu ý khi xoá giữ lại file TH vì code nằm trong đó.
Chạy chậm hợn vì phải lưu file