Giúp chuyển dòng thành cột trong Excel (1 người xem)

[huyhoang_mmyeht]

Tình hình là mình muốn chuyển dòng thành cột trong excel nhưng vì nhiều dữ liệu quá nếu làm bằng tay thì mất thời gian quá nên lên diễn đàn nhờ những người có kiến thức uyên thâm giúp mình với!

cụ thể là:
trong file của mình có 1 cột PO và cột số lượng của từng hệ Size bây giờ mình muốn chuyển toàn bộ số lượng của từng hệ Size vào một cột số lượng duy nhất còn cột PO và hệ Size cũng chạy dọc xuống theo cột số lượng.

cụ thể mình có minh hoạ trong file đính kèm, rất mong được mọi người giúp đở!

trân thành cảm ơn các bạn!

 

[dhn46]

Bạn xem file đính kèm

 

[huyhoang_mmyeht]

Bạn ơi mình muốn lấy cả những Size có giá trin bằng không hoặc ="" thì làm sao?

 

[dhn46]

Bạn ơi mình muốn lấy cả những Size có giá trin bằng không hoặc ="" thì làm sao?

Nếu bạn muốn vậy thì bạn hãy xoá 2 dòng màu đỏ trong Code nhé

Sub TransposePo()
    Dim Arr, sArr, i As Long, j As Long, k As Long
    With Sheet1
        Arr = .Range("A2", .[A3].End(xlDown)).Resize(, .[B2].End(xlToRight).Column)
    End With
    ReDim sArr(1 To UBound(Arr, 1) * UBound(Arr, 2), 1 To 3)
    For i = 2 To UBound(Arr, 1)
        For j = 2 To UBound(Arr, 2)
[COLOR=#ff0000]            If Val(Arr(i, j)) > 0 Then[/COLOR]
                k = k + 1
                sArr(k, 1) = Arr(i, 1)
                sArr(k, 2) = Arr(1, j)
                sArr(k, 3) = Arr(i, j)
[COLOR=#ff0000]            End If[/COLOR]
        Next
    Next
    With Sheet2
        If .[A2] <> "" Then .[A2].Resize(.[A2].End(xlDown).Row).EntireRow.Delete
        .[A2].Resize(k, 3) = sArr
    End With
End Sub

 

[huyhoang_mmyeht]

Cảm ơn bạn nhiều! bạn giỏi quá