excel中如何随机插入标点符号，假如：
A1单元格有一大段文字，这段文字没有标点符号，能不能按照字数给这段文字添加标点符号，比如说这段文字我想随机10到15个字后面加一个逗号，怎么实现，求公式，word中实现也可以，其他辅助程序也可以，献上50分，好用的追加
A1是一窜文本
B1输入
=MID(A1,1,RANDBETWEEN(1,LEN(A1)))&","
C1输入
=B1&MID(A1,FIND(",",B1),1000)
那么C1是你要的结果。
希望能够帮到你。追问
公式是对的，但是不能实现，我照着复制过去你的公式，公式不报错，但是结果中只是把这段文字分成了两部分，中间一个逗号隔开的，也没按照10到15个字随机，大神你改造下，我提高100分
追答是每隔10到15个字加一个逗号吗？
追问对了，随机每隔10到15字加入一个逗号，谢谢你耐心解答
追答写了个VBA代码，插入按钮，
Private Sub CommandButton1_Click()
Dim i, j As Integer
Randomize
[b1] = ""
j = j + Int(Rnd * 6) + 10
For i = 1 To Len([a1])
If i = j Then
[b1] = [b1] & "，" & Mid([a1], i, 1)
j = j + Int(Rnd * 6) + 10
Else
[b1] = [b1] & Mid([a1], i, 1)
End If
Next
End Sub
实现的是A1单元格的内容在B1单元格随即插入逗号。
=left(A1,round(rand()*5+10,0))&","
C1输入
=B1&RIGHT(A1,LEN(A1)-LEN(B1)+1)追问
大神，你的也和楼上一样，只是把这段文字分成了两部分，不一样的只是你的是随机开头10-15字后面加了一个逗号，我要的是这段文字开头到结尾整片文章中从开头算起，随机每隔10到15个字加入一个逗号，最后的效果就是这段文字中有很多逗号把这段文字分成了10到15个字的N小段
追答稍等
Alt+F11 视图，代码窗口，插入如下，F5运行
Sub aaa()
i = 1
cells(i, 2) = ""
Do While i < Len(cells(1, 1))
b = Int(Rnd() * 5 + 10)
cells(1, 2) = cells(1, 2) & Mid(cells(1, 1), i, b) & ","
i = b + i
Loop
End Sub
下载这个文件，按按钮1试试
