Tách dữ liệu thành nhiều cột

[Springo#VN]

Giả sử như file kèm theo, khi dán dữ liệu vào Sheet1:

Chỉ cần bấm nút lệnh sẽ cho kết quả ở Sheet KetQua.

Rất cảm ơn mọi người.

Code có thể sử dụng cho yêu cầu này:

Option Explicit

Sub TachCot()
Dim Nguon
Dim Kq
Dim i, j, k
Nguon = Sheet1.Range("A1").CurrentRegion
k = Len(Nguon(1, 1)) - Len(Replace(Nguon(1, 1), ",", "")) + 1
ReDim Kq(1 To UBound(Nguon), 1 To k)
For i = 1 To UBound(Nguon)
    k = 0
    For Each j In Split(Nguon(i, 1), ",")
        k = k + 1
        Kq(i, k) = Replace(j, """", "")
    Next j
Next i
With Sheet2.Range("A1").Resize(UBound(Kq), UBound(Kq, 2))
    .Clear
    .Value = Kq
    .Columns.AutoFit
End With
End Sub

Nếu có câu hỏi hoặc vướng mắc, các bạn vui lòng phản hồi tại đây để được giải đáp nhé.