Tách ký tự trong chuỗi

[kohlerbkqn]

Chào các bạn,

Mình cần xử lý tách các ký tự trong một chuỗi bị ngăn cách bởi dấu /.

Với ký tự đầu thì dùng hàm left + find được nhưng các ký tự sau thì ko được nếu không muốn chèn thêm cột.

Nhờ các bạn giúp đỡ.
Cám ơn các bạn.

 

[giaiphap]

Ô B3 gõ CT như sau:

=TRIM(MID(SUBSTITUTE($A3,"/",REPT(" ",100)),100*(COLUMN(A1)-1)+1,100))

Fill CT sang phải và xuỗng dưới.

 

[kohlerbkqn]

Cám ơn bạn,bạn có thể giải thích số 100 này có ý nghĩa như thế nào được không ạ?

Trường hợp mình chèn thêm một vào cột đầu tiên thì kết quả ko còn đúng.

 

[giaiphap]

Cám ơn bạn,bạn có thể giải thích số 100 này có ý nghĩa như thế nào được không ạ?

Trường hợp mình chèn thêm một vào cột tiên thì kết quả ko còn đúng.

Mình không biết giải thích đâu, thôi thì bạn quét chọn CT mà bạn chưa hiểu và nhấn F9 để xem và tự ngộ nhận ra thôi.
Bạn thêm một vào cột tiên là cột nào vậy bạn, thêm cụ thể như thế nào? chứ mình thêm vào cột H nó vẫn chạy đúng mà.

 

[kohlerbkqn]

Xin lỗi, mình đánh sai, cột đầu tiên. Mình đã làm được rồi, cám ơn bạn.

Trong trường hợp các ký tự có độ dài khác nhau thì công thức có thể tổng quát hơn được không ạ?

 

[giaiphap]

Xin lỗi, mình đánh sai, cột đầu tiên. Mình đã làm được rồi, cám ơn bạn.

Trong trường hợp các ký tự có độ dài khác nhau thì công thức có thể tổng quát hơn được không ạ?

Thế công thức đó không tổng quát à? Bạn có thử áp dụng vào file của bạn chưa hả hỏi nhé! Bây giờ sửa CT chổ $A3 thành $C3 là xong rồi còn gì.

 

[phulien1902]

Xin lỗi, mình đánh sai, cột đầu tiên. Mình đã làm được rồi, cám ơn bạn.

Trong trường hợp các ký tự có độ dài khác nhau thì công thức có thể tổng quát hơn được không ạ?

Nếu bạn muốn nhanh và tổng quát, bạn dùng thử Code:

Sub TACH()
    Dim LR As Long
    LR = Cells(Rows.Count, "C").End(xlUp).Row
    Application.DisplayAlerts = False
    Range("C3:C" & LR).Copy Range("F3")
    Range("F3:F" & LR).TextToColumns Destination:=Range("F3"), DataType:=xlDelimited, Other:=True, OtherChar _
        :="/"
    Application.DisplayAlerts = True
End Sub