[Help] Tách 1 dòng thành nhiều dòng theo thứ tự mong muốn (2 người xem)

[ithongkhanh]

Số là mình có 1 file gồm 11,000 chuỗi ký tự khác nhau, mình muốn chia điều cho nó thành 4 cột :

1. File mẫu :

2. Khi áp dụng hàm, macro hoặc tool gì đó :


Ở trên mà mình ví dụ nếu muốn chia thành 4 cột, nếu muốn chia thành 147 cột thì phải làm như thế nào, nếu muốn tách thành 150 cột thì phải như thế nào? Vì mình sử dụng lệnh này rất nhiều lần .

File Demo mình gửi kèm, các bạn giúp mình giải pháp với !

 

[giaiphap]

Số là mình có 1 file gồm 11,000 chuỗi ký tự khác nhau, mình muốn chia điều cho nó thành 4 cột :

1. File mẫu :
View attachment 206068
2. Khi áp dụng hàm, macro hoặc tool gì đó :
View attachment 206069

Ở trên mà mình ví dụ nếu muốn chia thành 4 cột, nếu muốn chia thành 147 cột thì phải làm như thế nào, nếu muốn tách thành 150 cột thì phải như thế nào? Vì mình sử dụng lệnh này rất nhiều lần .

File Demo mình gửi kèm, các bạn giúp mình giải pháp với !

Tại ô D1 gõ công thức như sau:

=OFFSET($A$1,(ROW(A1)-1)*4+COLUMN(A1)-1,)

Fill sang phải đủ 4 cột (Từ D1 đến G1), sau đó chọn 4 ô (Từ d1 đến G1) fill công thức xuống. Muốn 147 cột thì thay số 4 thành 147.

 

[ithongkhanh]

Tại ô D1 gõ công thức như sau:

=OFFSET($A$1,(ROW(A1)-1)*4+COLUMN(A1)-1,)

Fill sang phải đủ 4 cột (Từ D1 đến G1), sau đó chọn 4 ô (Từ d1 đến G1) fill công thức xuống. Muốn 147 cột thì thay số 4 thành 147.

Mình đã làm được rồi, cám ơn bạn rất nhiều !

 

[SA_DQ]

Sub TachThanhNCot()
 Dim Col As Byte, J As Long, Rws As Long, W As Long, Cot As Integer
' Ân Dinh Sô Côt Cân Tách:            '
 Col = InputBox("Hay Nhâp Sô Côt Cân Thiêt", "GPE.COM", 9)
 Rws = [A8].CurrentRegion.Rows.Count
 ReDim Arr(1 To Rws, 1 To Col)
 [f1].Resize(Rws, Col).Value = Arr()    'Xóa Du Liêu Lân Truóc:    '
 For J = 1 To Rws Step Col
    W = W + 1
    For Cot = 1 To Col
        Arr(W, Cot) = Cells(J + Cot - 1, "A").Value
    Next Cot
 Next J
 If W Then
    [f1].Resize(W, Col).Value = Arr()
 End If
End Sub

(Để bạn thêm 1 tham khảo)

 

[snow25]

Sub TachThanhNCot()
Dim Col As Byte, J As Long, Rws As Long, W As Long, Cot As Integer
' Ân Dinh Sô Côt Cân Tách:            '
Col = InputBox("Hay Nhâp Sô Côt Cân Thiêt", "GPE.COM", 9)
Rws = [A8].CurrentRegion.Rows.Count
ReDim Arr(1 To Rws, 1 To Col)
[f1].Resize(Rws, Col).Value = Arr()    'Xóa Du Liêu Lân Truóc:    '
For J = 1 To Rws Step Col
    W = W + 1
    For Cot = 1 To Col
        Arr(W, Cot) = Cells(J + Cot - 1, "A").Value
    Next Cot
Next J
If W Then
    [f1].Resize(W, Col).Value = Arr()
End If
End Sub

(Để bạn thêm 1 tham khảo)

theo code này khi xoá dữ liệu sẽ bị thiếu khi col nhỏ hơn col lần trước.đúng không bác SA_DQ

 

[Ba Tê]

theo code này khi xoá dữ liệu sẽ bị thiếu khi col nhỏ hơn col lần trước.đúng không bác SA_DQ

Thử với cái này:

 

[SA_DQ]

Ờ hen!
Vậy thì xóa dữ liệu toàn vùng đi vậy:

[f1].CurrentRegion.Clear    'Xóa Du Liêu Lân Truóc:    '