Tổng hợp dữ liệu từ nhiều sheet về 1 sheet tổng hợp (1 người xem)

[phungtinh]

Mọi người làm giúp mình file đính kèm tổng hợp dữ liệu từ nhiều sheet về 1 sheet. Sheet tổng hợp chứa các nội dụng giống như sheet chi tiết nhưng mà là tổng hợp của các sheet chi tiết.

 

[nghiaphuc]

Mọi người làm giúp mình file đính kèm tổng hợp dữ liệu từ nhiều sheet về 1 sheet. Sheet tổng hợp chứa các nội dụng giống như sheet chi tiết nhưng mà là tổng hợp của các sheet chi tiết.

Cái này dùng code cho nhanh chứ công thức thì hơi oải:
[GPECODE=vb]Sub TongHop()
Dim Tmp, Arr(), i As Long, j As Long, k As Long, l As Long
Sheets("Chung").Move Before:=Sheets(1)
ReDim Arr(1 To 10000, 1 To 5)
For i = 2 To Sheets.Count
Tmp = Sheets(i).[A2:E2000]
For j = 1 To UBound(Tmp)
If IsEmpty(Tmp(j, 2)) Then GoTo NextSheet
k = k + 1: Arr(k, 1) = k
For l = 2 To 5
Arr(k, l) = Tmp(j, l)
Next
Next
NextSheet:
Next
With Sheets(1)
.[A2:E10000].Clear
With .[A2].Resize(k, 5)
.NumberFormat = "@"
.Value = Arr
.Borders.LineStyle = 1
.Font.Name = ".VnTime"
End With
End With
End Sub[/GPECODE]
Trong file đính kèm, bạn nhấn vào nút Tổng hợp nhé.

 

[phungtinh]

Không thể mở đc để xem à. Mọi người xem có thể sử dụng công thức để xử lý không ak

 

[nghiaphuc]

Không thể mở đc để xem à. Mọi người xem có thể sử dụng công thức để xử lý không ak

Tại sao lại không mở được? Máy bạn không cài Winrar hay một phần mềm nén file nào à?

 

[Ba Tê]

Không thể mở đc để xem à. Mọi người xem có thể sử dụng công thức để xử lý không ak

Chắc là bạn không Enable Macros.
Excel 2003, Bạn làm như vầy:
1/ Vào Excel, Tools - Macro - Security... Trong Security Level bạn chọn mức Medium - OK
2/ Thoát khỏi Excel.
3/ Vào lại Excel, Open file trên, khi gặp hộp thông báo, bạn chọn Enable Macros
Giờ thì file bạn đã sử dụng được các Macro có trong file, bạn bấm nút mà bạn nghiaphuc làm cho bạn thử xem