单元格含有几个词 随机调取一个

ptguanyao

求大神指点，非常感谢
A列数据单元格含有{},里面数据用 , 号隔开  现在要生成新标题B列主要目的是随机取大{}里面一个词，其他保持不变。A列数据很长我只举例几个。{}里的数据也很多个。   

lsdongjh

正则、分割、随机、重组，自己试试吧

ptguanyao

lsdongjh 发表于 2019-10-10 17:27
正则、分割、随机、重组，自己试试吧

新手 简单可以模仿写，这个写不出来

ptguanyao

大神帮忙写下

moonlit123

数据格式都是固定的么？
2个大括号{}， 固定格式为  { 第一组数据，分开} + 汉字  + ｛第二组数据｝ + 汉字？
{我,你,他}去{上海,北京,广州,重庆}玩

还是说有不一样的格式：
随机汉字+ {第一组数据} + 随机汉字 + {第二组数据}  +随机汉字 + {第三组数据} + 汉字？

aman1516

楼主要的是这种效果吧：
汉字+ {随机一项} + 汉字 + {随机一项}  +汉字 + {随机一项} + 汉字....
只要是{}内的，不管有多少个选项（词）只取一个，其它整句不变

aman1516

试试：

1. Sub tt()
   
2. Dim r%, i%, m%, n%
   
3. Dim reg As New RegExp, s1, s2
   
4. Randomize
   
5. With reg
   
6.     .Global = True
   
7.     .Pattern = "\{(.*?)\}"
   
8. End With
   
9. For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
10.     s1 = Cells(i, 1).Value
    
11.     Set mh = reg.Execute(s1)
    
12.     If mh.Count > 0 Then
    
13.        For k = 0 To mh.Count - 1
    
14.            s2 = Replace(Replace(mh(k), "{", ""), "}", "")
    
15.            n = Int(Rnd() * (UBound(Split(s2, ",")) + 1))
    
16.            s1 = Replace(s1, s2, Split(s2, ",")(n))
    
17.        Next
    
18.        Cells(i, 2) = s1
    
19.      End If
    
20. Next
    
21. End Sub

复制代码

aman1516

楼主做的示例数据也太偷懒了吧，详见附件：
随机调取单元格数据.rar (13.87 KB, 下载次数: 9)

2019-10-10 21:40 上传

点击文件名下载附件

ptguanyao

aman1516 发表于 2019-10-10 21:39
试试：

非常感谢，{} 这个括号可以去掉吗

ptguanyao

moonlit123 发表于 2019-10-10 18:04
数据格式都是固定的么？
2个大括号{}， 固定格式为  { 第一组数据，分开} + 汉字  + ｛第二组数据｝ + 汉 ...

{}这个位置是不固定的