求高效简洁的VBA实现数据组合

灯火阑珊888

请问老师，附件中的数据如何用高效简洁的VBA实现数据组合提取。附件中有详细说明。 VBA实现组合.rar (4.18 KB, 下载次数: 33)

2016-5-23 14:56 上传

点击文件名下载附件

rtian

【更新代码；字典】

1. Sub aaa()
   
2. On Error Resume Next
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. c = Range("a65536").End(xlUp).Row
   
5. For i = 1 To c - 10
   
6. s = ""
   
7. For j = 0 To 9
   
8. If Not (Range("a" & i & ":a" & (i + 9)).Find(j) Is Nothing) Then
   
9. s = s & j
   
10. End If
    
11. Next
    
12. dic.Add i, CStr(s)
    
13. Next
    
14. [c1].Resize(dic.Count, 1) = Application.Transpose(dic.items)
    
15. End Sub
    

复制代码

liulang0808

rtian 发表于 2016-5-23 15:07

用for 嵌套处理，需要的组越多，for的层数越多

rtian

已更新代码，使用字典输出

灯火阑珊888

liulang0808 发表于 2016-5-23 16:29
用for 嵌套处理，需要的组越多，for的层数越多

老师，现在是10个一组进行组合，能不能设置多个，比如5个一组，10个一组，15个一组，20个一组，30个一组 这样的一个转换

灯火阑珊888

rtian 发表于 2016-5-23 16:38
已更新代码，使用字典输出

谢谢老师帮助  怎么我输入进去不行呢 老师能否上个附件啊

liulang0808

灯火阑珊888 发表于 2016-5-23 16:55
老师，现在是10个一组进行组合，能不能设置多个，比如5个一组，10个一组，15个一组，20个一组，30个一组  ...

需要多少就用多少层嵌套

另外就是写程序跟据需求自动生成需要指定层数的代码

灯火阑珊888

liulang0808 发表于 2016-5-23 16:59
需要多少就用多少层嵌套

另外就是写程序跟据需求自动生成需要指定层数的代码

liulang0808老师 我小白一个 还得需要你的帮助 谢谢

rtian

灯火阑珊888 发表于 2016-5-23 16:58
谢谢老师帮助  怎么我输入进去不行呢 老师能否上个附件啊

不知道是不是这样的

灯火阑珊888

rtian 发表于 2016-5-23 17:25
不知道是不是这样的

首先谢谢老师，可能是老师理解错了，我要的组合是将A列中的数据进行10个一组全部进行组合但不重复，比如A列中从A1到A11 以10个一组进行组合 他们就有多种组合 但都不重复。只是我的数据较多。谢谢老师