XIN CHỈ GIÚP CÁCH TÁCH CHUỖI KÝ TỰ TRONG EXEL Ạ

[hoangocgiang]

Xin các anh chị trong diễn đàn chỉ giúp em cách tách chuỗi ký tự để sắp xếp lại theo thứ tự trong excel ạ. Em cảm ơn nhiều ạ.

 

[VU.NGO]

Hôm nay, em cảm thấy rất vui.

Dạo này bạn và gia đình vẫn khỏe chứ?

Có 2 câu, mình đã tách xong
Chào bạn.

 

[hoangocgiang]

Hôm nay, em cảm thấy rất vui.

Dạo này bạn và gia đình vẫn khỏe chứ?

Có 2 câu, mình đã tách xong
Chào bạn.

Dạ xin anh chỉ giúp hàm hoặc công thức để tách chuỗi ký tự theo thứ tự đó ạ.

 

[VU.NGO]

Có 2 câu thì làm đơn giản mà em, không cần công thức hay hàm. Ấn Ctrl +C rồi Ctrl+ Paste

 

[bebo021999]

Một cách dùng UDF:
Với ô A6 chứa chuỗi, tại B6 nhập|:
=tach(A6)

Cách dùng: ALt-F11. Insert/Module. Dán code này vô. Lưu file dạng .xlsm
code:

Option Explicit
Function tach(ByVal cell As Range)
Dim k&, sp, s, arr(), stt
sp = Split(cell, "}")
ReDim arr(1 To UBound(sp) + 1, 1 To 2)
For Each s In sp
    If s <> "" Then
        k = k + 1: arr(k, 1) = k
    End If
Next
k = 0
For Each s In sp
    If s <> "" Then
        stt = Split(s, "{")(1)
        arr(stt, 2) = Split(s, "{")(0)
    End If
Next
For k = 1 To UBound(arr)
    tach = tach & " " & arr(k, 2)
Next
End Function