Tách dữ liệu từ 1 ô thành nhiều ô

[NoDiNaDu]

Bạn thử:

Sub Test()
    Dim Cll As Range, St
    For Each Cll In Range("B1", Range("B" & Rows.Count).End(3))
        If InStr(Cll, ",") > 0 Then
            St = Split(Cll, ",")
            Cll.Offset(, 2).Resize(, UBound(St) + 1) = St
        End If
    Next
End Sub

Tìm hiểu về Text to Columns (trên Ribbon vào data > Text to Columns)

Dạ, em cảm ơn các thầy ạ.

 

[giaiphap]

Không dùng vòng lặp thì đệ quy.
Tôi chỉ nói vậy thôi chứ tôi không viết code đâu. Lý do thì quý vị biết rồi.

Theo em hiểu thì đệ quy bản chất của nó vẫn là vòng lặp mà.

 

[DEPNGUYEN]

Vào data -> text to colum ->Fixed width sau đó chọn next, finish là xong nha bạn.