Code VBA cho tách ký tự trong chuỗi

[hoahuongduong1986]

Dear Anh Chị,
Em có cột A là "NARRATIVE" và cột B là "Số máy ATM". Tại cột B em muốn lấy ra mã sau ký tự A0 (Ký tự này gồm 8 ký tự) em đã làm được bằng hàm =MID(A1,FIND("A0",A1,1),8). Việc này làm bằng Code thì làm thế nào ạ.

NARRATIVE	Số máy ATM
Hach toan THIEU QUY ATM A0242005 CK|TU 3.1.2019 DEN 17.1.2019	A0242005
HT THIEU QUY ATM A0242022 CK|17.7.2019 DEN 22.7.2019	A0242022
HT THIEU QUY ATM theo ma A0242033 CK|TU 27.12.2019 DEN 31.12.2019	A0242033
HT THIEU QUY ATM A0242002 CK|TU 20.1.2020 DEN 1.2.2020	A0242002
HT THIEU QUY ATM A0242001 CK|TU 14.4.2020 DEN 23.4.2020	A0242001

 

[huuthang_bd]

Cũng vậy thôi

Function ATMNo(ByVal Description As String) As String
ATMNo = Mid(Description, InStr(Description & "A0", "A0"), 8)
End Function

 

[CHAOQUAY]

Dear Anh Chị,
Em có cột A là "NARRATIVE" và cột B là "Số máy ATM". Tại cột B em muốn lấy ra mã sau ký tự A0 (Ký tự này gồm 8 ký tự) em đã làm được bằng hàm =MID(A1,FIND("A0",A1,1),8). Việc này làm bằng Code thì làm thế nào ạ.

NARRATIVE	Số máy ATM
Hach toan THIEU QUY ATM A0242005 CK|TU 3.1.2019 DEN 17.1.2019	A0242005
HT THIEU QUY ATM A0242022 CK|17.7.2019 DEN 22.7.2019	A0242022
HT THIEU QUY ATM theo ma A0242033 CK|TU 27.12.2019 DEN 31.12.2019	A0242033
HT THIEU QUY ATM A0242002 CK|TU 20.1.2020 DEN 1.2.2020	A0242002
HT THIEU QUY ATM A0242001 CK|TU 14.4.2020 DEN 23.4.2020	A0242001

Đại khái thế này

Function mayATM(dauvao As String) As String
Dim ma As Variant
For Each ma In Split(WorksheetFunction.Trim(dauvao))
    If Left(ma, 2) = "A0" Then
        If Len(ma) = 8 Then
            mayATM = ma
            Exit Function
        End If
    End If
Next ma
End Function

 

[VetMini]

Cũng vậy thôi

Function ATMNo(ByVal Description As String) As String
ATMNo = Mid(Description, InStr(Description & "A0", "A0"), 8)
End Function

Không hoàn toàn 100% bạn ơi. FIND nó case sensitive. INSTR nó mặc định là case insensitive. Bạn phải thêm tham số vbBinaryCompaer mới thực sự giống.