Tom.lê
Yêu THVBA
Chào tất cả các bác.
Em có đoạn Code tổng hợp dữ liệu của sheet.
Nhưng nó chỉ tổng hợp đc 1 sheet 04 thôi. Giờ em muốn nó tổng hợp tất cả các sheet còn lại vào sheet Data . mong các bác giúp đỡ ạ.
Em có đoạn Code tổng hợp dữ liệu của sheet.
Nhưng nó chỉ tổng hợp đc 1 sheet 04 thôi. Giờ em muốn nó tổng hợp tất cả các sheet còn lại vào sheet Data . mong các bác giúp đỡ ạ.
Mã:
Option Explicit
Public Sub s_Gpe()
Application.ScreenUpdating = False
Dim sArr(), dArr(), C As Long, I As Long, J As Long, R As Long, CoL As Long
With Sheets("04")
CoL = .Range("XFD2").End(xlToLeft).Column
sArr = .Range("E2", .Range("E2").End(xlDown)).Resize(, CoL).Value2
R = UBound(sArr)
End With
With Sheets("Data")
For J = 1 To CoL
If sArr(1, J) <> Empty Then
C = sArr(1, J)
ReDim dArr(1 To R, 1 To 1)
For I = 2 To R
dArr(I - 1, 1) = sArr(I, J)
Next I
End If
.Cells(3, C).Resize(R) = dArr
Next J
End With
End Sub