Xin giúp đỡ tổng hợp dữ liệu (1 người xem)

[chungocoai]

Xin các cao thủ giúp đỡ tổng hợp dữ liệu

Tình hình e có file dulieu gửi đính kèm

mục đích của e là từ sheet TONGHOP các bác cho e xin cái box để làm thế nào e bấm 1 cái mà dữ liệu các sheet 1,2,3 nó tự động được đưa vào sheet tonghop với điều kiện là dữ liệu được lấy chung từ CIF và MMV của sheet 1

Xin cảm ơn các bác cao nhân trước.
(e dùng office 2010, dữ liệu này e đã cắt bớt, dữ liệu đầy đủ của các sheet rơi vào tầm 26.000 dòng).

Thank alot!

 

[SA_DQ]

Cái vụ này chắc các cao thủ sẽ chào thua thôi, . . . .

Lí do:
Bạn xem lại 2 cặp dòng (16, 17) & (19, 20) ở trang 'TONGHOP' sẽ tự rút ra kết luận.

Chúc buổi sáng tốt lành.

 

[chungocoai]

Coi như bỏ 2 cặp dòng 16,17 và 19,20 đi thì có cách nào để nhặt và tổng hợp dữ liệu trong excel không bác HYen17, e thấy có cách làm bằng ADO nhưng vụ ADO e không rành lắm, cái vụ dùng lệnh để copy từ 1,2,3,....nhiều sheet thành 1 sheet e có thể làm được nhưng để tham chiếu theo 1 tham số chung thì e chưa làm được, chính vì thế e muốn nhờ các cao nhân bớt chút thời gian nghiên cứu giúp e tí.

 

[nmhung49]

Coi như bỏ 2 cặp dòng 16,17 và 19,20 đi thì có cách nào để nhặt và tổng hợp dữ liệu trong excel không bác HYen17, e thấy có cách làm bằng ADO nhưng vụ ADO e không rành lắm, cái vụ dùng lệnh để copy từ 1,2,3,....nhiều sheet thành 1 sheet e có thể làm được nhưng để tham chiếu theo 1 tham số chung thì e chưa làm được, chính vì thế e muốn nhờ các cao nhân bớt chút thời gian nghiên cứu giúp e tí.

Dùng code này xem có đúng không

[GPECODE=vb]
Sub GPETH()
Dim sh As Worksheet
With Sheets("TONGHOP")
.Cells.Clear
For Each sh In Worksheets
If sh.Name <> "TONGHOP" Then
If sh.Name = "Sheet1" Then
sh.UsedRange.Copy .Range("XFD1").End(xlToLeft)
Else

sh.Range("C1", sh.Range("C1").SpecialCells(11)).Copy .Range("XFD1").End(xlToLeft).Offset(, 1)
End If
End If

Next
End With
End Sub


[/GPECODE]

 

[chungocoai]

cảm ơn bác đã quan tâm, nhưng nếu e xoá bớt vài dòng ở sheet1 và bấm TH thì dữ liệu chỉ mất của sheet1 còn 2 sheet kia vẫn còn nguyên bác ạ, e nhờ bác nghiên cứu giúp e là đối chiếu điều kiện ở sheet 1 để copy dữ liệu của sheet 2 và 3 sang.

cảm ơn bác

Dùng code này xem có đúng không

[GPECODE=vb]
Sub GPETH()
Dim sh As Worksheet
With Sheets("TONGHOP")
.Cells.Clear
For Each sh In Worksheets
If sh.Name <> "TONGHOP" Then
If sh.Name = "Sheet1" Then
sh.UsedRange.Copy .Range("XFD1").End(xlToLeft)
Else

sh.Range("C1", sh.Range("C1").SpecialCells(11)).Copy .Range("XFD1").End(xlToLeft).Offset(, 1)
End If
End If

Next
End With
End Sub


[/GPECODE]

 

[Ba Tê]

cảm ơn bác đã quan tâm, nhưng nếu e xoá bớt vài dòng ở sheet1 và bấm TH thì dữ liệu chỉ mất của sheet1 còn 2 sheet kia vẫn còn nguyên bác ạ, e nhờ bác nghiên cứu giúp e là đối chiếu điều kiện ở sheet 1 để copy dữ liệu của sheet 2 và 3 sang.

cảm ơn bác

Xem thử file này coi sao.