Excel能把由若干个单词组成的输入值，单词之间随机排列组合输出有数量限制的结果吗？

andyan1981

输入区域由若干个单词组成，输出不同单词的随机排列组合，中间以“, ”间隔，每个组合后面必须加入“ A”，且输出的组合数量限制为10个。
工作簿1.zip (7 KB, 下载次数: 63)

2015-6-22 17:27 上传

点击文件名下载附件

香川群子

这个问题没啥实际意义吧。

你要的是一次性的随机组合结果，还是需要列出全部组合？

andyan1981

香川群子 发表于 2015-6-26 14:46
这个问题没啥实际意义吧。

你要的是一次性的随机组合结果，还是需要列出全部组合？

如果能把输出的组合数量限制为10个，则一次性的随机组合，只要结果是10个就行；
如果不能限制输出结果的数量，则列出全部组合。

之前，你帮我解决过类似的排列组合随机输出问题:
http://club.excelhome.net/thread-1204025-1-1.html

现在这个问题就是输入、输出形式格式上的差别，比如要取的词都是在同一个单元格，排列组合输出的结果也需要在同一个单元格，且中间要以“, ”间隔开。。。
这个问题在导入某个有几千行输入title，要快速求出每个title对应的key words，并按规定数量和格式列出的情况下很有用；如果按照之前的你帮我解决的那个表格，我需要把几千个title中的每个title的单词拆分开来，生成结果，再以“, ”间隔开输入到同一个单元格中去。。。

谢谢老师再次指教！

香川群子

说明：
A列单元格中输入以空格分隔的单词。
当B列单元格为空时，光标选中即自动输出由10个任意个数单词的随机组合。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Column <> 2 Then Exit Sub
   
4.     If Target <> "" Or Target.Offset(, -1) = "" Then Exit Sub
   
5.    
   
6.     t = Split(Target.Offset(, -1) & " "): n = UBound(t)
   
7.     For i = 1 To 10
   
8.         s = t
   
9.         For j = 1 To Int(Rnd * n)
   
10.             s(Int(Rnd * n)) = ""
    
11.         Next
    
12.         ss = ss & "," & Application.WorksheetFunction.Trim(Join(s)) & " A"
    
13.     Next
    
14.     Target = Mid(ss, 2)
    
15. End Sub

复制代码

andyan1981

香川群子 发表于 2015-6-27 11:40
说明：
A列单元格中输入以空格分隔的单词。
当B列单元格为空时，光标选中即自动输出由10个任意个数单词的 ...

香川老师的公式真是high啊！{:soso_e179:}

andyan1981

香川群子 发表于 2015-6-26 14:46
这个问题没啥实际意义吧。

你要的是一次性的随机组合结果，还是需要列出全部组合？

大神，请教：限定条件下Excel的随机数输出
http://club.excelhome.net/thread-1436620-1-1.html
(出处: ExcelHome技术论坛)