Xin giúp code VBA copy dữ liệu từ cột sang hàng theo ngày

[hoang0569]

Em có File đính kèm như sau: Số liệu theo cột và đều cùng ngày, mong anh chị trên diễn đàn giúp code copy cột dữ liệu đó sang bảng khác đúng ngày,theo hàng. Xin cảm ơn.

 

[snow25]

Em có File đính kèm như sau: Số liệu theo cột và đều cùng ngày, mong anh chị trên diễn đàn giúp code copy cột dữ liệu đó sang bảng khác đúng ngày,theo hàng. Xin cảm ơn.

Bạn chạy code này xem nhé.

Sub chuyen()
    Dim arr, arr1, dk As Long, i As Long
    With Sheet1
         arr = .Range("X8:X27").Value
         dk = Day(.Range("W8").Value)
         For i = 5 To 35
             If .Cells(i, 1).Value = dk Then
                .Cells(i, 2).Resize(1, UBound(arr)).Value = WorksheetFunction.Transpose(arr)
                Exit For
             End If
         Next i
    End With
End Sub

 

[hoang0569]

Cảm ơn Anh Snow25 nhiều.