- Tham gia
- 4/11/07
- Bài viết
- 14,471
- Được thích
- 37,138
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Code này mới tự động chỉnh dòng, bất kể các khối con có thể khác nhau về kích thước dòng, bao gồm cả khối 1, bao gồm cả các khoảng hở nhiều hay ít (ít nhất 1)
PHP:
Sub Rows2Columns()
Application.ScreenUpdating = False
Dim StartRw As Long, FinishRw As Long, NextCol As Long, TotalRw As Long
NextCol = 11: TotalRw = 23
StartRw = 8
FinishRw = Cells(StartRw , 1).End(xlDown).Row
Do
StartRw = Cells(FinishRw, 1).End(xlDown).Row
FinishRw = Cells(StartRw, 1).End(xlDown).Row
If FinishRw > 100000 Then Exit Do
Range(Cells(StartRw, 1), Cells(FinishRw, 10)).Cut Cells(8, NextCol)
Cells(FinishRw + 1, 1).Resize(1, 10).Cut Cells(TotalRw, NextCol)
NextCol = NextCol + 10
Loop
Application.ScreenUpdating = True
End Sub
Lần chỉnh sửa cuối:
