E muốn tạo một function để chuyển 012345 thành 0 1 2 3 4 5 mỗi số cách nhau bởi 2 dấu cách. Mong mọi ng chỉ giáo ạ, e cũng thử tạo nhưng đang bí vẫn chưa nghĩ ra cảm ơn ace ạ
mình không quen dùng excel mà dùng vba nhé. tách từng số cho vào 1 mảng rồi ghép tất cả các mảng lại ở giữa có 1 dấu cách
Nếu làm hàm ghép thì mình làm đc nhưng hàm thì phải tách từng số mà với dãy số 15,16 số thì khá dài, số ký tự của mỗi chuỗi lại k bằng nhau nên mình muốn dùng vba cho tiện cảm ơn b
nếu dùng vba thì bạn có thể dựa trên code mình mới gửi qua ib cho bạn để sử dụng. sửa lại 1 tí cho phù hợp yêu cầu của bạn
'---- copy code vao 1 module Function insert_space(s As String) As String Dim i As Long, result As String For i = 1 To Len(s) result = result & Mid(s, i, 1) & " " Next insert_space = Trim(result) End Function
Function insert_space(Str As String) As String Dim arr() As String arr = Split(StrConv(Str, 64), Chr(0)) ReDim Preserve arr(UBound(arr) - 1) insert_space = Join(arr, " ") End Function
