Tặng bạn 1 function để tách lấy số điệnt hoại và đổi các số đầu thành +84 nhé. Code phía dưới và hình hướng dẫn sử dụng:
Function TachSo(str As String) As String
j = 0
Start = 1
TachSo = ""
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then
j = j + 1
Else
If j > 9 Then
TachSo = "+084" & Mid(str, Start + 1, j - 1)
Exit Function
Else
j = 0
Start = i + 1
End If
End If
Next
If j > 9 Then TachSo = "+084" & Mid(str, Start + 1, j - 1)
End Function
