Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.