Tổng hợp dữ liệu theo hàng (1 người xem)

[bugatino]

Chào các bạn GPE.
Mình có 1 bảng tính excel như sau:



Số lượng học viên của lớp được điền theo dòng. Bây giờ mình muốn chuyển nó sang dạng cột như bảng dưới đây:



Có cách/thủ thuật nào thực hiện việc này 1 cách nhanh chóng không, dùng VBA cũng được không sao cả.
Mình đã thử dùng Pivot Table nhưng kết quả không như mong đợi.
Mong nhận được sự giúp đỡ của các bạn.
Cám ơn các bạn nhiều.

 

[Ba Tê]

Chào các bạn GPE.
Mình có 1 bảng tính excel như sau:

View attachment 86865

Số lượng học viên của lớp được điền theo dòng. Bây giờ mình muốn chuyển nó sang dạng cột như bảng dưới đây:

View attachment 86866

Có cách/thủ thuật nào thực hiện việc này 1 cách nhanh chóng không, dùng VBA cũng được không sao cả.
Mình đã thử dùng Pivot Table nhưng kết quả không như mong đợi.
Mong nhận được sự giúp đỡ của các bạn.
Cám ơn các bạn nhiều.

Tên Sheet không nên có dấu tiếng Việt, làm khó nhau khi viết Code, tạm lấy tên mặc định của anh Bill.
Xem thử Code này coi có xài được không?

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Cot As Long, Dong As Long
    Rng = Sheet1.Range(Sheet1.[A4], Sheet1.[A65000].End(xlUp)).Resize(, Sheet1.[IV3].End(xlToLeft).Column).Value
ReDim Arr(1 To UBound(Rng, 1) * ((UBound(Rng, 2) + 1) / 2), 1 To 3)
    For I = 1 To UBound(Rng, 1)
        For J = 2 To UBound(Rng, 2) - 1 Step 2
            If Rng(I, J) <> "" Then
                K = K + 1: Arr(K, 1) = Rng(I, 1)
                Arr(K, 2) = Rng(I, J): Arr(K, 3) = Rng(I, J + 1)
            End If
        Next J
    Next I
Sheet2.[A2].Resize(K, 3).Value = Arr
End Sub

 

[bugatino]

Cám ơn bác Ba Tê. Macro rất chuẩn ah.