Nhờ anh/chị giúp chuyển dữ liệu từ cột sang hàng

[HUNGNGUYENCONG]

Nhờ mọi người giúp em công thức chuyển sang hàng với ạ,Giống như trong sheet ví dụ ,em có gửi theo file đính kèm.

 

[Ba Tê]

Nhờ mọi người giúp em công thức chuyển sang hàng với ạ,Giống như trong sheet ví dụ ,em có gửi theo file đính kèm.

Tôi chỉ giúp được bằng VBA thôi.

Option Explicit

Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, CoL As Long, Txt As String
    sArr = Sheet1.Range("A2", Sheet1.Range("A2").End(xlDown)).Resize(, 2).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 20)
For I = 1 To R
    If sArr(I, 2) <> Txt Then
        K = K + 1: J = 1
        Txt = sArr(I, 2)
        dArr(K, J) = Txt
    End If
    J = J + 1
    dArr(K, J) = sArr(I, 1)
    If J > CoL Then CoL = J
Next I
    Sheet2.Range("A2").Resize(K, CoL) = dArr
End Sub

 

[Hoàng Tuấn 868]

Nhờ mọi người giúp em công thức chuyển sang hàng với ạ,Giống như trong sheet ví dụ ,em có gửi theo file đính kèm.

Bạn xem thử.

 

[HUNGNGUYENCONG]

Dạ,em cảm ơn mọi người ạ .

 

[tinvqt]

Dạ,em cảm ơn mọi người ạ .

Nếu bạn dùng office 365 thì mình sử dụng công thức đơn giản: =TRANSPOSE(FILTER('DỮ LIỆU BAN ĐẦU'!$A:$A,'DỮ LIỆU BAN ĐẦU'!$B:$B=A2))