Chuyển dữ liệu từ cột thành trong một dòng (1 người xem)

[tranduyenit]

Chào tất cả các Anh/Chị/Em!
Nhờ mọi người giúp mình bài excel như hình sau với:



Xin cảm ơn các Bạn!

 

[Ba Tê]

Chào tất cả các Anh/Chị/Em!
Nhờ mọi người giúp mình bài excel như hình sau với:

View attachment 174353

Xin cảm ơn các Bạn!

Dữ liệu của bạn đã sắp xếp theo nhóm, có thể chạy thử code này:

Public Sub GPE()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Tem As String
sArr = Range("A4", Range("B4").End(xlDown)).Value
R = UBound(sArr): ReDim dArr(1 To R, 1 To 2)
For I = 1 To R
    If sArr(I, 1) <> Tem Then
        Tem = sArr(I, 1): K = K + 1
        dArr(K, 1) = Tem:: dArr(K, 2) = sArr(I, 2)
    Else
        dArr(K, 2) = dArr(K, 2) & ", " & sArr(I, 2)
    End If
Next I
Range("G4:H4").Resize(K) = dArr
End Sub

 

[tranduyenit]

Cảm ơn hpkhuong và Ba Tê nhiều nhé. Mình đã làm được rồi.