Ghép các cột trong các bảng về thành 1 cột?

[whitelight]

Mọi người có cách nào ghép cho nhanh không chỉ mình với nhé.

 

[concogia]

Mọi người có cách nào ghép cho nhanh không chỉ mình với nhé.

Chạy thử code này xem sao

Public Sub ghep()
    Dim Vung As Range, I As Integer, K As Integer
    Set Vung = [a6:a36]
        For I = 2 To 13
            K = Application.WorksheetFunction.CountA(Vung.Offset(0, I - 1)) + 5
            Range(Cells(6, I), Cells(K, I)).Copy [p10000].End(xlUp)(2)
        Next
End Sub

Thân

 

[whitelight]

bác nào có cách khác mà không cần dùng code ko vậy,vì mình fai ghép 1 chuỗi các cột trong các bảng vào 1 cột

 

[ptm0412]

P3 =INDEX($B$6:$M$36,DAY(O3),MONTH(O3))

Fill down xuống hết năm.