Tách ký tự phức tạp (3 người xem)

[KINHDOANHFBA]

Em cần tách ký tự bất kỳ. Ví dụ theo file đính kèm.
Rất mong các anh chị giúp đỡ cho em!
khi các bạn coi và kiểm tra kỹ sẽ hiểu!
Chân thành cảm ơn!

 

[chibi]

Đã đọc file đính kèm nhưng không hiểu bạn muốn gì.

 

[solomon2211]

Theo mình hiêu3 thì bạn muốn lấy dữ liệu theo nhóm, và mỗi nhóm có vị trí trong chuỗi và độ dài khác nhau. Nếu hai kiểu dữ liệu có cấu trúc và độ dài các nhóm giống nhau, bạn có thể dùng hàm MID với cú pháp.

MID(a,b,c) - trong đó a là địa chỉ chuỗi; b là vị trí bắt đầu và c là độ dài chuỗi cần lấy.

 

[KINHDOANHFBA]

Cái này nó không hẳn dùng hàm "mid". Nếu dùng cá nhân hàm "Mid" thì không khố mấy. Nghiên cứu không ra mới nhờ các cao thủ.

 

[concogia]

Cái này nó không hẳn dùng hàm "mid". Nếu dùng cá nhân hàm "Mid" thì không khố mấy. Nghiên cứu không ra mới nhờ các cao thủ.

Các bài dạng này thường khó giải quyết vì không có dữ liệu cho tất cả các trường hợp, phải làm đi làm lại nhiều lần
Nếu dữ liệu nhập vào có quy luật đúng như ví dụ thì thử "chơi" code này xem chứ bài này mà làm bằng công thức thì "tèo" chắc

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Mg, I, Tam, J, Dk, Dkk
        If Target.Address = "$A$2" Then
            [d5:g1000].ClearContents
            If InStr(1, Target, " ") > 3 Then
                Dk = " ": Dkk = "."
            ElseIf InStr(1, Target, ".") > 3 Then
                Dk = ".": Dkk = " "
            End If
                Mg = Split(Trim(Target), Dk)
                    For I = LBound(Mg) To UBound(Mg)
                        Tam = Split(Trim(Mg(I)), Dkk)
                            For J = 2 To UBound(Tam) - 1
                                With [f1000].End(xlUp)(2)
                                    .Value = Tam(J)
                                    .Offset(, -2) = Tam(0)
                                    .Offset(, -1) = Tam(1)
                                    .Offset(, 1) = Tam(UBound(Tam))
                                End With
                            Next J
                    Next I
            End If
End Sub

Cách làm: bạn nhập dữ liệu ở cell A2 ==> xem kết quả từ cell D5