Tách dữ liệu từ 1 cột sang nhiều cột bằng công thức (5 người xem)

[khuongvietphong]

Các a viết hộ em công thức tách thành 6 cột với. ( code VBA thì càng tốt) giải thích hàm hoặc code cho em học hỏi với. cám ơn các anh

Tách thành 6 cột là tách như thế nào , bạn thử điền thủ công 1 vài ví dụ đầu xem sao chứ chỉ nói không như vầy biết làm thế nào cho đúng ý bạn đây..

 

[tuoigiyeuem]

Ý của em là tách đều 1 cột thành 6 cột tương tự như câu hỏi tách thành 5 dòng trên kia/
( code VBA thì càng tốt) giải thích hàm hoặc code cho em học hỏi với. cám ơn anh

 

[khuongvietphong]

Bạn xem File này đúng không

 

[Lê Duy Thương]

Ý của em là tách đều 1 cột thành 6 cột tương tự như câu hỏi tách thành 5 dòng trên kia/
( code VBA thì càng tốt) giải thích hàm hoặc code cho em học hỏi với. cám ơn anh

Thay đổi số ở cell b1 để được kết quả như ý

 

[khuongvietphong]

Mọi người kiểm tra CODE này giúp em xem, với File trên tại sao nó không ra kết quả nhỉ:

Option Explicit
Sub tach_nhieu_cot()
Dim i As Long, ir As Long, j As Long, k As Long
ir = [a65000].End(3).Row
k = 4
For i = 1 To ir
    j = i - 1 Mod 30
    If i > 30 And j = 0 Then
      k = k + 1
    End If
    Cells(j + 1, k) = Cells(i, 1)
Next i
End Sub

 

[Ba Tê]

Mọi người kiểm tra CODE này giúp em xem, với File trên tại sao nó không ra kết quả nhỉ:

Option Explicit
Sub tach_nhieu_cot()
Dim i As Long, ir As Long, j As Long, k As Long
ir = [a65000].End(3).Row
k = 4
For i = 1 To ir
    j = i - 1 Mod 30
    If i > 30 And j = 0 Then
      k = k + 1
    End If
    Cells(j + 1, k) = Cells(i, 1)
Next i
End Sub

Sai do dòng này:
j = i - 1 Mod 30
sửa thành j = (i - 1) Mod 30
Nếu "quyết" không xài mảng thì có thể "chơi" kiểu này:

Sub tach_nhieu_cot2()
Dim I As Long, J As Long, K As Long, Tach As Long, Rws As Long, Rw As Long
Rws = [a65000].End(3).Row:  Tach = 6    '<--------So cot can tach'
Rw = Rws \ Tach
If Rws Mod Tach > 0 Then Rw = Rw + 1
For I = 1 To Rws Step Rw
    K = K + 1
    Range("C1").Offset(, K).Resize(Rw).Value = Range("A" & I).Resize(Rw).Value
Next I
End Sub

 

[khuongvietphong]

Sai do dòng này:
j = i - 1 Mod 30
sửa thành j = (i - 1) Mod 30

Cảm ơn thầy BaTe em sửa lại như vầy và ra được kết quả rồi.

Nếu "quyết" không xài mảng thì có thể "chơi" kiểu này:

Có dùng mảng chứ ạ, em đang luyện về mảng mà ... nhưng trước tiên em muốn thử cách thông thường đã

 

[tuoigiyeuem]

Rất cám ơn Thầy Bate cùng các anh.

 

[tuoigiyeuem]

Phiền các thầy cùng các anh chị giúp em thêm 1 chút nữa.
Em muốn tách 1 cột dữ liệu thành 5 cột và 4 dòng đều nhau. Khi đã ô cuối cùng của cột 5 và dòng 40 đã đầy thì lại copy tiếp tục xuống cột đầu tiên của dòng 41. ( như file đính kèm)

 

[Ba Tê]

Phiền các thầy cùng các anh chị giúp em thêm 1 chút nữa.
Em muốn tách 1 cột dữ liệu thành 5 cột và 4 dòng đều nhau. Khi đã ô cuối cùng của cột 5 và dòng 40 đã đầy thì lại copy tiếp tục xuống cột đầu tiên của dòng 41. ( như file đính kèm)

Chạy thử Sub này, không giống với kết quả mẫu của bạn đâu.

Public Sub GPE()
Dim Rng As Range, Col As Long, Rws As Long, Rw As Long, I As Long
Rws = 40: Rw = 0
Set Rng = Range("A1", Range("A1").End(xlDown))
For I = 1 To Rng.Rows.Count Step Rws
    Col = Col + 1
    If Col = 6 Then
        Col = 1
        Rw = Rw + Rws
    End If
    Range("J1").Offset(Rw, Col).Resize(Rws) = Rng(I).Resize(Rws).Value
Next I
Set Rng=Nothing
End Sub

 

[tuoigiyeuem]

Cám ơn thầy nhiều lắm.