Chuyễn hàng sang cột (1 người xem)

[chokuni]

Mọi người ơi mình muốn chuyễn hàng sang cột như sheet kết quả nhưng mà mình làm tay nên lâu quá,có cách nào nhanh hơn được không tại mình bỏ excel 1 thời gian khá lâu nên còn kém.

 

[ndu96081631]

Mọi người ơi mình muốn chuyễn hàng sang cột như sheet kết quả nhưng mà mình làm tay nên lâu quá,có cách nào nhanh hơn được không tại mình bỏ excel 1 thời gian khá lâu nên còn kém.

Nếu bạn dùng Excel 2013 trở lên thì Power Query chính là công cụ mạnh để làm điều này. Chỉ vài thao tác, có ngay kết quả mà không cần dùng đến bất cứ công thức hay code nào

 

[anhtuan2012]

Nếu bạn dùng Excel 2013 trở lên thì Power Query chính là công cụ mạnh để làm điều này. Chỉ vài thao tác, có ngay kết quả mà không cần dùng đến bất cứ công thức hay code nào

Cao thủ giúp làm CT xem!

 

[ndu96081631]

Cao thủ giúp làm CT xem!

Công thức chắc là được nhưng mà.. ngán chết
Với lại công thức chi trong khi công cụ sẵn làm được điều này?

 

[ndu96081631]

Chợt nhớ lại thì ra Excel 2003 cũng UnPivot được như thường
Xưa mình đã từng làm mà lại quên:
http://www.giaiphapexcel.com/forum/showthread.php?107953-Tạo-danh-sách-từ-bảng-dữ-liệu

 

[quanluu]

Mọi người ơi mình muốn chuyễn hàng sang cột như sheet kết quả nhưng mà mình làm tay nên lâu quá,có cách nào nhanh hơn được không tại mình bỏ excel 1 thời gian khá lâu nên còn kém.

Góp thêm cách làm bằng code cho bạn

Sub tranpose()
    Dim query As String, i As Integer, cn As Object
    With Sheets(1)
        For i = 2 To 16
            query = query & "select f1,'" & .Cells(1, i) & "', f" & i & " from [Sheet1$A2:P" & .Range("A65000").End(3).Row & "] where f" & i & " is not null union all "
        Next
    End With
    query = Left(query, Len(query) - 11)
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
    Sheets("Ket qua").Range("E2").CopyFromRecordset cn.Execute(query)
    cn.Close: Set cn = Nothing
End Sub

 

[chokuni]

Cám ơn mọi người đã hướng dẫn nhiệt tình

 

[chokuni]

cám ơn bạn đã hướng dẫn