Xử lý số liệu các sheets

[nhqhec2]

Mình muốn copy số liệu 2 hàng ở sheet1 paste Transpose qua sheet2. Nhờ các anh em viết cho mình đoạn code xử lý. Cám ơn nhiều
File dư liệu đính kèm

 

[Hoàng Tuấn 868]

Mình muốn

Dấu ở tiêu đề trốn đâu hết rồi bạn ơi.

 

[OverAC]

Đã giúp đổi tiều đề thành có dấu bạn chú ý nhé.

 

[SA_DQ]

Sub CopyTranspose()
 Dim Rws As Long, Col As Integer, J As Long, W As Long, Z As Integer
 
 With Sheets("So Lieu")
    Rws = .[B1].CurrentRegion.Rows.Count
    Col = 1 + .[B1].CurrentRegion.Columns.Count
    ReDim Arr(1 To Rws * Col, 1 To 2)
    Sheets("Ket Qua").[D1].Resize(Rws * Col, 2).Value = Arr()
    For J = 1 To Rws Step 2
        For Z = 1 To Col
            If .Cells(J, Z).Value <> "" Then
                W = W + 1:                          Arr(W, 1) = .Cells(J, Z).Value
                Arr(W, 2) = .Cells(J + 1, Z).Value
            Else
                W = W + 1:                          Arr(W, 1) = "END"
                GoTo GPE
            End If
        Next Z
GPE:    Next J
 End With
 If W Then
    Sheets("Ket Qua").[D1].Resize(W, 2).Value = Arr()
 End If
End Sub

Chủ bài đăng thử con này xem sao

 

[OverAC]

Dùng hàm INDEX với cách 1 chưa hoàn thiện
Sheet 2 dùng công thức của office 365 xử lý được hoàn thiện