Transpose_Range.bas

Sub Transpose_Range() 
  Dim i As Long
  Dim SoDong As Integer 'Độ rộng của mỗi nhóm = số dòng
    
  SoDong = 4
  With [A1:D17]   'Vùng cần transpose
    For i = 2 To [A65536].End(xlUp).Row Step SoDong   'Thực hiện việc copy theo từng nhóm dựa vào số dòng
      Union(.Rows(i), .Rows(i).Resize(SoDong)).Copy 'Vùng cần copy từ dòng i tới dòng cuối trong nhóm đó
      Sheet1.Range("A" & Rows.Count).End(xlUp)(1).PasteSpecial Transpose:=True  'Nơi dán kết quả transpose
    Next
  End With
End Sub