Gộp dữ liệu nhiều sheet lại thành 1 (1 người xem)

[pttungdlk]

mình muốn gộp các DS từ 9R-9s vô Sheet Tổng thì làm như thế nào.. mọi người giúp với

 

[nghiaphuc]

mình muốn gộp các DS từ 9R-9s vô Sheet Tổng thì làm như thế nào.. mọi người giúp với

Code sau đây sẽ gộp tất cả dữ liệu từ các sheet (trừ sheet ẩn) vào sheet Tổng:
[GPECODE=vb]Sub TongHop()
Dim i As Long, j As Long, k As Long, l As Long
Dim Arr(), Tmp

Sheet1.Move Before:=Sheets(1)
ReDim Arr(1 To 10000, 1 To 8)
For i = 2 To Sheets.Count
Tmp = Sheets(i).[A2:H1000].Value
For j = 1 To UBound(Tmp)
If IsEmpty(Tmp(j, 2)) Then Exit For
k = k + 1
For l = 1 To 8
Arr(k, l) = Tmp(j, l)
Next
Next
Next
With Sheet1
.Cells.Clear
.[A1:H1].Value = Sheet3.[A1:H1].Value
.[A2:H2].Resize(k).Value = Arr
End With
End Sub[/GPECODE]