thêm dấu phẩy (,) sau số

[bachlongtin88]

Mọi người giúp mình với. Mình muốn tạo dãy số liên tiếp nhau nhưng cách nhau dấu phẩy. Nếu được thì cứ 3 số lại không có dấu phẩy. Tạo liên tiếp hay theo hàng củng được. Mong được giúp đỡ!
VD 12,13,14
12,13,14 15,16,17 18,19,20

 

[nhat chi mai]

ví dụ như A1=12, A3=6 có thể làm A3=A1&","&A2 vậy được không ạ? hiiiii

 

[Ba Tê]

Mọi người giúp mình với. Mình muốn tạo dãy số liên tiếp nhau nhưng cách nhau dấu phẩy. Nếu được thì cứ 3 số lại không có dấu phẩy. Tạo liên tiếp hay theo hàng củng được. Mong được giúp đỡ!
VD 12,13,14
12,13,14 15,16,17 18,19,20

Sợ nhất là ví dụ mà không cụ thể.
Phải biết rõ bắt đầu từ đâu, bao nhiêu lần cái "cứ 3 số".
Cái vụ chuỗi ký tự này thì thử với VBA xem sao.
Hàm tự tạo, nhớ Enable Macros.

 

[xuan.nguyen82]

Copy code của thầy Ba Tê làm thêm 1 cái góp vui:

Public Function XN(Dau As Range, times As Range) As String
Dim SD As Long, t As Long, I As Long
SD = Dau.Value: t = times.Value
For I = 1 To t
    XN = XN & SD & "," & SD + 1 & "," & SD + 2 & Chr(10)
    SD = SD + 3
Next I
XN = Left(XN, Len(XN) - 1)
End Function