Lấy ký tự trong chuỗi theo điều kiên (1 người xem)

  • Thread starter Thread starter nvh611
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

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:
Mã:
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)
 
2013 thì dùng VBA vậy.
Copy hàm này vào module:
Mã:
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
 
Web KT

Bài viết mới nhất

Back
Top Bottom