[Xin Marco] Chuyển dữ liệu chuỗi ngày tháng dạng cột sang dữ liệu dạng bảng. (2 người xem)

[thidg0110]

Như tiêu đề mình đang vướng vấn đề như sau: Mình có một chuỗi số liệu được liệt kê dưới dạng cột theo ngày tháng, mình có nhu cầu chuyển duỗi dữ liệu đó sang dạng bảng cột hàng ngang là tháng cột hàng dọc là ngày.Mong muốn mình đã để trong file Excel đính kèm.
Mình đã search trên diễn đàn cũng như nhiều nguồn khác nhưng không tìm được như mong muốn.
Rất mong sự giúp đỡ của mọi người !!!
Chân thành cám ơn!

 

[SA_DQ]

Bạn chạy macro này trên file của bạn:

Option Explicit
Sub ChuyenDuLieu()
 Dim Rng As Range, Cls As Range
 Dim MyFormat As String
 Dim Hang As Long, Cot As Byte          ', Nam As Integer   '

 Set Rng = Range([b2], [b2].End(xlDown))
 MyFormat = Rng.NumberFormat
 For Each Cls In Rng
'   Nam = Year(Cls.Value)  '
    With Cls
        Hang = (Year(.Value) - 1979) * 41 - 36
        Cells(Hang, "E").Offset(Day(.Value), Month(.Value)).Value = Cls.Offset(, -1).Value
    End With
 Next Cls
End Sub

 

[thidg0110]

Thank bác!
Marco chạy rất ok. Chúc bác một ngày tốt làn!!!