Help... Tách số và chữ
đây là code trên mạng:
Function Num(ch As String) As Long
Dim tam As String
For i = 1 To Len(ch)
If IsNumeric(Mid(ch, i, 1)) Then tam = tam & Mid(ch, i, 1)
Next
Num = Val(tam)
End Function
...
...
Nhưng em ko tách được cái dãy số dài dài kia@@
