Lấy ký tự trong chuỗi theo điều kiên

[nvh611]

Nhờ các bạn giúp vấn đề như file đính kèm

 

[Hoàng Tuấn 868]

Lại thêm vụ ngắn gọn.

 

[Nhattanktnn]

Nhờ các bạn giúp vấn đề như file đính kèm

Bạn đang dùng office nào?

 

[nvh611]

Bạn đang dùng office nào?

Mình dùng 2013 bạn xử lý giùm với

 

[Nhattanktnn]

Mình dùng 2013 bạn xử lý giùm với

2013 thì dùng VBA vậy.
Copy hàm này vào module:

Option Explicit

Public Function TachSo(Delim As String, ParamArray vStr() As Variant)
    Dim Tmp, I As Long, J As Long, S As String, Txt As String
    For I = 0 To UBound(vStr)
        Tmp = Split(vStr(I), Delim)
        For J = 0 To UBound(Tmp)
            S = Tmp(J)
            If IsNumeric(S) And Len(S) = 1 Then
                Txt = Txt & Delim & S
            End If
        Next
    Next
    TachSo = Mid(Txt, 2)
End Function

Thực hiện:
Gõ công thức trên sheet:
=Tachso(",",chuỗi1,chuỗi2,...,chuỗi n)

 

[nvh611]

2013 thì dùng VBA vậy.
Copy hàm này vào module:

Option Explicit

Public Function TachSo(Delim As String, ParamArray vStr() As Variant)
    Dim Tmp, I As Long, J As Long, S As String, Txt As String
    For I = 0 To UBound(vStr)
        Tmp = Split(vStr(I), Delim)
        For J = 0 To UBound(Tmp)
            S = Tmp(J)
            If IsNumeric(S) And Len(S) = 1 Then
                Txt = Txt & Delim & S
            End If
        Next
    Next
    TachSo = Mid(Txt, 2)
End Function

Thực hiện:
Gõ công thức trên sheet:
=Tachso(",",chuỗi1,chuỗi2,...,chuỗi n)

Cảm ơn bạn rất nhiều, hàm quá chuẩn
Chúc bạn nhiều sức khỏe và may mắn