Sheet tổng hợp dữ liệu (1 người xem)

[tiendung80]

Tôi có các sheet dữ liệu như sau:
1. sheet : Km1 500~Km3 400
2. sheet : Km3 400~Km4 620
..........
...............
n. sheet : Km6 500~9 900.

Trong các sheet này thì gồm các mục nhỏ.
Ví dụ sheet: Km1 500~Km3 400
A/ CULVERT ROUTE
I.TD Route E(Km1 500~Km2 234)
1.From E1' to E2'
2.From E2' to E1
3....
10.From E23 to E24
II.Route G
(Km2 234~Km2 645)
...............
.............................
Tôi muốn lập 1 sheet tổng hợp những Sheet trên (Xem file đính kèm). Mong các anh, chị giúp đỡ..!

 

[Quang_Hải]

Tôi có các sheet dữ liệu như sau:
1. sheet : Km1+500~Km3+400
2. sheet : Km3+400~Km4+620
..........
...............
n. sheet : Km6+500~9+900.

Tôi muốn lập 1 sheet tổng hợp những Sheet trên (Xem file đính kèm). Mong các anh, chị giúp đỡ..!

Làm thí cũng không biết trúng được bao nhiêu % nữa

Sub lay_dulieu()
Dim dk, sh, tim, cell
dk = ActiveCell.Value
For Each sh In Worksheets
  If sh.Name <> "tonghop" Then
    With sh
      For Each cell In sh.[b:b]
        If cell Like "*" & dk Then
          .Range(.Cells(cell.Row, 1), .Cells(cell.Row + 10, 9)).Copy [b3]
          End
        End If
      Next
    End With
  End If
Next
End Sub

 

[tiendung80]

Dạ cám ơn anh quanghai1969, cái này mình có thể dùng hàm được không anh??

 

[Quang_Hải]

Dạ cám ơn anh quanghai1969, cái này mình có thể dùng hàm được không anh??

Chắc không dùng hàm được đâu, nếu ai làm được chắc cũng gian nan lắm đó

 

[Ba Tê]

Làm thí cũng không biết trúng được bao nhiêu % nữa

Đúng là còn "một số %" chưa đúng.
Không phải Route nào cũng có 10 dòng dữ liệu, do đó phải lấy đủ cho mỗi Route có bi nhiêu dòng.