EXCLE 随机组合某列内容输出TXT vba 编写求助

liupana

假设在EXCEL中有一列A列内容如下：
我是中国人。
我爱祖国。
你是谁？
我是大神。
你是菜鸟。
大家好。
现在来做自我介绍。
你来自哪里？
你是什么人？
中国北京首都国际机场。
菜鸟国国。
阿里云。
百度知道。
百度百科。
我需要实现，将A列的内容随机组合，例如随机选10个记录组成一个TXT。
1、我是中国人。
2、中国北京首都国际机场。
3、百度知道。
4、百度百科。
要求：1、前面需要有1、2、3、4、的编号；2、一定要随机组合并自动输出不同组合值的TXT文件；3、值可以被重复使用，但随机的最终值不能是一样的。
不知道那位高人有办法，非常感谢。

changhong8

限制呢？需要排列不？是要求一定数量还是指定组合数的全排列？

liupana

changhong8 发表于 2019-5-20 06:26
限制呢？需要排列不？是要求一定数量还是指定组合数的全排列？

需要指定数量排列，根据我的需要，比如有时候组合10个，有时候组合20个。求大神协助。

719404338

1. Sub t()
   
2. Dim i, j, d, dd
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Set dd = CreateObject("Scripting.Dictionary")
   
5. For j = 1 To 10
   
6. 0: d.RemoveAll
   
7. Do
   
8. d(WorksheetFunction.RandBetween(1, 14)) = ""
   
9. If d.Count = 4 Then Exit Do
   
10. Loop
    
11. If Not dd.Exists(d.keys()(0) & d.keys()(1) & d.keys()(2) & d.keys()(3)) Then
    
12. dd(d.keys()(0) & d.keys()(1) & d.keys()(2) & d.keys()(3)) = ""
    
13. pth = ThisWorkbook.Path
    
14.     Open pth & "" & j & ".txt" For Output As #1
    
15.     For i = 0 To 3
    
16.         Print #1, i + 1&; "、" & Range("a" & d.keys()(i))
    
17.     Next
    
18.     Close #1
    
19.     Else
    
20.     GoTo 0
    
21. End If
    
22. Next j
    
23. End Sub

复制代码