Code chuyển ngày tháng hàng dọc thành hàng ngang (1 người xem)

[coixaygio]

Chào các bác trên diễn đàn.
Em có một vấn đề cần giúp đỡ, Nhờ các bác viết giúp một đoạn code để chuyển ngày tháng từ hàng dọc thành hàng ngang với dữ liệu như trong file đính kèm.

Thanks!

 

[viehoai]

Chào các bác trên diễn đàn.
Em có một vấn đề cần giúp đỡ, Nhờ các bác viết giúp một đoạn code để chuyển ngày tháng từ hàng dọc thành hàng ngang với dữ liệu như trong file đính kèm.

Thanks!

Chẳng biết bạn để file ở đâu nữa

 

[coixaygio]

sao em đính kèm file không được nhỉ??

 

[Quang_Hải]

Chào các bác trên diễn đàn.
Em có một vấn đề cần giúp đỡ, Nhờ các bác viết giúp một đoạn code để chuyển ngày tháng từ hàng dọc thành hàng ngang với dữ liệu như trong file đính kèm.

Thanks!

Không có file nên đoán và làm thế này, khả năng chưa đúng yêu cầu là rất cao

Bạn copy đoạn code này cho vào sheet bạn cần, thay vùng C1 bằng tên ô nào bạn cần dán vào
Bạn nhấp đúp chuột tại ô đâu tiên của vùng dữ liệu cần copy

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Target, Cells(65536, Target.Column).End(3)).Copy
[C1].PasteSpecial 1, Transpose:=True
Application.CutCopyMode=False
End Sub