Thống kê dữ liệu từ ngang sang dọc

[hoaibtt]

Các A/C giúp em với ạ. Em có bảng dữ liệu từ đang kê theo chiều ngang (sheet Ngang trong file đính kèm). Giờ em muốn thống kê theo chiều dọc (sheet Doc). Em cảm ơn nhiều ạ

 

[Ba Tê]

Các A/C giúp em với ạ. Em có bảng dữ liệu từ đang kê theo chiều ngang (sheet Ngang trong file đính kèm). Giờ em muốn thống kê theo chiều dọc (sheet Doc). Em cảm ơn nhiều ạ

Code đây:
[GPECODE=vb]Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, K As Long
With Sheets("Ngang")
sArr = .Range(.[A5], .[A65536].End(xlUp)).Resize(, 19).Value2
End With
ReDim dArr(1 To UBound(sArr, 1) * 15, 1 To 2)
For I = 1 To UBound(sArr, 1)
For J = 5 To 19
If sArr(I, J) <> Empty Then
K = K + 1
dArr(K, 1) = sArr(I, 1): dArr(K, 2) = "'" & sArr(I, J)
Else
Exit For
End If
Next J
Next I
With Sheets("Doc")
.Range("A3:B65536").ClearContents
.[A3].Resize(K, 2) = dArr
End With
End Sub[/GPECODE]

 

[hoaibtt]

dạ, được r ạ. E cảm ơn b nhiều ạ. Nếu sau này em thêm nhiều khách hàng vào nữa thì e sẽ sửa ở đâu ạ?