求助用VBA提取符合条件的数据组合

www96

   求助用VBA提取符合条件的数据组合，谢谢！

roych

俺觉得你把问题复杂化了，先附上代码（写入Sheet1里）：

1. Sub test()
   
2. Dim s(1 To 6), P(1 To 4)
   
3. Dim i, j, k, l
   
4. '分解组合第一个数组
   
5. For i = 1 To 6
   
6.     s(i) = Range("B5").Offset(0, i - 1)
   
7. Next
   
8. For i = 1 To 6
   
9.     For j = i + 1 To 6
   
10.         For k = j + 1 To 6
    
11.             a = a & "," & s(i) & ":" & s(j) & ":" & s(k)
    
12.         Next
    
13.     Next
    
14. Next
    
15. c = Split(a, ",")
    
16. '分解组合第二个数组
    
17. For i = 1 To 4
    
18.     P(i) = Range("L5").Offset(0, i - 1)
    
19. Next
    
20. For i = 1 To 4
    
21.     For j = i + 1 To 4
    
22.         For k = j + 1 To 4
    
23.             b = b & "," & P(i) & ":" & P(j) & ":" & P(k)
    
24.         Next
    
25.     Next
    
26. Next
    
27. d = Split(b, ",")
    
28. '合并两个组合
    
29. For i = 1 To UBound(d)
    
30.     For j = 1 To UBound(c)
    
31.         e = e & "," & c(j) & ":" & d(i)
    
32.     Next
    
33. Next
    
34. f = Split(e, ",")
    
35. 
    
36. '写入数据
    
37. For i = 1 To UBound(f)
    
38.     Range("w" & i + 1) = f(i)
    
39. Next
    
40. End Sub

复制代码

当然，代码可以更简化些许，不过个人觉得这样写的好处在于可以让大家理清思路。