Hàm Chuyển nhiều dữ liệu ngang thành dọc

[thikimcuong]

- Mình có bài hướng dẫn của anh huuthang_bd ngày 1/6/11 (file đính kèm). Tuy nhiên khi áp dụng thực tế chạy không đúng. (có lẻ bài đó có số liệu trùng nhau nên anh huuthang chưa thấy chạy không được.
- Mình không trực tiếp hồi âm bài đó được vì bài đã phạm quy, đã bị lock (tiêu đề không bỏ dấu tiếng việt)
- Mình gởi lại file hướng dẫn đó nhờ anh huuthang hay GPE chỉ lại giúp nhé !
cảm ơn GPE và anh huuthang nhiều !

 

[SA_DQ]

Trong khi chờ các nhà siêu công thức, tham khảo tạm hàm mảng tự tạo sau

Bạn quét chọn vùng từ B116
sau đó bấm chuột lên thanh công thức & nhập cú fáp
=PhanTach(Sheet1!B2:G5)

(B2:G5 của Sheet1 là vùng dữ liệu của bạn đã thiét lập)

Bấm tổ hợp fím dành cho hàm mảng để có kết quả.

 

[thikimcuong]

Mình không biết code của hàm này. bạn cho mình thử nhé !
Cảm ơn bạn !

 

[SA_DQ]

Là sao, bạn?

Mình không biết code của hàm này. bạn cho mình thử nhé !
Cảm ơn bạn !

Trong file có mã code mà;

Bạn xem có như vầy không:

Option Explicit
Function PhanTach(Rng As Range)
 Dim Cot As Byte, Hang As Long
 Dim Col As Byte, jJ As Long, Rws As Long
 
 Cot = Rng.Columns.Count:               Hang = Rng.Rows.Count
 ReDim Mang(1 To Cot * Hang, 1 To 3):   Mang(1, 1) = "GPE.COM"
 Mang(1, 2) = "NV":                     Mang(1, 3) = "SL"
 
 For Rws = 2 To Hang * Cot
    Col = Col + 1
    If Col > Cot - 1 Then
        Col = 1:                        jJ = jJ + 1
    End If
    Mang(Rws, 1) = Rng(1 + Col).Value
    Mang(Rws, 2) = Rng(1).Offset(jJ + 1).Value
    Mang(Rws, 3) = Rng(1).Offset(jJ + 1, Col).Value
 Next Rws
 PhanTach = Mang()
End Function