Giúp e chuyển hàng thành cột trong excel ( Hàng bao gồm cả hàng đã gộp) (1 người xem)

[thanh_trung_hp_03]

Em có bảng dữ liệu câu hỏi trắc nghiệm như file mong muốn chuyển đổi dạng hàng thành cột, mong các bác chỉ giáo.
Các hàng còn đã megre nên e k biết sử dụng hàm như nào

 

[ndqitismeVN]

Chuyển như kq khoanh trong vùng thì tui biết chứ như kq mẫu của chủ thớt thì nó là cái gì rồi chứ chuyển hàng thành cột nó ko thể như thế đc :'_)))

 

[dangductuong2125]

Em có bảng dữ liệu câu hỏi trắc nghiệm như file mong muốn chuyển đổi dạng hàng thành cột, mong các bác chỉ giáo.
Các hàng còn đã megre nên e k biết sử dụng hàm như nào
View attachment 286291

Dùng Power query nhanh gọn.

 

[thanh_trung_hp_03]

Bác ơi đây dữ liệu của e ở nhiều hàng và còn bị merge rồi ạ. Hix. E ko làm được

 

[HUONGHCKT]

Em có bảng dữ liệu câu hỏi trắc nghiệm như file mong muốn chuyển đổi dạng hàng thành cột, mong các bác chỉ giáo.
Các hàng còn đã megre nên e k biết sử dụng hàm như nào
View attachment 286291

Tôi không biết làm bằng công thức nhưng hỏi chủ thớt là "Làm bằng VBA được không?"
Nếu được. trong khi chờ đợi các giải pháp khác có thể tham khảo code sau:

Option Explicit

Sub ABC()
Dim i&, j&, Lr&, R&, C&, t&, k&, d&, iRow&
Dim Rng As Range, KQ()
With Sheet1
Set Rng = .Range("A11").CurrentRegion
Lr = .Cells(Rows.Count, 2).End(xlUp).Row
R = Rng.Rows.Count: C = Rng.Columns.Count
ReDim KQ(1 To R * C, 1 To 1)
For i = 11 To Lr
    If .Cells(i, 1) <> Empty Then
        If .Cells(i, 1).End(xlDown).Row < Lr Then d = .Cells(i, 1).End(xlDown).Row - 1 Else d = Lr
        t = k
            t = t + 1: KQ(t, 1) = .Cells(i, 1): k = t
         For j = 2 To C
                k = k + 1
            For iRow = i To d
                If KQ(k, 1) = Empty Then
                    KQ(k, 1) = .Cells(iRow, j)
                Else
                    KQ(k, 1) = KQ(k, 1) & "," & .Cells(iRow, j)
                End If
            Next iRow
        Next j
    End If
Next i
 If k Then
    .Range("E20").Resize(1000, 1).ClearContents
    .Range("E20").Resize(k, 1) = KQ
End If
End With

MsgBox " Done"
End Sub

nhấn nút "Run Code" để xem kết quả tại E20.
Tôi chưa test kỹ (do ít dòng dữ liệu nên không lường hết các trường họp khác), do vậy code này có thể chỉ đúng cho dữ liệu bài này.