Chỉ giúp cách chuyển dữ liệu hàng sang cột

[phamxuanly.gtvt]

Em muốn chuyển số liệu dạng hàng ngang sang cột ^^
như file đính kèm, anh chị nào giúp em với

 

[Quang_Hải]

Em muốn chuyển số liệu dạng hàng ngang sang cột ^^
như file đính kèm, anh chị nào giúp em với

Chỉ có cách dùng VBA là nhanh gọn

Sub NgangDoc()
Dim data(), i, j, kq(), k
data = Range([B7], [D65536].End(3)).Value
ReDim kq(1 To UBound(data) * 3, 1 To 1)
For i = 1 To UBound(data)
   For j = 1 To 3
      k = k + 1
      kq(k, 1) = data(i, j)
   Next
Next
[G7].Resize(k) = kq
End Sub

 

[huuthang_bd]

Em muốn chuyển số liệu dạng hàng ngang sang cột ^^
như file đính kèm, anh chị nào giúp em với

Nếu bạn thường xuyên làm công việc dạng này thì hãy tham khảo hàm tự tạo ToTable trong topic sau:
http://www.giaiphapexcel.com/forum/...tự-tạo-ToTable-Chuyển-dữ-liệu-thành-dạng-bảng
Nếu muốn dùng công thức thì bạn dùng công thức sau:

=INDEX($B$7:$D$12,ROUNDUP(ROW(A1)/3,0),MOD(ROW(A1)-1,3)+1)

 

[phamxuanly.gtvt]

Nếu bạn thường xuyên làm công việc dạng này thì hãy tham khảo hàm tự tạo ToTable trong topic sau:
http://www.giaiphapexcel.com/forum/...tự-tạo-ToTable-Chuyển-dữ-liệu-thành-dạng-bảng
Nếu muốn dùng công thức thì bạn dùng công thức sau:

=INDEX($B$7:$D$12,ROUNDUP(ROW(A1)/3,0),MOD(ROW(A1)-1,3) 1)

Thanks anh huuthang_bd đã giúp, em vẫn thích công thức hơn là VBA