Nếu chịu dùng VBA thì tặng bạn Code này xài đỡ:
Public Sub GPEXI()
Dim sArr(), dArr1(), dArr2(), dArr3(), I As Long, J As Long, K As Long
With Sheet1
sArr = .Range(.[L5], .[L5].End(xlDown)).Offset(, -8).Resize(, 45).Value2
End With
ReDim dArr1(1 To UBound(sArr, 1) / 5, 1 To 34)
ReDim dArr2(1...