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

Chia sẻ bởi:hands

★★★★★

‹ Xin trợ giúp lọc giá trị trùng... Hàm tính tổng có tham chiếu theo... ›

Quảng cáo

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
3120

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.

www.giaiphapexcel.com/diendan/threads/gi%C3%BAp-e-chuy%E1%BB%83n-h%C3%A0ng-th%C3%A0nh-c%E1%BB%99t-trong-excel-h%C3%A0ng-bao-g%E1%BB%93m-c%E1%BA%A3-h%C3%A0ng-%C4%91%C3%A3-g%E1%BB%99p.163985/