Ghép nối tiếp nhiều bảng trong excel. (1 người xem)

  • Thread starter Thread starter cuonggps
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

cuonggps

Thành viên mới
Tham gia
9/12/11
Bài viết
33
Được thích
6
Chào các anh chị em! Mình cần ghép nối nhiều bảng nối tiếp với nhau.
Mong anh chị giúp đỡ. Xin chân thành cảm ơn :)
 

File đính kèm

Bạn dùng file này tự động chỉnh dòng, không phải chọn nữa.
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:

Bài viết mới nhất

Back
Top Bottom