Tách các thông tin từ một chuỗi.

[phuyen89]

Chào mọi người diễn đàn GPE.
Em có 01 File Excel mà trong 1 Cell, nó bao gồm Thông tin Khách hàng, địa chỉ Email, Số điện thoại.
Mong mọi người tách giùm em qua các cột như trong File em đã làm sẵn.
Xin cảm ơn.

 

[Ba Tê]

Chào mọi người diễn đàn GPE.
Em có 01 File Excel mà trong 1 Cell, nó bao gồm Thông tin Khách hàng, địa chỉ Email, Số điện thoại.
Mong mọi người tách giùm em qua các cột như trong File em đã làm sẵn.
Xin cảm ơn.

Nếu dữ liệu muốn tách luôn cách nhau bằng ký tự Alt+Enter như trong file thì dùng thử code này.
Nếu không có gì làm chuẩn thì "tèo"
[GPECODE=vb]Public Sub Tach()
Dim sArr(), dArr(), Tem, I As Long, J As Long
sArr = Range([A2], [B2].End(xlDown)).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 5)
For I = 1 To UBound(sArr, 1)
dArr(I, 1) = sArr(I, 1)
Tem = Split(sArr(I, 2), ChrW(10))
For J = 0 To UBound(Tem)
dArr(I, J + 2) = Tem(J)
Next J
Next I
[D2].Resize(I - 1, 5) = dArr
End Sub[/GPECODE]

 

[ndu96081631]

Chào mọi người diễn đàn GPE.
Em có 01 File Excel mà trong 1 Cell, nó bao gồm Thông tin Khách hàng, địa chỉ Email, Số điện thoại.
Mong mọi người tách giùm em qua các cột như trong File em đã làm sẵn.
Xin cảm ơn.

Dùng công thức này cho cell E2:

=TRIM(MID(SUBSTITUTE(TRIM($B2),CHAR(10),REPT(" ",500)),1+(COLUMNS($A:A)-1)*500,500))

Kéo fill sang phải và xuống dưới
Cũng có thể dùng công cụ Text To Columns để làm việc này (thao tác trong 10s)