VetMini
Ăn cùng góc phố
- Tham gia
- 21/12/12
- Bài viết
- 17,034
- Giải pháp
- 4
- Được thích
- 23,475
- Điểm
- 7,168
Tách số ra khỏi chữ:
' chuoi là chuỗi cần tách
Dim chuoiKT(0 To 1) ' 0 sẽ là chuỗi số và 1 sẽ là chuỗi mẫu tự
chuoiKT(0) = chuoi
chuoiKT(1) = chuoi
For i = 1 To Len(chuoi)
Mid(chuoiKT(-IsNumeric(Mid(chuoi, i, 1))), i, 1) = " " ' ký tự không đúng dạng thì đổi thành khoảng trắng
Next i
chuoiKT(0) = Split(Application.Trim(chuoiKT(0)), " ")
chuoiKT(1) = Split(Application.Trim(chuoiKT(1)), " ")
' chuoi là chuỗi cần tách
Dim chuoiKT(0 To 1) ' 0 sẽ là chuỗi số và 1 sẽ là chuỗi mẫu tự
chuoiKT(0) = chuoi
chuoiKT(1) = chuoi
For i = 1 To Len(chuoi)
Mid(chuoiKT(-IsNumeric(Mid(chuoi, i, 1))), i, 1) = " " ' ký tự không đúng dạng thì đổi thành khoảng trắng
Next i
chuoiKT(0) = Split(Application.Trim(chuoiKT(0)), " ")
chuoiKT(1) = Split(Application.Trim(chuoiKT(1)), " ")
Lần chỉnh sửa cuối: