Cho em xin cách chuyển dữ liệu dạng cột sang hàng ngang !!!

[dvh.hy.9902]

Em mới làm về excell nen chẳng biết với HPP Code:
PHP Code:
Sub doc_ngang()
Dim dl, kq1, i, j, k, kq2
dl = [a1:d5].Value
ReDim kq1(1 To UBound(dl) * UBound(dl, 2), 1 To 1)
ReDim kq2(1 To 1, 1 To UBound(dl) * UBound(dl, 2))
For i = 1 To UBound(dl)
For j = 1 To 4
k = k + 1
kq1(k, 1) = dl(i, j)
kq2(1, k) = dl(i, j)
Next
Next
[a10].Resize(k) = kq1
[F1].Resize(1, k) = kq2
End Sub
Thì em phải nhập vào thế nào. Mong bác
quanghai1969 và các Bác giúp em đặt cốt này ở đâu để ra kết quả? em cảm ơn

 

[Quang_Hải]

Em mới làm về excell nen chẳng biết với HPP Code:

các Bác giúp em đặt cốt này ở đâu để ra kết quả? em cảm ơn

Chắc bạn biết enable macros

 

[dvh.hy.9902]

Em rất kém về vba. Phải đặt cốt này vào đâu. để em được kết quả, mong các bác hướng dẫn em với!./.