tách mã nhân viên (1 người xem)

[tuanpm8x]

cty em có > 1000 nhân viên em muốn tách riêng mã nhân viên nhưng không biết cách làm .
nhờ các bác đặt giúp em hàm để tách được mã nhân viên như trong file em gửi kèm ạ !
em cảm ơn !

 

[hoamattroicoi]

Công thức cho ô B2, copy xuống cho các ô còn lại nhé :

=LOOKUP(99^99,--MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&"0123456789")),ROW(INDIRECT("1:"&LEN(A2)))))

hoặc với 1000 dong bạn có thể dùng code này để không ảnh hưởng đến tốc độ tính toán của file :

Public Function Tach(Str As String)
    Dim RegExp As Object, objMatch, ObjMatches
    Set RegExp = CreateObject("vbscript.regexp")
    With RegExp
        .Global = True
        .Pattern = "\d+"
       Set ObjMatches = RegExp.Execute(Str)
    End With
      Tach = ObjMatches(0)
End Function

 

[tuanpm8x]

Công thức cho ô B2, copy xuống cho các ô còn lại nhé :

=LOOKUP(99^99,--MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&"0123456789")),ROW(INDIRECT("1:"&LEN(A2)))))

thanks bác hoamattroicoi nhé . hàm bác đặt quá tuyệt !

 

[vodoi2x]

Công thức cho ô B2, copy xuống cho các ô còn lại nhé :

=LOOKUP(99^99,--MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&"0123456789")),ROW(INDIRECT("1:"&LEN(A2)))))

hoặc thêm phương án này cho gọn
=LOOKUP(99^99,--MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&"0123456789")),ROW($1:$256)))

Chắc mã cũng không dài quá 256 ký tự , nên yên văn tâm